Discussion :

[torquemada]

Bonsoir à tous
Soit un formulaire avec un sous formulaire feuille de données( sfdetailcourse).

Sur l'evènement après mise à jour d'un champ [NDriver] du sous formulaire le code suivant ce déclenche.

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
Private Sub NDriver_AfterUpdate()
 
Dim doublon As Integer
Dim strMessage As String
 
       doublon = DCount("[NDriver]", "tbldetailcourse", "Ncourse=" & ([Forms]![frmcourse]![sfdetailcourse].Form!NCourse) And "[NDriver] =" & ([Forms]![frmcourse]![sfdetailcourse].Form!NDriver))
 
 
 
If doublon >= 1 Then
    strMessage = " Vous avez choisi  un jockey qui est déjà dans la course"
    MsgBox strMessage, vbExclamation
 
 Else
 End If
 
End Sub

Mais là access me signale une incompatibilité de type. Les champs sont tous des entiers longs.
Si je ne mets que l'un ou l'autre des critères la fonction marche ,mais bien sûr le résultat n'est pas le bon.

Merci de m'avoir consacré de votre temps

[ClaudeLELOUP]

Bonjour,

J'aurais plutôt écrit ceci

Code :

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

doublon = DCount("[NDriver]", "tbldetailcourse", "Ncourse=" & ([Forms]![frmcourse]![sfdetailcourse].Form!NCourse) & " And [NDriver] =" & ([Forms]![frmcourse]![sfdetailcourse].Form!NDriver))

«... Form!NCourse) & " And [NDriver] ="... »

[torquemada]

Le jour ou je comprendrai ces @!!zz de guillemets
En tous les cas merci

[ClaudeLELOUP]

Bonjour;

Ce n’est pas une question de guillemets !

Tu veux écrire quelque chose comme ceci pour le 3e paramètre de la fonction

Code :

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

"Ncourse=5  And [NDriver] =2"

Mais au lieu du 5, tu veux prendre la valeur d’un contrôle de ton formulaire.

Raisonne comme ceci :
- tu coupes le texte en 3 morceaux.



- tu peux écrire comme ceci

Code :

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

"Ncourse=" & 5 & "  And [NDriver] =2"

avec des esperluettes (« & ») pour concaténer les morceaux de texte ;

- tu remplaces maintenant 5 par le contenu de ton contrôle

Code :

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

"Ncourse=" & [Forms]![frmcourse]![sfdetailcourse].Form!NCourse & "  And [NDriver] =2"