IPB

Bem-vindo, visitante ( Entrar | Registrar )

 
Reply to this topicStart new topic
Seek / Findfirst
Roberto
post Jul 12 2015, 10:44 AM
Post #1


Calouro
*

Grupo: Membros
Posts: 1
Registrado: 22-December 08
Membro N°: 1.336



Boa dia.
Poderiam me ajudar a usar o FINFIRST no lugar do SEEK em tabelas vinculadas.
Utilizo o sequinte código:

Obs: Campo DTE - Tipo data
Campo RI - tipo texto
Access 2010

Private Sub Combinação114_BeforeUpdate(Cancel As Integer)
Dim rsttab As DAO.Recordset
Set Db = CurrentDb()
Set rsttab = Db.OpenRecordset("Tbl Cad_Adol")
rsttab.Index = "IND"
rsttab.Seek "=", Me.DTE, Me.RI
If rsttab.NoMatch Then
Else
MsgBox ("DADOS JA CADASTRADOS")
Me.Undo
End If
End Sub

Agradeço a possível ajuda.
Go to the top of the page
 
+Quote Post

Reply to this topicStart new topic
2 usuário(s) está(ão) lendo este tópico (2 visitantes e 0 usuários anônimos)
0 membros:

 

Modos de Exibição: Padrão · Mudar para: Linear+ · Mudar para: Outline


Versão Simples Horário: 22nd September 2017 - 05:29 PM