Discussion :

[damien40]

Bonjour à tous, alors voilà je travail sur une base ms-access j'ai actuellement un champs rempli par une requête. Ce que je voudrai faire si possible, c'est de modifier le contenu de ce champs si la requête revient null.

en gros lancer une deuxième requête si la première est null et attribuer le resultat de cette dernière dans mon champs.

j'espère que ma question est assez clair....

Merci d'avance.

bye

[damien40]

Re bonjour alors j'ai trouvé quelque chose en lisant des FAQ mais je ne sais pas trop coment adapter la syntax....

If Monchamps.text = "0" Then
Monchamps.text = Ma2èmerequête MON CHAMPS

COMMENT INDIQUER LE NOM DE LA REQUETE ?

MERCI D'avance

[damien40]

alors voilà 'ai une syntax mais elle ne semble pas fonctionner....

avez vous une idée?

If Texte205 = "" then
Texte205 = Texte207


donc je me dis dans ma petite tête de débutant en vb que si le champs Texte205 est null alors il prend la valeur du champs Texte207 mais çà ne fonctionne pas....

merci d'avance

[Falcdyr]

Je ne suis pas sur de la réponse mais essaye

Code :

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

1
2
3
4
 
If (Me.Texte205 = "" )then
    Me.Texte205 = Me.Texte207.Value
End If

En théorie ca devrait marcher. Si ça ne marche pas, essaye de passer par une variable intermediaire du genre:

Code :

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

1
2
3
4
5
6
 
dim Var as String
If (Me.Texte205 = "" )then
    Var = Me.Texte207
    Me.Texte205 = Var
End If

[mikeGo20]

Essaie avec ...

Code :

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

1
2
 
If IsNull(Texte205) then Texte205 = Texte207

Petite suggestion ....

Pour facilité l'entretient futur de votre application, vous devriez donner des noms significatifs à vos contrôles.

[Falcdyr]

D'ailleurs pour être sûr qu'un champs est vide tu peux faire:

Code :

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

1
2
3
4
 
If IsNull(Me.Texte205) Then
    Ton traitement
End If

Edit: Rofl devancé sur mon edit

[damien40]

bon alors déjà merci pour vos réponses.

ensuite effectivement c'est pas le top de laisser des champs nommés Texte205 ou autre mais là c juste pour le test.

je viens d'essayer en suivant la syntax suivante:

If (Me.Texte205 = "" )then
Me.Texte205 = Me.Texte207.Value
End If

mais çà ne fonctionne pas.

je teste la suite.

merci encore

[damien40]

la syntax avec la variable ne fonctionne pas non plus....

[damien40]

je précise aussi que actuellement le champs Texte207 est un champs indépendant et qu'il est rempli par une valeur par défaut "test"

[bernardmichel]

Bonjour !
Est-ce que la requête qui alimente ton control se trouve dans la source (Propriété | onglet "Données" | Source) ?

[damien40]

actuellement non puisqu'il s'agit d'un champs indépendant pour faire le test mais après oui.

parcontre je viens d'avance un peu. c'est avec le If qu'il semble y avoir un pb car si je fais

Me.texte205 = Me.Texte207.value

çà fonctionne. mais si je fais

If Me.Text205 = Null Then
Me.Texte205 = Me.Texte207.value
End If

et çà ne fonctionne pas.

[damien40]

alors la syntax qui fonctionne pour moi est la suivante:


If IsNull (Me.Text205) Then
Me.Text205 = Me.Texte207.value
End If


Voilà.

merci encore pour votre aide car en faisant un mix de toutes vos syntax et bien çà fonctionne!!

merci

[Falcdyr]

Vu que tu as ta réponse, il serait approprié que tu cliques sur le bouton

[damien40]

voilà c'est fait.

merci