Information générale
Catégorie:
Codage, syntaxe et commandes
Dim rs78 As Recordset4
Dim data78 As Database
Set data78 = OpenDatabase("c:\kskvb\walmart1.mdb")
Set rs78 = data78.OpenRecordset("stores", dbOpenTable)
With rs78
.Index = "primaryKey"
.Seek "=", "0015"
If .NoMatch Then
GoTo 10
End If
MsgBox ("ok")
End With
10:
this's the code that i have used.
can u tell me where you think i have erred.
thanks a tonne
shashi
Précédent
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement