Changement de la date system (corrigé)

Soyez le premier à donner votre avis sur cette source.

Vue 7 136 fois - Téléchargée 620 fois

Description

en fait c le meme prog qu'au dessus mais avec un bug en -

Source / Exemple :


Dim Vdate
' Source par OverDarck
' za511@aol.com
' pour tout commantaire, remarque ou modification concernant ce programme, envoyer moi un mail
Private Sub form_load()
Vdate = Date
Text1.Text = Date
Text2.Text = ""
End Sub
Private Sub text1_gotFocus()
Text2.SetFocus
End Sub
Private Sub Label1_click()
On Error GoTo eror
    If Text2.Text = "" Then
    MsgBox ("Vous devez entrer une date !"), vbCritical + vbOKOnly, "Attention !"
    Text2.SetFocus
    GoTo fin
        Else
        Date = Text2.Text
    End If
Dim intDoIt
intDoIt = MsgBox("Voulez vous accepter le changement de date ?", vbExclamation + vbYesNo, "Accepter le changement de date ?")
    If intDoIt = vbYes Then
    MsgBox ("La nouvelle date est : " & Date), vbInformation + vbOKOnly, "Changement de date Validé"
    Text2.Text = ""
    End If
    If intDoIt = vbNo Then
    Date = Vdate
    MsgBox ("La nouvelle date a été refusée ! la date est : " & Date), vbInformation + vbOKOnly, "Changement de date annulé !"
    Text2.Text = ""
    End If
    GoTo fin
eror:
        Dim ret
            ret = MsgBox((Error$(Err)), vbCritical + vbRetryCancel, "Dates")
                If ret = vbRetry Then '3
                GoTo eror
                ElseIf ret = vbCancel Then
                Text2.Text = ""
                End If '3
fin:
End Sub

Conclusion :


Telecharger le zip c mieux mais bon, c comme tu veux !

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
80
Date d'inscription
jeudi 22 juillet 2004
Statut
Membre
Dernière intervention
28 août 2006
1
En VB.Net, ca marche pas... Il me dit :
Erreur 3 'Date' est un type et ne peut pas être utilisé en tant qu'expression.
Messages postés
9
Date d'inscription
lundi 28 avril 2003
Statut
Membre
Dernière intervention
18 novembre 2003

Bravo, je cherchais justement un prog de ce type !

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.