EMSIEN
Messages postés194Date d'inscriptionlundi 26 juillet 2004StatutMembreDernière intervention11 juin 2009 18 nov. 2005 à 21:11
salut hbibou,
je suis vraiment désole,pour:
1-L'image qui n'a rien à voir avec ton programme (ravi si tu es du maroc,moi aussi d'ailleurs).
2-le titre avec hbiba wafaa ,je trouve ça désolant sache qu'on est pas ici sur MSN ou bien sur un chat,mais on est là pour apprendre et un titre est déjà une première image de ton application.
3-avec les commentaires que je viens de lire j'ai meme pas envie de voir ton code non plus (sauf si tu modifies un peu la chose:titre image et description).
Bonne chance pour la suite (si suite y en a)
econs
Messages postés4030Date d'inscriptionmardi 13 mai 2003StatutMembreDernière intervention23 décembre 200824 18 nov. 2005 à 16:50
Pfiouuuu, la gestion des types de données, tu ne connais visiblement pas.
Supposons que je rentre le login "Manu" et le password "1234"
x = Val(nom.Text)
x Val("Manu")> x = Rien du tout, puisque "Manu" ne représente pas un chiffre
y = Val(pass.Text)
y val("1234")> y = 1234
If x nourdriss And y 1234 Then
Sachant que nourdriss est une variable de type inconnu, et non affectée, pour VB, nourdriss = rien du tout
If rien du tout = rien du tout and y=1234 Then
je rentre dans la condition.
En d'autres termes, quel que soit le login, si on a le bon mot de passe, on rentre.
---------------------------------
Data1.Recordset.Fields("mat") = t
Data1.Recordset.Fields("nom") = t2
Data1.Recordset.Fields("nbr") = t3
Data1.Recordset.Fields("mb") = t4
Data1.Recordset.Fields("r") = t5
Data1.Recordset.Fields("mt") = t6
Data1.Recordset.Fields("ete") = o2
Data1.Recordset.Fields("hiv") = o1
Data1.Recordset.Fields("aut") = o
Data1.Recordset.Fields("pri") = o3
Data1.Recordset.Fields("dej") = c
Data1.Recordset.Fields("pic") = c2
Data1.Recordset.Fields("din") = c3
Plus explicite que çà, tu ne peux pas ?
--------------------------
Cette ligne là ne risque pas de fonctionner, il manque un retour chariot :
MsgBox "matrucule exicte de " & x, vbCriticalt = ""
Et entre nous, qu'est ce que c'est censé afficher ? Je ne comprends même pas le sens de la phrase ...
--------------------------
Tu livres 5 fichiers .frm dans le zip, mais seulement 3 sont dans le projet. Peux-tu faire un tri STP ?
--------------------------
Quel rapport entre la capture d'écran et ce soft ? Il n'y a pas d'image livrée avec le Zip.
Bref, pas trop envie d'exécuter ce programme ...
ebe_tic
Messages postés15Date d'inscriptionjeudi 4 décembre 2003StatutMembreDernière intervention14 mars 2006 18 nov. 2005 à 15:29
j'ai un fond d'écran noir... il doit manquer une illustration.
Par ailleurs il faut éviter de coder en dur les path. Le fichier mdb n'est pas à la même place sur ton poste et sur le mien.
tu pourrais mettre dans la sub Form_load()
data1.databasename= app.path & "\hotel.mdb"
bouv
Messages postés1411Date d'inscriptionmercredi 6 août 2003StatutMembreDernière intervention 3 mars 20191 18 nov. 2005 à 09:45
Ni la description ni le screenshot ne sont explicite... Pas envie d'aller plus loin
18 nov. 2005 à 21:11
je suis vraiment désole,pour:
1-L'image qui n'a rien à voir avec ton programme (ravi si tu es du maroc,moi aussi d'ailleurs).
2-le titre avec hbiba wafaa ,je trouve ça désolant sache qu'on est pas ici sur MSN ou bien sur un chat,mais on est là pour apprendre et un titre est déjà une première image de ton application.
3-avec les commentaires que je viens de lire j'ai meme pas envie de voir ton code non plus (sauf si tu modifies un peu la chose:titre image et description).
Bonne chance pour la suite (si suite y en a)
18 nov. 2005 à 16:50
Supposons que je rentre le login "Manu" et le password "1234"
x = Val(nom.Text)
x Val("Manu")> x = Rien du tout, puisque "Manu" ne représente pas un chiffre
y = Val(pass.Text)
y val("1234")> y = 1234
If x nourdriss And y 1234 Then
Sachant que nourdriss est une variable de type inconnu, et non affectée, pour VB, nourdriss = rien du tout
If rien du tout = rien du tout and y=1234 Then
je rentre dans la condition.
En d'autres termes, quel que soit le login, si on a le bon mot de passe, on rentre.
---------------------------------
Data1.Recordset.Fields("mat") = t
Data1.Recordset.Fields("nom") = t2
Data1.Recordset.Fields("nbr") = t3
Data1.Recordset.Fields("mb") = t4
Data1.Recordset.Fields("r") = t5
Data1.Recordset.Fields("mt") = t6
Data1.Recordset.Fields("ete") = o2
Data1.Recordset.Fields("hiv") = o1
Data1.Recordset.Fields("aut") = o
Data1.Recordset.Fields("pri") = o3
Data1.Recordset.Fields("dej") = c
Data1.Recordset.Fields("pic") = c2
Data1.Recordset.Fields("din") = c3
Plus explicite que çà, tu ne peux pas ?
--------------------------
Cette ligne là ne risque pas de fonctionner, il manque un retour chariot :
MsgBox "matrucule exicte de " & x, vbCriticalt = ""
Et entre nous, qu'est ce que c'est censé afficher ? Je ne comprends même pas le sens de la phrase ...
--------------------------
Tu livres 5 fichiers .frm dans le zip, mais seulement 3 sont dans le projet. Peux-tu faire un tri STP ?
--------------------------
Quel rapport entre la capture d'écran et ce soft ? Il n'y a pas d'image livrée avec le Zip.
Bref, pas trop envie d'exécuter ce programme ...
18 nov. 2005 à 15:29
Par ailleurs il faut éviter de coder en dur les path. Le fichier mdb n'est pas à la même place sur ton poste et sur le mien.
tu pourrais mettre dans la sub Form_load()
data1.databasename= app.path & "\hotel.mdb"
18 nov. 2005 à 09:45