Discussion :

[saidm]

Bonjour
Je travail sur un projet en visual basic 6.0 . j'ai un problème de modification d'un zone de text contient la date
Y a t il une solution pour effacer le contenu d'un zone de texte relié avec le contrôle data avec un champs de type date/heur. Sans error 3426
Le code utiliser:
modifier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Private Sub Command1_Click()
    Data1.Recordset.Edit
End Sub

enregistrer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Private Sub Command2_Click()
Data1.Recordset.Update
End Sub

Et merci d'avance

[jfdmagic]

il faut peut être vérifier que ton champs texte contient une date valide avant de valider...

[saidm]

merci
La vérification traiter automatique ou moment d’enregistrer par ce que zone de text et relié avec un control data avec une basse de donne . type de champs date /heur .

[jfdmagic]

OK mais moi, y'en a pas comprendre le langage mâché et SMS : tu peux être plus explicite...?

[saidm]

Oki
Dans ma forme j’ai des zones de texte relie avec un contrôle data « dao » avec une basse de donne Access 97 .
j’ai entraine de modifier un date . De toute Facon effacer la date pour être nul « vide ».
visual basic refuse. il me donne error 3426 . Ya t il une solution pour résolue se problème et merci bien.

[Delbeke]

A part gerer toi même la mise à jour des champs et abandonner la liaison automatique, pas de salut. Au mieux, tu peux inititaliser ton champs avec cvdate(0)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

TextDate=format(CvDate(0),"dd/mm/yyyy")

Mais çà ne laissera pas le textbox vide

[saidm]

merci pour les informations J'ai trouver une solution . par l'accès directement à la basse de donner :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Set db = OpenDatabase("d:\repertoir\nom_de_basse.mdb")
db.Connect = ";pwd=mot_de_ passe"
sq = "select * from depart where depart.Numéro = " & Text7.Text
Set rs = db.OpenRecordset(sq)
rs.Edit
rs.Fields(7) = Nothing
rs.Update

ps: text7.text = clé
Fields(7) = champ de date