Banco de dados:
formularios:
cadastro de clientes
cadastro de atendimentos
no cadastro de atendimento pesquiso pelo cliente que foi atendido pela combbox pesquisar, funciona ok, no entanto não consigo pesquisar ao digitar o nome do cliente, somente seleciona procurando pela seta de navegação. quero que busque o cliente na pesquisa procurando por nome do cliente.
estou utilizando o seguinte código:
Private Sub ATENDIMENTO_AfterUpdate()
Me.Filter = "CODATENDIMENTOcad=" & ATENDIMENTO
Me.FilterOn = True
End Sub
Private Sub btnEditarCliente_Click()
Dim criterio As String
If IsNull(CODATENDIMENTOcad) Then
'Novo cliente
DoCmd.OpenForm "FORMULARIO CLIENTES", acNormal, , , acFormAdd
Else
'Atualizar cliente
criterio = "Códigocadastrocliente=" & CODATENDIMENTOcad
DoCmd.OpenForm "FORMULARIO CLIENTES", acNormal, , criterio
End If
End Sub
Private Sub Cliente_Enter()
Cliente.Requery
End Sub
Private Sub CODATENDIMENTOcad_Enter()
CODATENDIMENTOcad.Requery
End Sub
Private Sub Form_Current()
If IsNull(CODATENDIMENTOcad) Then
'permite
CODATENDIMENTOcad.Locked = False
Else
'bloqueia
CODATENDIMENTOcad.Locked = True
End If
End Sub
formularios:
cadastro de clientes
cadastro de atendimentos
no cadastro de atendimento pesquiso pelo cliente que foi atendido pela combbox pesquisar, funciona ok, no entanto não consigo pesquisar ao digitar o nome do cliente, somente seleciona procurando pela seta de navegação. quero que busque o cliente na pesquisa procurando por nome do cliente.
estou utilizando o seguinte código:
Private Sub ATENDIMENTO_AfterUpdate()
Me.Filter = "CODATENDIMENTOcad=" & ATENDIMENTO
Me.FilterOn = True
End Sub
Private Sub btnEditarCliente_Click()
Dim criterio As String
If IsNull(CODATENDIMENTOcad) Then
'Novo cliente
DoCmd.OpenForm "FORMULARIO CLIENTES", acNormal, , , acFormAdd
Else
'Atualizar cliente
criterio = "Códigocadastrocliente=" & CODATENDIMENTOcad
DoCmd.OpenForm "FORMULARIO CLIENTES", acNormal, , criterio
End If
End Sub
Private Sub Cliente_Enter()
Cliente.Requery
End Sub
Private Sub CODATENDIMENTOcad_Enter()
CODATENDIMENTOcad.Requery
End Sub
Private Sub Form_Current()
If IsNull(CODATENDIMENTOcad) Then
'permite
CODATENDIMENTOcad.Locked = False
Else
'bloqueia
CODATENDIMENTOcad.Locked = True
End If
End Sub