Il y a un erreur dans mon code mais je ne vois vraiment pas ou.
Pourtant mon code est vraiment simple
Je veux ouvrir un table "tblStandardItem"
Code :
Private Sub cmdAdd_Click()
Dim DB As Database
Dim RS As Recordset
Set DB = Application.CurrentDb
Set RS = DB.OpenRecordset("tblStandardItem", dbOpenTable)
If RS.RecordCount = 0 Then
Exit Sub
End If
RS.MoveFirst
MsgBox RS.Fields(1).Value
RS.Close
Set RS = Nothing
Set DB = Nothing
End Sub
Le message d'erreur à la ligne:
Set RS = DB.OpenRecordset("tblStandardItem", dbOpenTable)
Citer:
Type mismatch
J'ai dû oublier un détail !!!
Connexion
Inscription
FAQ
Rechercher
