1 membre
Connectés : ( personne )
- La Charte du Forum - Forum - Questions générale
Sujet n° 574 |
[acc2010_32bits] Modifier la sources s'un sous-formulaire en vba |
le 18/01/2012 : 12:43 par seb
visiteur |
[Access 2010 32 sur Seven 64] Un Formulaire avec des listes modifiables indépendantes et un sous formulaire. ------------------------------------ Bonjour, J'essaie de modifier la source de mon sous formulaire. Sur l'evenement apres mise a jour de chacune de mes listes j'ai mis le code suivant : Code : Private Sub LM_Nom_AfterUpdate() Dim reqstr As String reqstr = "SELECT Tb_contacts.CompanyName, Tb_contacts.LastName, Tb_contacts.FirstName, Tb_contacts.BusinessAddressCountry, Tb_contacts.BusinessTelephoneNumber, Tb_contacts.MobileTelephoneNumber, Tb_contacts.Email1Address, Tb_contacts.Type, Tb_contacts.VIPStatus, Tb_contacts.OWF, Tb_contacts.N°_contact, Tb_contacts.Zone_pays" _ & "FROM Tb_contacts" _ & "WHERE (((Tb_contacts.LastName) Like (IIf(IsNull([Formulaires]![F_principal]![LM_Nom])," * ",[Formulaires]![F_principal]![LM_Nom])))" _ & "AND ((Tb_contacts.BusinessAddressCountry) Like (IIf(IsNull([Formulaires]![F_principal]![LM_Pays])," * ",[Formulaires]![F_principal]![LM_Pays])))" _ & "AND ((Tb_contacts.Type) Like (IIf(IsNull([Formulaires]![F_principal]![LM_Type])," * ",[Formulaires]![F_principal]![LM_Type])))" _ & "AND ((Tb_contacts.VIPStatus) Like (IIf(IsNull([Formulaires]![F_principal]![LM_Status])," * ",[Formulaires]![F_principal]![LM_Status]))" _ & "Or (Tb_contacts.VIPStatus) Like (IIf(IsNull([Formulaires]![F_principal]![LM_status2])," * ",[formulaires]![F_principal]![LM_status2])))" _ & "AND ((Tb_contacts.OWF) Like (IIf(IsNull([Formulaires]![F_principal]![LM_OWF])," * ",[Formulaires]![F_principal]![LM_OWF])))" _ & "AND ((Tb_contacts.Zone_pays) Like (IIf(IsNull([Formulaires]![F_principal]![LM_Zone])," * ",[Formulaires]![F_principal]![LM_Zone]))));" Me.Req_sous_F_principal_sous_formulaire.Form.RecordSource = reqstr Me.Req_sous_F_principal_sous_formulaire.Requery End Sub
Le probleme c'est que j'obtiens une erreur d'execution 13 : incompatibilité de type.. pourtant tout est du texte je me suis planté où ? Rectifié par 3Stone le 18/01/2012 : 13:21 |
|
|
Réponse n° 1 -------- le 18/01/2012 : 13:29 par 3Stone
Administrateur
|
Bonjour,
Déjà, tu as un problème de concaténation...
Si je prends un extrait: Code : Tb_contacts.Zone_pays" _ & "FROM Tb_contacts"
en réalité, tu obtiens ici :
FranceFROM Tb_contact
sans espace entre les valeurs... Il faut donc prendre l'habitude décrire les concaténations des chaînes de la façon suivante:
Tb_contacts.zone_pays" _ & " FROM Tb_contacts"
Cordialement, Pierre(3stone)
PS: Pour placer du code, il faut le coller, le resélectionner et ensuite choisir l'outil "Insérer du code". |
|
|
sujet actif
sujet clos
Important!
Nouveau message -
Rectifier message
Clôturer sujet
Remonter
|