MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    [Resolvido]formulario clientes

    avatar
    TINOSEIXAS
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 64
    Registrado : 20/08/2012

    [Resolvido]formulario clientes Empty formulario clientes

    Mensagem  TINOSEIXAS 31/8/2013, 19:10

    boas mais uma vez,tenho o form clientes que ao fechar com a tecla F4 (já esta a funcionar) pretendo que guarde o valor da lista que ele tem no formulário que vai receber o foco a seguir.
    o código que tenho é
    Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 115 Then
    DoCmd.Close acForm, "frmPESQUISA1"
    Else
    KeyCode = 0
    End If
    End Sub


    tipo:estou a fazer uma folha de obra no campo cliente faço F4 e abre o formulario de clientes,seleciono na lista que tenho dentro desse mesmo form,volto a fazer F4,o formo clientes fecha mas quero que o valor da lista va para o campo cliente ....como posso fazer...
    avatar
    Convidado
    Convidado


    [Resolvido]formulario clientes Empty Re: [Resolvido]formulario clientes

    Mensagem  Convidado 1/9/2013, 21:15

    Seria algo assim?

    Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 115 Then
    Forms!FrmCliente.Cliente = Me.Lista.Column(x)
    DoCmd.Close acForm, "frmPESQUISA1"
    Else
    KeyCode = 0
    End If
    End Sub

    Onde X é o número da coluna onde está a informação na lista.. Lembrando que a primeira coluna e de numero 0


    Cumprimentos.
    avatar
    TINOSEIXAS
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 64
    Registrado : 20/08/2012

    [Resolvido]formulario clientes Empty Form clientes

    Mensagem  TINOSEIXAS 2/9/2013, 00:06

    boas,devo estar a falhar em algum lado...

    Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 115 Then
    Forms!Serviço Externo.Código Do Cliente = Me.lst_1.Column(0)
    DoCmd.Close acForm, "frmPESQUISA1"
    Else
    KeyCode = 0
    End If
    End Sub


    o que estou a fazer mal..
    avatar
    Convidado
    Convidado


    [Resolvido]formulario clientes Empty Re: [Resolvido]formulario clientes

    Mensagem  Convidado 2/9/2013, 00:30

    Sempre exortamos a evitarem espaços e acentos em nome de objetos....

    Quando há espaçamentos em nome de formulários é necessário colocá-los entre colchetes

    Forms![Serviço Externo].Código Do Cliente = Me.lst_1.Column(0)

    Cumprimentos.
    avatar
    TINOSEIXAS
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 64
    Registrado : 20/08/2012

    [Resolvido]formulario clientes Empty form clientes

    Mensagem  TINOSEIXAS 2/9/2013, 00:47

    5 estrelas,peço desculpa pela minha falta de conhecimento.obrigado pela ajuda.
    avatar
    Convidado
    Convidado


    [Resolvido]formulario clientes Empty Re: [Resolvido]formulario clientes

    Mensagem  Convidado 2/9/2013, 01:03

    4 Estrelas... Para que seja 5 precisa clicar no joinha da mensagem que o auxiliou.

    Cumprimentos.

    Conteúdo patrocinado


    [Resolvido]formulario clientes Empty Re: [Resolvido]formulario clientes

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 19/5/2024, 05:54