Boa noite,
Tenho um form onde cadastro processo, programei para quando digitar um nr de processo caso ele ja exista demonstre todos os campos, porem antes de demonstrar ele registra novamente o nr de processo, como faço isso para nao registrar este nr novamente? Tentei usar no evento beforeUpdate mas apresentava erro na compilacao. Agora estou usando conforme abaixo:
Private Sub TXT_Processo_AfterUpdate()
If (Not IsNull(DLookup("[processo]", "oficios", _
"[processo] ='" & Me!TXT_Processo & "'"))) Then
' Encontrar o registro que coincide com o controle.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[Processo] = '" & Me![TXT_Processo] & "'" 'busca para processo formato nnnn/nnnn , porem campo tipo texto
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
rs.Close
Set rs = Nothing
End If
End Sub
Tenho um form onde cadastro processo, programei para quando digitar um nr de processo caso ele ja exista demonstre todos os campos, porem antes de demonstrar ele registra novamente o nr de processo, como faço isso para nao registrar este nr novamente? Tentei usar no evento beforeUpdate mas apresentava erro na compilacao. Agora estou usando conforme abaixo:
Private Sub TXT_Processo_AfterUpdate()
If (Not IsNull(DLookup("[processo]", "oficios", _
"[processo] ='" & Me!TXT_Processo & "'"))) Then
' Encontrar o registro que coincide com o controle.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[Processo] = '" & Me![TXT_Processo] & "'" 'busca para processo formato nnnn/nnnn , porem campo tipo texto
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
rs.Close
Set rs = Nothing
End If
End Sub