[VB6] Remplir et MAJ de tables Access 97 avec Data Control

Version imprimable

Bonjour à tous,

je veux corriger un code qui ne fonctionne pas;

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

Code:

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:

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:

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

24/03/2010, 12h59
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.

alors pour le premier jeu:

Code:

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:

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

Citation:

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

pour le troisieme jeu de code:

Code:

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

Citation:

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?

24/03/2010, 17h41
ProgElecT

Bonjour

Citation:

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.

Citation:

pour le troisieme jeu de code:

il semblerait que tu tentes de remplir un champs qui est auto-incrémenté, surement une clef primaire.
24/03/2010, 18h06
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?
24/03/2010, 19h15
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)
24/03/2010, 19h59
PrincessKC

Citation:

Envoyé par 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)

cette propriété est dejà à false; et l'execution donne toujours la meme erreur:

Code:

impossible d'affecter à une propriete en lecture seule

le data control est mis en surbrillance.

mon autre souci est comment enregistrer ou modifier cette quinzaine de champ de datamajperso en une seule fois?

merci.
25/03/2010, 00h32
Delbeke
Perso, je n'aime pas rop cette syntaxe avec le point d'exclamation. Je lui prefére nettement la suivante
Code:

1 2 3 DataMAJPerso.Recordset.AddNew DataMAJPerso.Recordset("MatriculePerso") = txtMaValeur DataMAJPerso.Recordset.Update
Il s'agit peut êre d'une erreur de copier coller, mais une chose m'interpelle
Dans cette ligne

Code:

DataMAJPerso.recordset.addnew

Vb ne semble pas avoir converti le mot recorset en Recordset (majuscule en première lettre). Si c'est bien le cas, vérifie que le name du data control posé sur ta feuille est bien correctement orthographié. Il doit être DataMAJPerso

bonjour,
j'ai testé encore:

Code:

1
2
3
4
5
6
7
8
9
10
11
Private Sub CmdActualiser_Click()
DataMAJPerso.Recordset.AddNew
DataMAJPerso.Recordset("MatriculePerso") = TxtMatriculePerso
DataMAJPerso.Recordset("TitrePerso") = ListeTitres
DataMAJPerso.Recordset("NomPerso") = TxtNomPerso
DataMAJPerso.Recordset("PrénomsPerso") = TxtPrénomsPerso
DataMAJPerso.Recordset.Update
DataMAJPerso.Refresh
AfficherGrilleFamille
End Sub

Code:

1
2
erreur 3426
cette methode a ete anulee par un objet associé

et l'erreur met en surbrillance le data

je me demande s'il est necessaire de declarer un addnew dans le bouton nouveau?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
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

je voudrais noter aussi le recordsource de mon data:

Code:

1
2
3
4
 
DataMAJPerso.RecordSource = "SELECT T01_Personnels.* " _
    & "From T01_Personnels " _
    & "ORDER BY T01_Personnels.NomPerso, T01_Personnels.PrénomsPerso;"

ainsi il permet d'afficher la liste du personnel dans un DBlist.

25/03/2010, 19h05
Delbeke
Ben la tu nous décourage un peu. Tu poses des questions aux quelles il a déjà été répondu et tu ne réponds pas aux questions qu'on te pose

Le système pour mettre à jour une table Access est le suivant

Ajouter un data control sur la feuille. Son nom par défaut est data1
Au choix, soit faire la liason du data control avec la base access via les propriétés (DataBaseName et RecordSource), soit par code.
Code:

1 2 3 Data1.DataBaseName="Chemin_De_La_Base" Data1.RecordSource="Nom_De_La_Table" Data1.Refresh
Quand on veut ajouter un enregistrement, on fait
Code:

1 2 3 4 5 Data1.RecordSet.Addnew Data1.RecordSet("Nom_Du_Champ1")=ValeurDuChamp1 Data1.RecordSet("Nom_Du_Champ2")=ValeurDuChamp2 'etc.. Data1.RecordSet.Update
Maintenant la bas de données Access est pourvue d'un mecanisme qui peut interdire d'ajouter un enregistrement sous certaines conditions
Exemple ; Ajouter des lignes de factures dans la table Fact_Lignes s'il n'y a pas d'entête de cette facture dans la table Fact_Entete. On appele ce mécanisme l'intégrité référentielle. Si tu as Access, tu peux vérifier en cliquant sur l'outil relations.

Et sois plus précis quand tu donnes des infos

Citation:

et l'erreur met en surbrillance le data

ne veux rien dire pour moi. Je ne sais pas ce que veux dire data!
Quand vb met en surbrillance, c'est généralement dans une ligne, voire toute la ligne.