A voir également:
- [access]source de controle d'un champ
- Controle parental pc - Guide
- Controle de compte utilisateur - Guide
- Consultez le code source de cette page pix - Forum Réseaux sociaux
- Erreur de somme de contrôle - Forum Logiciels
- Le nom du champ de tableau croisé dynamique n'est pas valide - Forum Excel
3 réponses
phil_232
Messages postés
286
Date d'inscription
jeudi 6 décembre 2007
Statut
Membre
Dernière intervention
12 juin 2008
33
31 déc. 2007 à 00:53
31 déc. 2007 à 00:53
Private Sub cboID_ARTICLE_Change()
Dim db As Object
Dim rs As Object
On Error GoTo Err_cboID_ARTICLE_Change
Set db = DBEngine(0)(0)
Set rs = db.OpenRecordset("SELECT TOP 1 ID_BRAND FROM Expenses WHERE ID_SHOP = " & Me.cboID_SHOP & " AND ID_ARTICLE = " & Me.cboID_ARTICLE & " GROUP BY ID_BRAND ORDER BY Count(ID_BRAND) DESC")
Me.cboID_BRAND.DefaultValue = rs(0)
Exit_cboID_ARTICLE_Change:
Set rs = Nothing
Set db = Nothing
Exit Sub
Err_cboID_ARTICLE_Change:
MsgBox Err.Description
Resume Exit_cboID_ARTICLE_Change
End Sub
Dim db As Object
Dim rs As Object
On Error GoTo Err_cboID_ARTICLE_Change
Set db = DBEngine(0)(0)
Set rs = db.OpenRecordset("SELECT TOP 1 ID_BRAND FROM Expenses WHERE ID_SHOP = " & Me.cboID_SHOP & " AND ID_ARTICLE = " & Me.cboID_ARTICLE & " GROUP BY ID_BRAND ORDER BY Count(ID_BRAND) DESC")
Me.cboID_BRAND.DefaultValue = rs(0)
Exit_cboID_ARTICLE_Change:
Set rs = Nothing
Set db = Nothing
Exit Sub
Err_cboID_ARTICLE_Change:
MsgBox Err.Description
Resume Exit_cboID_ARTICLE_Change
End Sub
J'ai essayé cette proposition sans succès, il me disait qu'il n'y avait pas d'enregistrement en cours...
J'ai trouvé une autre solution sui consiste à intégrer un sous formulaire qui est filtré selon les champs saisies
Private Sub Commande39_Click()
Dim strcritere As String
strcritere = ""
If Not IsNull(Me.cepage) Then
strcritere = "([nomcepage]='" & Me.cepage & "')"
End If
If Not IsNull(Me.pays) Then
If strcritere <> "" Then strcritere = strcritere & "and"
strcritere = strcritere & "([codepays]=" & Me.pays & ")"
End If
If Not IsNull(Me.terroir) Then
If strcritere <> "" Then strcritere = strcritere & "and"
strcritere = strcritere & "([coderegion]=" & Me.terroir & ")"
End If
If Not IsNull(Me.vin) Then
If strcritere <> "" Then strcritere = strcritere & "and"
strcritere = strcritere & "([nomvin]like'" & Me.vin & "*')"
End If
MsgBox strcritere
Me!resultat.Form.Filter = strcritere
Me!resultat.Form.FilterOn = True
End Sub
etc...
J'ai trouvé une autre solution sui consiste à intégrer un sous formulaire qui est filtré selon les champs saisies
Private Sub Commande39_Click()
Dim strcritere As String
strcritere = ""
If Not IsNull(Me.cepage) Then
strcritere = "([nomcepage]='" & Me.cepage & "')"
End If
If Not IsNull(Me.pays) Then
If strcritere <> "" Then strcritere = strcritere & "and"
strcritere = strcritere & "([codepays]=" & Me.pays & ")"
End If
If Not IsNull(Me.terroir) Then
If strcritere <> "" Then strcritere = strcritere & "and"
strcritere = strcritere & "([coderegion]=" & Me.terroir & ")"
End If
If Not IsNull(Me.vin) Then
If strcritere <> "" Then strcritere = strcritere & "and"
strcritere = strcritere & "([nomvin]like'" & Me.vin & "*')"
End If
MsgBox strcritere
Me!resultat.Form.Filter = strcritere
Me!resultat.Form.FilterOn = True
End Sub
etc...
