Discussion :

[PrincessKC]

Bonjour à tous,

je veux corriger un code qui ne fonctionne pas;

la maj de la table, il y a un bouton nouveau:

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
28
29
30
Private Sub CmdNouveau_Click()
On Error Resume Next ' NPE
    VMessage = "Etes-vous sûr de vouloir saisir les données d'un nouveau personnel?"
    VTitre = "Nouveau"
    VStyle = vbYesNo + vbQuestion + vbDefaultButton2
    VRéponse = MsgBox(VMessage, VStyle, VTitre)
 
    If VRéponse = vbYes Then
 
          DataMAJPerso.Recordset.AddNew
 
       ListeTitres = "M."
       TxtNomPerso = "XXXXXXXXXX"
       TxtPrénomsPerso = "YYYYYYYYYY"
       ListeDateEmbauchePerso = Date
       ListeSituationMatrimoniale = "Célibataire"
       ListeSexePerso = "Masculin"
 
       TxtNomPhoto = "\\server\Photo\PhotoNonDisponible.bmp"
''       PicPhotoPerso.Picture = LoadPicture(TxtNomPhoto)
 
       TxtAgePerso = ""
       TxtAfficherNombreEnfants = ""
       TxtExpérienceProfessionnelle = ""
 
 
       TxtMatriculePerso.SetFocus
 End If
 
End Sub

et on valide ou modifie avec le bouton actualiser:

Code :

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

1
2
3
4
Private Sub CmdActualiser_Click()
DataMAJPerso.Refresh
AfficherGrilleFamille
End Sub

bon, avec ça, ça ne marche pas!
j'ai essayé de modifier le bouton actualiser en faisant ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Private Sub CmdActualiser_Click()
DataMAJPerso.Recordset.Addnew
DataMAJPerso!MatriculePerso = TxtMatriculePerso
DataMAJPerso!NomPerso = TxtNomPerso
...
DataMAJPerso.Recordset.Update
DataMAJPerso.Refresh
'AfficherGrilleFamille
End Sub

mais il me met des erreur de compilation:3426 ou " ne peut enregistrer dans une proprieté vide" ou encore "methode non reconnue"

franchement, je ne comprends vraiment les erreurs qu'il m'affiche (je suis encore debutante en vb6) ;

pas beaucoup de resultat sur data control sur google!!

aidez moi svp!
merci

[Delbeke]

Déjà, on peut dire que le DataMAJPerso.Recordset.AddNew
dans la procèdure CmdNouveau_Click ne sert à rien car il est annulé par le DataMAJPerso.Recordset.Addnew dans la procèdure CmdActualiser_Click

Ensuite il faut nous dire sur quelle ligne la compilation s'arrête.

[PrincessKC]

alors pour le premier jeu:

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
28
29
30
31
32
33
34
35
 
Private Sub CmdNouveau_Click()
 'On Error Resume Next ' NPE
    VMessage = "Etes-vous sûr de vouloir saisir les données d'un nouveau personnel?"
    VTitre = "Nouveau"
    VStyle = vbYesNo + vbQuestion + vbDefaultButton2
    VRéponse = MsgBox(VMessage, VStyle, VTitre)
 
    If VRéponse = vbYes Then
       DataMAJPerso.Recordset.AddNew
 
       ListeTitres = "M."
       TxtNomPerso = "XXXXXXXXXX"
       TxtPrénomsPerso = "YYYYYYYYYY"
       ListeDateEmbauchePerso = Date
       ListeSituationMatrimoniale = "Célibataire"
       ListeSexePerso = "Masculin"
     ......
 
       TxtAgePerso = ""
       TxtAfficherNombreEnfants = ""
       TxtExpérienceProfessionnelle = ""
 
 
       TxtMatriculePerso.SetFocus
    End If
 
end sub
 
----------------------------------------------------
 
