type incompatible sous vb6

slt svp qlq un peut m aider j ai le program suivant qui utilise une base de données et qui m affiche type incompatible lor de l execution
si vous pouvez m aider je serai tré reconnaissant
le programm es le suivant:

Private Sub Command1_Click()
On Error Resume Next
RDV.Recordset.Delete
RDV.Recordset.MoveNext
End Sub

Private Sub Form_Load()
HeureActuelle = Format(Time, "hh:mm")
End Sub

Private Sub Label6_Click()

End Sub

Private Sub RDV_Validate(Action As Integer, Save As Integer)

End Sub

Private Sub Timer1_Timer()
HeureActuelle = Format(Time, "hh:mm")
Dim MaBase As Database, MaTable As Recordset
Set MaBase = OpenDatabase( _
"C:\Documents and Settings\Administrateur\Mes documents\RDV.mdb")
Set MaTable = MaBase.OpenRecordset("RDV")
On Error Resume Next
MaTable.MoveFirst
Do Until MaTable.EOF
MaTable.Edit
If Date = MaTable("Date") And MaTable("Prévenir") = True Then
 If Time >= DateAdd("n", -MaTable("Avant"), MaTable("Heure")) Then
  Beep
  Message = "Vous avez un rendez-vous dans " & MaTable(5) & _
  " minute(s)" & vbLf & "avec " & MaTable(0) & vbLf & _
  "à " & MaTable(1)
  MsgBox Message, vbInformation, "(-:) Rendez-vous (:-)"
  MaTable("Prévenir") = False
 End If
End If
MaTable.Update
If Date = MaTable("Date") And Time >= MaTable("Heure") Then
   MsgBox "Vous avez rendez-vous avec " & MaTable("Avec") & _
    " maintenant", vbCritical, "(-:) Rendez-vous (:-)"
   MaTable.Delete
End If
If MaTable("Date") < Date Then
   MaTable.Delete
End If
MaTable.MoveNext
Loop
RDV.Refresh
  
End Sub
 

j attend votr reponse et merci d avance

Salut,
Si tu disais à quelle ligne çà coince???

d'apres moi tu tentes de faire une opération de date sur un champ de la base qui n'est pas de type date.

non mai prkoi vous dites qu il n est pa de type date si vous voulez m aider je peux vous donner mon email pr vous envoyer le projet et le verifier vous mem
ok?
allé j attend votr rep et merci d avance.

salut
commence par nous dire la ligne qui donne l'erreur comme le demande à juste titre bricoyeye

@+: Ju£i€n
Pensez: Réponse acceptée

la lige qui donne l erreur est la suivante:
"C:\Documents and Settings\Administrateur\Mes documents\RDV.mdb")
Set MaTable = MaBase.OpenRecordset("RDV")
c pas un problem de compatibilité entr l access que j ai et la version d access utilisée par le vb6?
ce n etai qu une "?" je sui pa un pro en vb(je vien de le commencer)
alors c a vous de voir biensur chers amis et amies

Salut,
La syntaxe est bonne, apparemment, ta table RDV existe elle bien dans ta base?
Quelle version d"access as tu?

slt bricoyeye j ai l access 2007 pr le moment.mai je l ai testé avec l access 2003 et ca n a pa marché.pouvez vous me dire quel acces es le + compatible avec le vb6 version francaise(peut etr le 97 ou le 2000?)
merci pr votre attention
j atten votre reponse

Salut,
Access 2003 marche trés bien.
Là tu est en ADO, donc tes variables sont mal indiquées:

Dim MaBase As DAO.Database
Dim MaTable As DAO.Recordset

Là, ça devrait marcher.

Re,

>bricoyeye"là tu est en ADO, donc tes variables sont mal indiquées:": Ah non je ne pense pas . il est en DAO comme tu lui indiques dans les déclarations.


Il ferait d'ailleurs mieux, à mon sens de passer à ADO plutot que de continuer avec DAO

@+: Ju£i€n
Pensez: Réponse acceptée