Contrôles / demande d'aide pour petits conseils urgents

Signaler
Messages postés
3
Date d'inscription
mercredi 14 janvier 2009
Statut
Membre
Dernière intervention
16 février 2009
-
Messages postés
3
Date d'inscription
mercredi 14 janvier 2009
Statut
Membre
Dernière intervention
16 février 2009
-
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

4 réponses

Messages postés
133
Date d'inscription
dimanche 23 juin 2002
Statut
Membre
Dernière intervention
3 janvier 2015
3
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" /??>

  Text1.SetFocus     'met le focus dans le textbox

End Sub

 

Private Sub Form_Load()

  ok = True

  Verif = 0

End Sub

 

Private Sub Text1_Change()

 

  If ok = False Then

      ok = Not ok

      Exit Sub

  End If

 

  If Len(Text1.Text) < Verif Then

     Text2.Text = Mid$(Text2.Text, 1, Len(Text1.Text))

     GoTo suite

  End If

    Text2.Text = Text2.Text & Mid$(Text1.Text, Len(Text1.Text), 1)

    ok = False

    Text1.Text = String$(Len(Text1.Text), "*")

    Text1.SelStart = Len(Text1.Text)

suite:

     Verif = Len(Text1.Text)

     Exit Sub

 

End Sub

 

Private Sub Command1_Click()

 

  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 @++
Messages postés
3
Date d'inscription
mercredi 14 janvier 2009
Statut
Membre
Dernière intervention
16 février 2009

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


    End If
 
 


  If txtPass.Text <> "0000" Then
 
  reponse = MsgBox("message d'erreur, veuiller recommencer", vbExclamation)
 
  End If
 
  If txtPass.Text = "0000" Then
 
  frmAccueil.Show
  frmAcces.Enabled = False


  End If




ravello2005
Messages postés
133
Date d'inscription
dimanche 23 juin 2002
Statut
Membre
Dernière intervention
3 janvier 2015
3
 salut ,
tente avec ceci

frmAccueil.Show    'ouvre ta form accueil
unload   frmAcces   'ferme normalement ta form

Bonne continuation
Messages postés
3
Date d'inscription
mercredi 14 janvier 2009
Statut
Membre
Dernière intervention
16 février 2009

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ù ....

ravello2005