boas
Private Sub Texto2_LostFocus()
Dim com As New ADODB.Command
Dim rst As New ADODB.Recordset
dim vNomeTexto2 as integer
Dim vprimeiroReg As integer
dim vUltimoReg as integer
Texto2.SetFocus
vNomeTexto2 = Texto2.Text
'comando sem parâmetros
com.ActiveConnection = CurrentProject.Connection
com.CommandText = "SELECT *FROM teste where nome = '" & vNomeTexto2 & "' ORDER BY Id ASC;"
com.CommandType = adCmdText: Set rst = com.Execute
With rst
'se o recordset está fora do inicio ou do fim
If .EOF And .BOF = True Then
MsgBox ("a tabela não tem registos")
Else
.moveFrist
vprimeiroReg = rst!CampoNota
.moveLast
vUltimoReg = rst!CampoNota
End If
End With
rst.close
Set rst = Nothing
Set com = Nothing
end sub
nao foi testado, adapte as necessidades
edit: colocar ; no select porque deve-se terminar com ;
cumps
acao
Última edição por acao em 10/5/2012, 14:26, editado 1 vez(es)