HELP ! s'il vous plais

Question

Bonjour,
je debute dans c monde complexe qu'est la programation sous vba access. je voudrais  ecrire un petit programme qui en fonction 
si le champs code est vide il me fait un operation sinon il me revoie la valeur du champs code. Mais voila il me renvoi bien la valeur du champs code quand elle n'est pas vide mais me renvoi erreur quand elle est vide. aider moi ca doit etre tous simple. je vous ecrit le code que j'ai mit 

Public Function e2(ref As String, code As String) As String
If  code = "" Then   'si le champs code est vide alors


  ref = Format((ref), "00000")   ' il change le format du champs ref
   
 Else e2 = code  'sinon il me renvoie le champs code
end If
e2=ref
end Function  

voila ou je bloque il faudrais que si ce n'est pas vide e2 soit egal a ref

tony2madinina · Answer

J'ai simplifier les chose mais il me renvoie toujour erreur quand le champs est vide :'(

Public Function x(ref As String, code As String) As String
If code = ("") Then    'si le champs code est vide alors


  x = Format((ref), "00000")   ' il change le format du champs ref
   
Else: x = code
End If
End Function

saebe · Answer

Salut



Ta question n'est pas tr&#232;s claire... essaie avec un example.

peut-&#234;tre:

    ... format$(...)

Else

    x = code  'sinon il me renvoie le champs code

end If


?


 saebe

cs_sangho · Answer

Public Function e2(ref As String, code As String) As StringIf  code "" or isnull(code) true Then   'si le champs code est vide alors
   e2  = Format(ref, "00000")   ' il change le format du champs ref
Else 
   e2 = code  'sinon il me renvoie le champs code
end If
end Function

Essai sa ...
Sangho

tony2madinina · Answer

quand je tape le code suivant la fonction ne s'execute pas quand le champs code n'est pas vide il me retourne #Erreur
je sais pas pourquoi ... :(

Public Function x(ref As String, code As String) As String
If code = ("") Then    'si le champs code est vide alors


  x = Format((ref), "00000")   ' il change le format du champs ref
   
Else: x = code
End If
End Function

PCPT · Answer

salut,

&#231;&#224; veut dire quoi "vide", tu y mets une variable vide? ou ou n'y met rien....

cad, comment appelles-tu cette fonction

MaChaine= x (a)



c'est &#231;&#224;?

(indiquer l'erreur renvoy&#233; aurait sans doute r&#233;pondu)

HELP ! s'il vous plais

5 réponses

Discussions similaires