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 : 68
    Registrado : 05/03/2017

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

    Mensagem  fazerbem em Ter 05 Jun 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 : 3923
    Registrado : 20/04/2011

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

    Mensagem  Silvio em Ter 05 Jun 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 : 68
    Registrado : 05/03/2017

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

    Mensagem  fazerbem em Qua 06 Jun 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 : 3923
    Registrado : 20/04/2011

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

    Mensagem  Silvio em Qua 06 Jun 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.]

    IsmaelSilva
    Avançado
    Avançado

    Respeito às Regras 100%

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

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

    Mensagem  IsmaelSilva em Qua 06 Jun 2018, 15:59

    Vai me ajudar tbm.

      Data/hora atual: Qua 20 Jun 2018, 12:45