Discussion :

[mishkai]

Bonjour à tous,

Voilà, je ne trouve pas le code pour que lorsque j'affiche le champ du table sur un formulaire il ne prenne pas en compte les lignes a blanc du champ.

Je m'explique j'ai une table ou il y a un champ qui s'appelle Company, dedans je recupere plusieurs info tel que l'adresse, le tel, le tel port, l'email, et le site internet. Il y a des cas ou nous n'avons pas d'email ou de site ou de tel. Dans ce cas je ne veux pas qu'une ligne a blanc s'affiche sur le formulaire.

Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Private Function GetCompany() As String
Dim Str As String
Str = " To: " & TxtTo & Chr(13) & Chr(10) & TxtCompany & Chr(13) & Chr(10) & "Address:" & TxtAddress & Chr(13) & Chr(10) & "Phone:" & TxtPhone & Chr(13) & Chr(10) & "H/P:" & TxtCellular & Chr(13) & Chr(10) & "E-Mail:" & TxtMail & Chr(13) & Chr(10) & "Web:" & TxtWeb & Chr(13) & Chr(10)
GetCompany = Str
 
End Function

Getcompany est appeler ensuite par un insert to TABLE par la suite. Sur le formulaire, j'affiche le champs dans un textbox

Merci a ceux qui prendront le temps de me répondre!

[LedZeppII]

Bonjour,

peut-être quelque chose comme ça ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Function GetCompany() As String
Dim Str As String
Str = " To: " & TxtTo & vbCrLf & TxtCompany & vbCrLf & _
      IIF(Nz([TxtAddress])<>"", "Address:" & TxtAddress & vbCrLf, "") & _
      IIF(Nz([TxtPhone])<>"", "Phone:" & TxtPhone & vbCrLf, "") & _
      IIF(Nz([TxtCellular])<>"", "H/P:" & TxtCellular & vbCrLf, "") & _
      IIF(Nz([TxtMail])<>"", "E-Mail:" & TxtMail & vbCrLf, "") & _
      IIF(Nz([TxtWeb])<>"", "Web:" & TxtWeb & vbCrLf, "")
GetCompany = Str
 
End Function

A+