Discussion :

[hallecathdev]

Bonjour!

J'ai une base de données accessible par plusieurs utilisateurs en même temps.

J'ai inscris ce code dans un des formulaires "Registre des appels" lorsqu'on clique sur le bouton "Enregister".

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
 
 
Private Sub Commande9_Click()
 
     If IsNull(Me.date_appel) Then
        MsgBox "Vous devez remplir le champ Date appel dans formulaire", vbOKOnly
        Exit Sub
     End If
     If IsNull(Me.systeme) Then
        MsgBox "Vous devez remplir le champ Systèmes", vbOKOnly
        Exit Sub
     End If
     If IsNull(Me.motif_appel) Then
        MsgBox "Vous devez remplir le champ Motifs d'appel", vbOKOnly
        Exit Sub
     End If
     If IsNull(Me.traite_par) Then
        MsgBox "Vous devez remplir le champ Traité par", vbOKOnly
        Exit Sub
     End If
     If IsNull(Me.requerant) Then
        MsgBox "Vous devez remplir le champ Requérant", vbOKOnly
        Exit Sub
      End If
     If IsNull(Me.duree) Then
        MsgBox "Vous devez remplir le champ Durée - minutes", vbOKOnly
        Exit Sub
      End If
 
retour = MsgBox("Voulez-vous enregistrer les modifications apportées au formulaire ?", vbYesNo + vbExclamation, "Enregistement du formulaire")
 
If retour = 6 Then
 
   Dim requete As String
 
   requete = "INSERT INTO gestion_appels (date_appel, systeme, motif_appel, traite_par, requerant, duree, commentaires) VALUES ('"
   requete = requete & date_appel.Value & "' , '"
   requete = requete & systeme.Value & "', '"
   requete = requete & motif_appel.Value & "', '"
   requete = requete & traite_par.Value & "', "
   requete = requete & requerant.Value & "', '"
   requete = requete & duree.Value & "', '"
   requete = requete & commentaires.Value & " );"
 
   DoCmd.Save
   MsgBox "Mise à jour effectué"
   DoCmd.Close
 
End If
 
End Sub

J'aimerais que les utilisateurs qui sont connectés en même temps à la base de données puisse enregistrer leurs données simultanément.

Présentement, lorsqu'on clique sur le bouton "Enregister", ça dit impossible.


Est-ce qu'il y a du code à inscrire pour que tous les utilisateurs puisse enregistrer en même temps?

Un GROS merci à celui qui m'aidera!

[nico84]

Bonjour,

Je ne vois rien dans ce code qui exécute la requete et il est probable qu'elle serait en erreur car il manque une ' à la fin (de plus duree est probablement numérique...)

Code :

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

currentdb.execute requete, dbfailonerror

exécute la requete et renvoie un message d'erreur explicite en cas de problème

A quoi sert docmd.save ?

Est-ce qu'il y a du code à inscrire pour que tous les utilisateurs puisse enregistrer en même temps?

Access est naturellement multi-utilisateur et il est impossible que 2 utilisateurs valident exactement en même temps