Discussion :

[micbett]

Bonjour,
Je commence à m'essayer à l'écriture de code et j'ai un soucis :
J'ai un formulaire issu d'une requête.
Dans ce formulaire j'ai un champs qui peu de temps en temps être nul, quand c'est le cas je voudrais qu'il prenne la valeur d'un autre champs qui se trouve dans ce même formulaire.
Voila ce que j'ai essayé mais ca ne marche pas
Dans un module j'ai écris :

Code :

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

1
2
3
4
5
6
7
Public Sub HrsMdlDep()
     Dim Hrs As Integer
     Dim RemHrs As Integer
     If IsNull(Forms![ListPiecesPrev]!Hrs.Value) Then
          Hrs = RemHrs
     End If
End Sub

Il doit y avoir quelques bétises

[vodiem]

salut micbett,

regarde <F1> la fonction:
NZ()

[micbett]

J'avais déjà été voir l'aide (si c'est de ça que tu parles) et de tous ce que j'ai essayé, rien ne marche

[vodiem]

ton code n'as aucune chance de marcher.

comme je te l'ai dit: utilise la fonction nz(), de préférence dans ta requete directement.

ton code n'as aucun sens pour moi, je ne peux te fournir le bon code, désolé.

[mikeGo20]

Code :

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

1
2
3
4
5
6
7
Public Sub HrsMdlDep()
     Dim Hrs As Integer
     Dim RemHrs As Integer
     If IsNull(Forms![ListPiecesPrev]!Hrs.Value) Then
          Hrs = RemHrs
     End If
End Sub

Premier champ (pouvant être null):Hrs
Alors pourquoi déclarer une variable du même nom??
J'imagine que RemHrs est le deuxième champ ... même problème

Alors essaie le nz() de vodiem .... direct dans la requête ...

Code :

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

1
2
 
Hrs:Nz([Hrs],[RemHrs])

Si tu veux l'utiliser que dans ton formulaire, sur l'événement Current de ton formulaire ..

Code :

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

1
2
3
4
 
Private Sub Form_Current()
   Me.Hrs = Nz(Me.Hrs, Me.RemHrs)
End Sub