Discussion :

[jaquot14]

Bonjour à tous,
Je vous recontacte car j'ai un autre souci avec le code de Hyperion13 qui fonctionne très bien dans certains formulaires.
Dans les fichier essai que je vais joindre j'ai ajouté:
un formulaire: F_inscrip_acheteurs
une requête pour la liste de choix acheteurs
une table liée: Acheteurs_C
je voudrais que le code vba du formulaire F_inscrpt_acheteur vérifie que le champ NUMEROA et le champ DT ne soient déjà inscris dans la table Acheteurs_C.

je me retrouve avec un débogage ligne 6

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
 
Private Sub benregparticipant_Click()
 
    DoCmd.SetWarnings False
    ' verrifie si l'acheteur est d?j? inscrit
If DCount("*", "Acheteurs_C", "NUMEROA = '" & Me.NUMEROA & "' AND DT = '" & Me.DT & "'") = 0 Then
 
    Me.NEXPA.Value = Format(Nz(DMax("[NEXPA]", "[Acheteurs_C]"), 0) + 1)
 
    'inscrption dans la table acheteurs
    CurrentDb.Execute "INSERT INTO Acheteurs_C (NEXPA, NUMEROA, CIVILITEA, NOMA, PRENOMA, ADRESSEA, CPA, VILLEA, REGIONA, EMAIL, TELEPHONEA, CLUBA, SOUCHEA, QUALITEA, DT, NPA)" _
    & " In 'C:\Users\jacques\Documents\ESSAI\FICHIER_BASE.accdb'" _
    & " VALUES (" & Me.NEXPA & ", '" & Me.NUMEROA & "', '" & Me.CIVILITEA & "', '" & Me.NOMA & "', '" & Me.PRENOMA & "', '" & Me.ADRESSEA & "', '" & Me.CPA & "', '" & Me.VILLEA & "', '" & Me.REGIONA & "', '" & Me.EMAIL & "', '" & Me.TELEPHONEA & "', '" & Me.CLUBA & "', '" & Me.SOUCHEA & "', '" & Me.QUALITEA & "', '" & Me.DT & "', '" & Me.NPA & "')", dbFailOnError
 
    rep = MsgBox("L'ACHETEUR EST ENREGISTRE", vbOKOnly, "CONFIRMATION")
DoCmd.SetWarnings True
Else
    MsgBox "L'ACHETEUR EST DEJA ENREGISTRE DANS LA TABLE ACHETEURS !", vbOKOnly, "AFFIRMATION"
 End If
 
End Sub

j'espère que je me suis bien expliqué.
NUMEROA est numérique et DT un champ date
je ne sais pas si cela est possible.
lorsque je mets d'autre champ, cela fonctionne.
Désolé de faire encore appel a vous.
Merci
cordialement

[hyperion13]

Pour info
Lorsque la variable est :
- numérique, pas de cote
- string, simple cote
- date, octotrophe

De vous à moi, quel intérêt de tester par du code vba la présence d'une ou +sieurs valeurs, alors que vous avez créé une combobox ?
D'ailleurs, un num + date ne vous permettra jamais d'identifier clairement l'identité d'un acheteur. Où alors un truc m'échappe.

EDIT 19:28 Comment procédez-vous pour incrémenter NUMEROA ? Saisie manuelle ou autre ?

[jaquot14]

Bonjour hyperion13,
Merci de me répondre
j'ai un formulaire (F_inscrip_acheteurs1) qui enregistre les acheteurs avec un numéro unique (NUMEROA) dans une base_N_acheteurs.
J'ai un autre formulaire (F_inscrip_acheteurs) avec le combobox qui me permet de récupérer l'acheteur dans la base_N_acheteurs et l'enregistrer dans la table acheteur_C .
le code vba me permet de controler que cet acheteur( par NUMEROA) et avec la date (DT) que cette personne ne sera inscrit qu'une seule fois à chaque date du jour.
exemple:
1 du 5/12/1019 une seule fois
par contre le lendemain, je dois pouvoir l'inscrire:
1 du 6/12/2019
cette table acheteur_C me sert pour des calcul et des synthèses pour ma base de donnée.
je n'ai pas bien compris ta réponse:
pour string et numero, je ne connais pas grand chose en vba.
je cherche sur le forum pour trouver les code qui m'intéresse et j'essaie de les adapter.
merci à toi de m'aider.
Cordialement

[hyperion13]

je n'ai pas bien compris ta réponse:
pour string et numero, je ne connais pas grand chose en vba.

Code :

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

1
2
3
    CurrentDb.Execute "INSERT INTO UneTable (ChampNum, ChampTxt, ChampDate)" _
    & " In 'C:\Users\....\FICHIER_BASE.accdb'" _
    & " VALUES (" & Me.VariableNum & ", '" & Me.VariableTxt & "', #" & Me.VariableDate & "#)", dbFailOnError

[hyperion13]

Puisque l'acheteur ne peut-être enregistré qu'une seule fois par jour, il faut vérifier que la valeur DT soit égale une seule fois à la date système de votre machine (L4) et donc insérer la date système (L9)

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
Private Sub benregparticipant_Click()
DoCmd.SetWarnings False
' verrifie si l'acheteur est déjà inscrit
If DCount("*", "Acheteurs_C", "NUMEROA = " & Me.NUMEROA & " AND DT = # " & Format(Date, "mm/dd/yyyy") & "#") = 0 Then
    Me.NEXPA.Value = Format(Nz(DMax("[NEXPA]", "[Acheteurs_C]"), 0) + 1)     
    'inscrption dans la table acheteurs
    CurrentDb.Execute "INSERT INTO Acheteurs_C (NEXPA, NUMEROA, CIVILITEA, NOMA, PRENOMA, ADRESSEA, CPA, VILLEA, REGIONA, EMAIL, TELEPHONEA, CLUBA, SOUCHEA, QUALITEA, DT, NPA)" _
    & " In 'C:\Users\jacques\Documents\ESSAI\FICHIER_BASE.accdb'" _
    & " VALUES (" & Me.NEXPA & ", '" & Me.NUMEROA & "', '" & Me.CIVILITEA & "', '" & Me.NOMA & "', '" & Me.PRENOMA & "', '" & Me.ADRESSEA & "', '" & Me.CPA & "', '" & Me.VILLEA & "', '" & Me.REGIONA & "', '" & Me.EMAIL & "', '" & Me.TELEPHONEA & "', '" & Me.CLUBA & "', '" & Me.SOUCHEA & "', '" & Me.QUALITEA & "', '" & Format(Date, "mm/dd/yyyy") & "', '" & Me.NPA & "')", dbFailOnError
    MsgBox "L'ACHETEUR EST ENREGISTRE", vbOKOnly, "CONFIRMATION"
DoCmd.SetWarnings True
Else
    MsgBox "L'ACHETEUR EST DEJA ENREGISTRE DANS LA TABLE ACHETEURS !", vbOKOnly, "AFFIRMATION"
End If
End Sub

EDIT 14:01 pensez à clôturer ce billet.

[jaquot14]

Bonjour hypérion13,
Merci pour vos réponse, je vais tester votre code qui me semble bien par rapport à ce que j'avais fait.
Cordialement

[jaquot14]

Bonjour,
Merci pour votre code hyperion13, j'ai effectué des testes en réseau et cela fonctionne parfaitement bien.
c'est supère.
cordialement