Controle De Dados (data)

[Sami_souza]

Bom dia

Coloquei dois controle de dados um para chamar da tabela festas e o outro para tabela cliente

Como eu posso para quando faço a pesquisa do nome do cliente e depois faço os dados da festas seja interligado um com outro.

Festa A do Cliente A

Festa B do Cliente B

Por que quando adiciono uma nova festa para um novo cliente os dados do nome do cliente muda que foi cadastrado anteriormente.

O que faço de errado?

O código fonte é este:

-----------------------------------------------------------------

Private Sub cmdAlterar_Click()

cmdIncluir.Enabled = False

cmdExcluir.Enabled = False

dtFesta.Recordset.Edit

End Sub

Private Sub cmdExcluir_Click()

If MsgBox("Tem Certeza que deseja apagar este registro?", vbYesNo, "Apagar Registro") = vbYes Then

dtFesta.Recordset.Delete

dtFesta.Refresh

End If

End Sub

Private Sub cmdSair_Click()

Unload frmAnimal

End Sub

Private Sub cmdGravar_Click()

cmdIncluir.Enabled = True

cmdExcluir.Enabled = True

cmdAlterar.Enabled = True

dtFesta.Recordset.Update

End Sub

Private Sub cmdIncluir_Click()

cmdIncluir.Enabled = False

cmdExcluir.Enabled = False

cmdAlterar.Enabled = True

dtFesta.Recordset.AddNew

End Sub

Private Sub cmdPesquisar_Click()

Dim BuscaString As String

BuscaString = InputBox$("Informe o nome do Cliente", "Buscar Nome")

If Trim$(BuscaString) <> "" Then

BuscaString = "Nome LIKE '*" + BuscaString + "*'"

dtCliente.Recordset.MoveFirst

dtCliente.Recordset.FindFirst BuscaString

End If

End Sub

-----------------------------------------------------------------

Obrigado Samira

[mariozneto]

Deixa eu ver se eu entendi, você quer fazer um cadastro, e depois que gravar ele continue no mesmo item gravado, é isso ????

se não for, dê um pouco mais de detalhes....

Obrigado!!!

Falow... T+