Discussion :

[jacko842]

Bonsoir je voudrais faire un ajout dans une table:

type incompatible

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Public Sub PROCEDURE_AJOUT()
 
    With frm_child1_cons.data_eleves.Recordset
 
        .AddNew
 
            !Nom = frm_child1_cons.txt_consul(0)
            !Prenom = frm_child1_cons.txt_consul(1)
            !Classe = int_val_annee
            !Date_naissance = CDate(frm_child1_cons.txt_consul(3))
            !Date_inscription = CDate(frm_child1_cons.txt_consul(4))
            !Sexe = int_val_sexe
            !Adresse = frm_child1_cons.txt_consul(5)
            !cp = int_val_cp
            !localite = int_val_cp
            !Telephone = frm_child1_cons.txt_consul(9)
            !Gsm = frm_child1_cons.txt_consul(10)
 
    End With
 
End Sub

le probleme se situe ici pourtant le champ dans la base de donnée est bien de type date


merçi d avance

[ProgElecT]

que vaut exactement frm_child1_cons.txt_consul(3) et/ou frm_child1_cons.txt_consul(4) au moment du declanchement erreur de type ?
L'erreur est-elle systematique ou certaines dates passent sans probléme ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Public Sub PROCEDURE_AJOUT()
On Error GoTo Gesterr 'un petit ajout
    With frm_child1_cons.data_eleves.Recordset
 
        .AddNew
 
            !Nom = frm_child1_cons.txt_consul(0)
            !Prenom = frm_child1_cons.txt_consul(1)
            !Classe = int_val_annee
            !Date_naissance = CDate(frm_child1_cons.txt_consul(3))
            !Date_inscription = CDate(frm_child1_cons.txt_consul(4))
            !Sexe = int_val_sexe
            !Adresse = frm_child1_cons.txt_consul(5)
            !cp = int_val_cp
            !localite = int_val_cp
            !Telephone = frm_child1_cons.txt_consul(9)
            !Gsm = frm_child1_cons.txt_consul(10)
 
    End With
'un petit ajout
Exit Sub
Gesterr:
Dim Msg$
Msg$ = "Valeur de consul(3) = " & CStr(frm_child1_cons.txt_consul(3)) & vbCrLf & _
       "Valeur de consul(4) = " & CStr(frm_child1_cons.txt_consul(4))
MsgBox Msg$, vbInformation
End Sub

[Invité]

Bonjour

Si tu veux entrer une date dans une base Access il faut qu'elle soit au format US dans ton code.

Code :

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

1
2
!Date_naissance = Format(frm_child1_cons.txt_consul(3),"mm/dd/yyyy")
!Date_inscription = Format(frm_child1_cons.txt_consul(4),"mm/dd/yyyy")

Essayes

Starec

[jacko842]

frm_child1_cons c est la feuille ou se trouve les textbox c est pcq j ai fais une barre à outils sur la feuille parents

j ai essayé !Date_inscription = format(frm_child1_cons.txt_consul(4),"mm/dd/yyyy")

mais j ai toujour la même erreur.

[ProgElecT]

que vaut exactement frm_child1_cons.txt_consul(3) et/ou frm_child1_cons.txt_consul(4) au moment du declanchement erreur de type ?

[jacko842]

frm_child1_cons.txt_consul(3) et/ou frm_child1_cons.txt_consul(4) au moment du declanchement erreur de type ?

ok il n avait aucune valeur dedans maintenant j ai un autre probleme

Vous ne pouvez pas ajouter ou modifier un enregistrement car l enregistrement connexe est reqios dans la table 'Année_scolaire_tbl'

Merci