Discussion :

[sonia71640]

voila , donc je souhaite obtenir la liste des prospects. Je peux choisir les champs que je souhaite ou tous, je peux également ajouter des critères. Ma requete marche. J'ai fais un etat instantané donc j'ai plus a programmer l'etat pr que les resultats des requetes saffichent dans les bonnes txtbox. Par contre, quand tous les champs ne sont pas selectionnés, au lieu d'avoir un espace vide je souhaiterais mettre "/" mais access me di qu'il ne peut pas écrire dans les txtbox de l'etat.

Voici ce que j'ai fais :






Private Sub Report_Open(Cancel As Integer)

If Forms!listeprospects.cochnum.Value = False Then
num_prosp = "/"
End If


If Forms!listeprospects.cochnom.Value = False Then
nom_prosp = "/"
End If


If Forms!listeprospects.cochpren.Value = False Then
prenom_prosp = "/"
End If


If Forms!listeprospects.cochtelfix.Value = False Then
telfixe_prosp = "/"
End If


If Forms!listeprospects.cochtelmob.Value = False Then
telport_prosp = "/"
End If


If Forms!listeprospects.cochdatapel.Value = False Then
datappel = "/"
End If


If Forms!listeprospects.cochsitfam.Value = False Then
situat_fami = "/"
End If


If Forms!listeprospects.cochnbenfs.Value = False Then
nb_enfs = "/"
End If


If Forms!listeprospects.cochprof.Value = False Then
SITUATION_PROF = "/"
End If


If Forms!listeprospects.cochsal.Value = False Then
SALAIRE = "/"
End If


If Forms!listeprospects.cochrdv.Value = False Then
RDV = "/"
End If


If Forms!listeprospects.cochtypapp.Value = False Then
typappartch = "/"
End If


If Forms!listeprospects.cochtypstand.Value = False Then
type_standing = "/"
End If


If Forms!listeprospects.cochlieu.Value = False Then
endroitch = "/"
End If


If Forms!listeprospects.cochdatch.Value = False Then
DATECH = "/"
End If


If Forms!listeprospects.cochbudg.Value = False Then
BUDGET = "/"
End If


If Forms!listeprospects.cochtps.Value = False Then
TPSESTIMERESTER = "/"
End If


If Forms!listeprospects.cochapprecia.Value = False Then
APPRECIATION_APPART = "/"
End If


If Forms!listeprospects.cochsouhai.Value = False Then
SOUHAIT = "/"
End If
End Sub


Merci d'avance

[cafeine]

Hello,

avant toute chose, merci d'aller sur ton message de cliquer sur le bouton
et de corriger le langage SMS / Texto et de mettre des balises code.