Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

Sujet : type incompatible sous vb6 [ Système / Exécution ] (maciass)

samedi 12 avril 2008 à 02:03:40 | type incompatible sous vb6

maciass

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

samedi 12 avril 2008 à 07:40:26 | Re : type incompatible sous vb6

bricoyeye

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

dimanche 13 avril 2008 à 02:11:03 | Re : type incompatible sous vb6

radcur


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.




dimanche 13 avril 2008 à 22:59:35 | Re : type incompatible sous vb6

maciass

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.

dimanche 13 avril 2008 à 23:37:46 | Re : type incompatible sous vb6

jrivet

Membre Club
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

lundi 14 avril 2008 à 23:50:00 | Re : type incompatible sous vb6

maciass

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

mardi 15 avril 2008 à 08:41:25 | Re : type incompatible sous vb6

bricoyeye

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

mercredi 16 avril 2008 à 00:18:06 | Re : type incompatible sous vb6

maciass

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


mercredi 16 avril 2008 à 09:24:31 | Re : type incompatible sous vb6

bricoyeye

Membre Club

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.


mercredi 16 avril 2008 à 09:46:59 | Re : type incompatible sous vb6

jrivet

Membre Club
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


1 2

Cette discussion est classé dans : date, end, time, subprivate, matable


Répondre à ce message

Sujets en rapport avec ce message

Probleme avec un reveil [ par Vengeor ] bon voila je tape les code suivant pour crer mon reveilet sa me mais erreur de script alors si quelqu'un peut m'aider sa serais coolOption ExplicitDim Timer [ par tony ] Private Sub form_load()timer.Interval = 1000timer.Enabled = trueEnd SubPrivate Timer_Time()Label1.caption = timeEnd Sub'Malheureusement avec cette mét URGENT BESOIN DE CETTE OCX Microsoft date and time picker control 6 [ par Symcod ] Bonjours à tous, j'aimerais que quelqu'un m'envoie le .ocx de Microsoft date and time picker control 6Merci à l'avance !! :) Symc Date and time Picker [ par FASH ] BonjourComment puis-je faire pour avoir dans mes tools le controls: Date and time picker. J'ai regardé dans les additional controls, et il n'est pas d ActiveX Date time piker(Dtpicker.ocx) [ par neom23 ] je souhaiterais utiliser un controle activeX Date time picker (Dtpicker.ocx). Je possede microsoft office XP sans Access. Je souhaiterais inserer cet Microsoft Date And Time Picker Control 6. [ par Meihdy ] PERDU DE VUE!!!j'ai XP et access 2000 merci de me dire où trouver : Microsoft Date And Time Picker Control 6. date and time [ par mannylind ] Hi !PleaseHow can I get remote-pc date and time in local network ?Best regards. Ir. Manny LIKITA 0024398248846 00243812503297 00243080644831 pb avec la requète ? [ par Mesfl ] Bonjour à tous,j'aimerais savoir si MyODBC supporte les requètes avec des jointures car quand je fais cette requète :SELECT a . * , TIME_FORMAT( a.Arr definir date time et recupérer leurs valeurs [ par youlel ] bonjour,je cherche comment définir la date et l'heure et comment recupérer la date actuelle du systeme et la comparer avec une date déja définit.merci Rafraichissement d'une horloge (date et time) [ par enibris ] Bonjour,Comment  avoir une horloge (date et time) sur son form qui ne gele pas pendant l'execution d'une procedure ?Merci d'avance


Nos sponsors

Sondage...

CalendriCode

Décembre 2008
LMMJVSD
1234567
891011121314
15161718192021
22232425262728
293031    

Consulter la suite du CalendriCode

Appels d'offres

Téléchargements

Logiciels à télécharger sur le même thème :



Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel BAÏSE, Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 2,168 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.