Já tive algumas "brincadeiras" com access mas nunca me aventurei com a conexão via VBA, hoje experimentei! Uma tabela e formulário fiz umas buscas, (Que grande confusão) mas consegui ligar-me à base de dados e à tabela, onde inseri 3 registos, para os visualizar no formulário, porém não consigo navegar entre eles. A tabela tem 3 registos, no entanto o "objecto" de botões de navegação só indica a existência de 1 registo.
Será possivel ajudarem-me? Obrigado.
- Código:
Option Compare Database
Option Explicit
Dim cnx As ADODB.Connection
Dim rst As ADODB.Recordset
Private Sub cmdPrevious_Click()
rst.MovePrevious
End Sub
Private Sub cmdSeguinte_Click()
rst.MoveNext
End Sub
Private Sub Form_Load()
Set cnx = New ADODB.Connection
cnx.ConnectionString = "Provider=Microsoft.Jet.Oledb.4.0; Data Source = C:\Users\daddy\Desktop\tstConectaAdo\dbConnecta.mdb"
cnx.Open
Set rst = New ADODB.Recordset
rst.Open "select * from tblTeste", cnx, adOpenKeyset, adLockOptimistic
rst.MoveLast
txtCamp1 = rst.Fields("Campo1")
txtCamp2 = rst.Fields("Campo2")
End Sub
Será possivel ajudarem-me? Obrigado.