Jump to content
Fórum Script Brasil
  • 0

Controle De Dados (data)


Sami_souza

Question

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

Link to comment
Share on other sites

1 answer to this question

Recommended Posts

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



  • Forum Statistics

    • Total Topics
      152k
    • Total Posts
      651.6k
×
×
  • Create New...