Forum - Questions générale - Sujet n°574

[]
Nombre de membres 1 membre
Connectés : ( personne )
 

La Charte du Forum - La Charte du Forum

Forum - Forum
Questions générale - Questions générale


clos par 3Stone le 26/02/2012 : 14:55  Sujet n° 574  [acc2010_32bits] Modifier la sources s'un sous-formulaire en vba

le 18/01/2012 : 12:43
par seb

Anonyme

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
Ecrire à seb  sujet clos  Haut
Réponse n° 1
--------
le 18/01/2012 : 13:29
par 3Stone

Anonyme

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".
  clos par 3Stone le 26/02/2012 : 14:55  Haut
actif sujet actif   clos sujet clos   Important! Important!   Nouveau Nouveau message   -   Rectifier Rectifier message   Clôturer Clôturer sujet   Remonter Remonter
[]
Catégories de discussion  Forum 



Haut