Discussion :

[PrincessKC]

bonsoir à tous,
je viens encore vers vous car j'ai un souci;

j'utilise dao pour la connexion avec une base access97;

j'effectue actuellement une insertion sur une table;

j'ai recemment ajouté une nouvelle colonne à la dite table et ajouter un champ sur mon formulaire;
j'ai lié le champ au data
mais je n'arrive plus à enregistrer?!

aidez-moi svp

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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
 
Private Sub CmdNouvelle_Click()
On Error Resume Next ' NPE
    Dim VMessage, VStyle, VRéponse, VTitreEtat, VDernierNuméro
 
    VMessage = "Etes-vous sûr de vouloir saisir les données d'un nouveau personnel de mission?"
    VTitre = "Nouveau"
    VStyle = vbYesNo + vbQuestion + vbDefaultButton2
    VRéponse = MsgBox(VMessage, VStyle, VTitre)
 
    If VRéponse = vbYes Then      
 
'recherche du dernier numero
        DataDernierNuméro.DatabaseName = g_strChemin_Base
       DataDernierNuméro.RecordSource = "SELECT Max(Right([MatriculePerso],3)) AS DernierNuméro " _
       & "FROM T01_AutrePersonnel " _
       & "WHERE ((Left([MatriculePerso],3)='APM'));"
 
 
       DataDernierNuméro.Refresh
       VDernierNuméro = DataDernierNuméro.Recordset("DernierNuméro") + 1
 
 
'enregistrement du nouveau personnel
 DataMAJPersonnel.Recordset.AddNew
 
 
       If DataDernierNuméro.Recordset("DernierNuméro") < 10 Then
          TxtMatriculePerso = "APM" & "00" & VDernierNuméro
 
       ElseIf DataDernierNuméro.Recordset("DernierNuméro") >= 10 And DataDernierNuméro.Recordset("DernierNuméro") < 100 Then
          TxtMatriculePerso = "APM" & "0" & VDernierNuméro
 
       ElseIf DataDernierNuméro.Recordset("DernierNuméro") >= 100 And DataDernierNuméro.Recordset("DernierNuméro") < 1000 Then
          TxtMatriculePerso = "APM" & VDernierNuméro
 
       ElseIf DataDernierNuméro.Recordset("DernierNuméro") >= 1000 Then
          TxtMatriculePerso = "AP" & VDernierNuméro
 
       End If
       '-----------------------------------------------------------------
        If TabTypePersonnel.Tab = 0 Then ' Chauffeur 
            ListeTypePersonnel = "AutrePersoChauffeur"
        ElseIf TabTypePersonnel.Tab = 1 Then ' Autre personnel Interne
            ListeTypePersonnel = "AutrePersoInterne"
        ElseIf TabTypePersonnel.Tab = 2 Then ' Autre personnel Externe
            ListeTypePersonnel = "AutrePersoExterne"
        End If
    End If
 
    TxtFichierPhotoPerso = "\\srv\Systeme\GAP\Photo\PhotoNonDisponible.bmp"
 
    TxtNomPerso.SetFocus
 
End Sub

Code :

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

1
2
3
4
5
6
 
DataMAJPersonnel.DatabaseName = g_strChemin_Base
 
    DataMAJPersonnel.RecordSource = "SELECT T01_AutrePersonnel.* " _
    & "From T01_AutrePersonnel " _
    & "ORDER BY T01_AutrePersonnel.NomPerso, T01_AutrePersonnel.PrénomsPerso;"

la commande actualiser fait un refresh sur les données et affiche les resultats dans un tableau

Code :

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

1
2
3
4
5
 
Private Sub CmdActualiser_Click()
           DataMAJPersonnel.Refresh
           AfficherGrillePersonnel
End Sub

aidez-moi svp

[Delbeke]

Heu, il ne manquerais pas un

Code :

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

DataMAJPersonnel.Recordset.Update

vers la fin de ta sub "CmdNouvelle_Click()" ?

[PrincessKC]

c'est bizarre! le code marchait bien sans data.recordset.update?!

ok, j'ai ajouté le update à la fin mais je reçois une erreur (cf pieces jointes)