quecdur
Messages postés22Date d'inscriptionmercredi 27 décembre 2006StatutMembreDernière intervention22 décembre 2010
-
13 juin 2008 à 15:18
quecdur
Messages postés22Date d'inscriptionmercredi 27 décembre 2006StatutMembreDernière intervention22 décembre 2010
-
16 juin 2008 à 14:02
Bonjour,
J'ai créer une BDD Clients.
J'aimerais sur le click d'un bouton, pouvoir ouvrir un formulaire selon certains critères, à savoir, les clients qui on un contrat en cours, à ce jour.
J'ai fait :
Private Sub Commande25_Click()
On Error GoTo Err_Commande25_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "CHANTIERSCommunicationsAJ"
If LDTriChantiers.Value = 2 Then
stLinkCriteria = "[RuptureDefinitive]=" & "[RuptureDefinitive]=< Date()" And "[RuptureDefinitive]<>''"
DoCmd.OpenForm stDocName, , , stLinkCriteria
End If
quecdur
Messages postés22Date d'inscriptionmercredi 27 décembre 2006StatutMembreDernière intervention22 décembre 2010 16 juin 2008 à 14:02
Bonjour,
Merci beaucoup de bien vouloir m'aider.
Je suis VRAIMENT TRES DEBUTANTE.
Tu as raison c'est du VBA. Désolée.
J'ai réussit à avancer.
Si j'execute mes critères 1 par 1 : cella marche.
If LDTriChantiers.Value = 2 Then
'critère sur particulier : fonctionne stLinkCriteria "[Particulier] 0"
'critère sur contrat en cours de prévis de rupture : fonctionne
stLinkCriteria = "[RuptureDefinitive] >= date()"
'critère sur contrat en cours : fonctionne
stLinkCriteria = "[RuptureDefinitive] is Null"
DoCmd.OpenForm stDocName, , , stLinkCriteria
End If
Mais pour les faire tous ensemble NON. J'ai pourtant mis des AND et des OR, comme par exemple : stLinkCriteria "[Particulier] 0" And "[RuptureDefinitive] >= date()" Or "[RuptureDefinitive] is Null"
Ce qui me donne le message d'erreur : Incompatibilité de type !