Private Sub CmdActualiser_Click()
DataMAJPerso.Refresh
AfficherGrilleFamille
End Sub

pas d'erreur et pas d'enregistrement

pour le deuxieme jeu de code:

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
28
29
30
31
32
33
34
35
36
37
Private Sub CmdNouveau_Click()
 'On Error Resume Next ' NPE
    VMessage = "Etes-vous sûr de vouloir saisir les données d'un nouveau personnel?"
    VTitre = "Nouveau"
    VStyle = vbYesNo + vbQuestion + vbDefaultButton2
    VRéponse = MsgBox(VMessage, VStyle, VTitre)
    
    If VRéponse = vbYes Then
       DataMAJPerso.Recordset.AddNew
       
       ListeTitres = "M."
       TxtNomPerso = "XXXXXXXXXX"
       TxtPrénomsPerso = "YYYYYYYYYY"
       ListeDateEmbauchePerso = Date
       ListeSituationMatrimoniale = "Célibataire"
       ListeSexePerso = "Masculin"
     ......
       
       TxtAgePerso = ""
       TxtAfficherNombreEnfants = ""
       TxtExpérienceProfessionnelle = ""

       
       TxtMatriculePerso.SetFocus
    End If

end sub

----------------------------------------------------

Private Sub CmdActualiser_Click()
DataMAJPerso.recordset.addnew
DataMAJPerso.recordset.update
DataMAJPerso.Refresh
AfficherGrilleFamille
End Sub

erreur 3426: cette methode a ete annulée...

pour le troisieme jeu de code:

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
28
29
30
31
32
33
34
35
36
37
38
39
Private Sub CmdNouveau_Click()
 'On Error Resume Next ' NPE
    VMessage = "Etes-vous sûr de vouloir saisir les données d'un nouveau personnel?"
    VTitre = "Nouveau"
    VStyle = vbYesNo + vbQuestion + vbDefaultButton2
    VRéponse = MsgBox(VMessage, VStyle, VTitre)
    
    If VRéponse = vbYes Then
       DataMAJPerso.Recordset.AddNew
       
       ListeTitres = "M."
       TxtNomPerso = "XXXXXXXXXX"
       TxtPrénomsPerso = "YYYYYYYYYY"
       ListeDateEmbauchePerso = Date
       ListeSituationMatrimoniale = "Célibataire"
       ListeSexePerso = "Masculin"
     ......
       
       TxtAgePerso = ""
       TxtAfficherNombreEnfants = ""
       TxtExpérienceProfessionnelle = ""

       
       TxtMatriculePerso.SetFocus
    End If

end sub

----------------------------------------------------

Private Sub CmdActualiser_Click()
DataMAJPerso.recordset.addnew
DataMAJPerso.Recordset!MatriculePerso = TxtMatriculePerso
DataMAJPerso.Recordset!NomPerso = TxtNomPerso
DataMAJPerso.recordset.update
DataMAJPerso.Refresh
AfficherGrilleFamille
End Sub

erreur de compilation Impossible d'affecter à une propriété en lecture seule.

j'ai une liste longue de champ à renseigner dans la table personnel, comment faire?

[ProgElecT]

Bonjour

pour le deuxieme jeu de code:

Tu fais un addnew suivit d'un UpDate sens remplir de champs !
Un addnew prepare un jeux d'enregistrement vide que tu dois renseigner, si un de tes champs doit obligatoirement contenir une donnée, il y aura forcement un déclenchement d'erreur.

pour le troisieme jeu de code:

il semblerait que tu tentes de remplir un champs qui est auto-incrémenté, surement une clef primaire.

[PrincessKC]

oui c'est une clé primaire mais elle n'est pas auto incrementée, elle est de type texte.

comment contourner cette erreur de compilation?

[ProgElecT]

Quelle valeurs a la propriétés ReadOnly de ton DataMAJPerso ?
Pour ton utilisation il doit être absolument égal a False (valeur par défaut)