MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Abrir um Formulario de Cadastro Clientes ja no Registro especifico

    Compartilhe

    fazerbem
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 164
    Registrado : 05/03/2017

    [Resolvido]Abrir um Formulario de Cadastro Clientes ja no Registro especifico

    Mensagem  fazerbem em 5/6/2018, 23:40

    Oi, como faco estando eu num Form "X" , tendo este um botao de comando , abrir um outro Form de "cadastro de clientes" tendo como base o Id do cliente que esta numa caixa de texto no Form "X" ? Ou Seja ao Abrir o Form CadastroCli, ao inves de abrir no primeiro registro ja abra no registro determinado em Form"X".

    Grato

    Andre
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3974
    Registrado : 20/04/2011

    Re: [Resolvido]Abrir um Formulario de Cadastro Clientes ja no Registro especifico

    Mensagem  Silvio em 5/6/2018, 23:53

    Algo parecido com isso abaixo:


    Private Sub CaixadetextoChavePrimária_DblClick(Cancel As Integer)
    If MsgBox("Deseja abrir esse cadastro de clientes ?", vbYesNo + vbQuestion, Me.Caption) = vbNo Then
    Exit Sub
    Else
    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "Nome do formulário a ser aberto"

    stLinkCriteria = "]Chave primaria]=" & Me!]chave primaria]
    DoCmd.OpenForm stDocName, , , stLinkCriteria
    Docmd.Close
    End If

    End Sub

    Substitua os campos em vermelho pelo teus campos.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    fazerbem
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 164
    Registrado : 05/03/2017

    Re: [Resolvido]Abrir um Formulario de Cadastro Clientes ja no Registro especifico

    Mensagem  fazerbem em 6/6/2018, 03:33

    Obrigado mais esta vez, deu tudo certo, so tieri o Close que fechava o Form, e as pergunta.

    Grato andre

    Código:


    Option Compare Database

    Private Sub Comando2_Click()

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "FrmCad_Produto"

    stLinkCriteria = "[idProduto]=" & Me![texto]
    DoCmd.OpenForm stDocName, , , stLinkCriteria


    End Sub

    Private Sub Form_Load()
    Me.texto = 10
    End Sub


    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3974
    Registrado : 20/04/2011

    Re: [Resolvido]Abrir um Formulario de Cadastro Clientes ja no Registro especifico

    Mensagem  Silvio em 6/6/2018, 12:33

    Bom dia..
    O fórum agradece o retorno !
    Bom trabalho.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    Ismael Silva
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 268
    Registrado : 11/12/2017

    Re: [Resolvido]Abrir um Formulario de Cadastro Clientes ja no Registro especifico

    Mensagem  Ismael Silva em 6/6/2018, 15:59

    Vai me ajudar tbm.

      Data/hora atual: 19/8/2018, 00:34