Contrôles / demande d'aide pour petits conseils urgents
ravello2005
Messages postés3Date d'inscriptionmercredi 14 janvier 2009StatutMembreDernière intervention16 février 2009
-
13 févr. 2009 à 15:28
ravello2005
Messages postés3Date d'inscriptionmercredi 14 janvier 2009StatutMembreDernière intervention16 février 2009
-
16 févr. 2009 à 14:41
Bonjour,
Je suis complètement novice en programmation et j'aurais besoin de conseils basiques pour des contrôles de 3 types :
1) pour un simple contrôle utilisateur / mot de passe à louverture d'une appli
2) pour le contrôle de saisie d'un code postal (uniquement le nombre de chiffres et pas de lettres)
3) pour qu'à l'ouverture de chaque nouveau form de gestion d'incident, je puisse donner la date et l'heure d'ouverture de cet incident.
J'ai vu beaucoup de choses qui parlent de ça dans les forums mais qui sont déjà un peu trop compliquées pour moi, je ne fais que commencer !
Merci d'avance
ravello2005
A voir également:
Contrôles / demande d'aide pour petits conseils urgents
cs_akzo
Messages postés133Date d'inscriptiondimanche 23 juin 2002StatutMembreDernière intervention 3 janvier 20153 13 févr. 2009 à 18:45
Salut,
pour la premiere question avec un form,deux textbox et un bouton command
le bouton command et le textbox2 invisible
Private Sub Form_Activate()<?xml:namespace prefix o ns "urn:schemas-microsoft-com:office:office" /??>
If Text2.Text <> "0000" Then Exit Sub 'si code differant exit
If Text2.Text = "0000" Then 'si code ok
‘ici suite du code si “<?xml:namespace prefix st1 ns "urn:schemas-microsoft-com:office:smarttags" /??><st1:metricconverter w:st="on" productid="0000”">0000”</st1:metricconverter>
End If
End Sub
pour la question 2
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 8 Then Exit Sub
If KeyAscii = 13 Then ' vers suite c'est pour la touche enter If InStr("0123456789", ChrW$(KeyAscii)) 0 Then KeyAscii 0
End Sub
Pour la troisieme et derniere:
une fois ton alarme detecter (ouverture de ta form incident )
Open "c:\TonChemin\Gestion incidents.txt" For Append As 1
Print #1, "Incident detecté le " & Now
Close #1
voila j'espere que cela t'aura aider
salutation @++
ravello2005
Messages postés3Date d'inscriptionmercredi 14 janvier 2009StatutMembreDernière intervention16 février 2009 16 févr. 2009 à 12:01
Bonjour,
Merci beaucoup de ton aide !
J'ai encore des petits problèmes : je n'arrive pas à sortir proproment du form Mot de passe après avoir entré mon mot de passe.
J'essaye un peu dans tous les sens pour sortir du formis et arriver sur ma page d'accueil de la gestion d'incident, impossible, je reste bloqué une fois que j'ai cliqué sur OK !
Peux-tu m'aider encore une fois ? Merci d'avance !
If txtLogin.Text <> "yann" Then
reponse = MsgBox("identifiant inconnu, veuillez resaisir ", vbOKOnly)
'si code différent existe
ravello2005
Messages postés3Date d'inscriptionmercredi 14 janvier 2009StatutMembreDernière intervention16 février 2009 16 févr. 2009 à 14:41
Merci Akzo mais j'avais déjà tenté cette solution, en fait j'ai l'impression d'avoir tenté toutes les solutions habituelles et ça ne fonctionne pas ... Y'a comme qui dirait une couille dans le pâté mais je ne sais pas trop où ....