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

[ProgElecT]

car l enregistrement connexe est reqios (requis ?) dans la table 'Année_scolaire_tbl'

Il ni a pas de connection au moment de l'utilisation du Recordset dans lappel de ta procedure PROCEDURE_AJOUT.
Soit a un moment donné tu as fermée cette connection, soit tu ne l'a jamais ouvert ????

[Invité]

Bonjour

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

Il ni a pas de connection au moment de l'utilisation du Recordset dans lappel de ta procedure PROCEDURE_AJOUT.
Soit a un moment donné tu as fermée cette connection, soit tu ne l'a jamais ouvert ????

Non, ce n'est pas cela

Ce messae signifie que dans ta table tu as un champ qui est en relation avec une autre table, et le champ de cet autre table est une clé primaire, qui est obligatoire.

Tu as d'abord voulu rentrer la valeur de la clé étrangère avant de créer la clé primaire.

Starec

[jacko842]

ok le probleme est resolu merci a vous