Comment rechercher dans le table

Bonjour



J'ai modifier VB suivante :

Private Sub H01_AfterUpdate()

If Me.H01 = "JF" Or Me.H01 = "CA" Then
If Not IsNull(Me.B01) Then
Me.H01n = (((DLookup("[Durée]", "[Req GP AGenerale]",
"[Code]='" & Me.H01 & "'")) + (Me.B01)) + (Me.FixeHorairePMN)) *
(Me.TempsNum)
Else
Me.H01n = ((DLookup("[Durée]", "[Req GP AGenerale]", "[Code]='"
& Me.H01 & "'")) + (Me.FixeHorairePMN)) * (Me.TempsNum)
End If
Else
If Not IsNull(Me.B01) Then
Me.H01n = (DLookup("[Durée]", "[Req GP Ainfo]", "[Code]='" &
Me.H01 & "'")) + (Me.B01)
Else
Me.H01n = DLookup("[Durée]", "[Req GP AInfo]", "[Code]='" &
Me.H01 & "'")
End If
End If

End Sub



---------------------

If Me.H01 = "JF" Or Me.H01 = "CA" Then

---------------------

Il y a plusieurs 20 types (CA, JF, RT, CM,......),

Mais c'est top long, comment peut rechercher vers table.

Par exemple :

If Me.H01 = (?????Table????) Then



Merci

Marco

Bonsoir.

compte tenu que H01 peut avoir une vingtaine de valeurs différentes, il
est préférable de passer par un select case au niveau du 1er IF, ce qui
donnerait par exemple:
Private Sub H01_AfterUpdate()
Select Case Me.H01
Case "JF", "CA"
If Not IsNull(Me.B01) Then
Me.H01n = (((DLookup("[Durée]", ............
Else
Me.H01n = ((DLookup("[Durée]", ............
End If
Case "RT", "CM"
If Not IsNull(Me.B01) Then
Me.H01n = (DLookup("[Durée]", ................
Else
Me.H01n = DLookup("[Durée]", ..................
End If
Case Else
If Not IsNull(Me.B01) Then
Me.H01n = (DLookup("[Durée]", .................
Else
Me.H01n = DLookup("[Durée]", ....................
End If
End Select
End Sub



--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"FujitsuChaos" <fujitsuchaos@msn.com> a écrit dans le message de news:
uF64tG$dFHA.3048@TK2MSFTNGP12.phx.gbl...

Bonjour



J'ai modifier VB suivante :

Private Sub H01_AfterUpdate()

If Me.H01 = "JF" Or Me.H01 = "CA" Then
If Not IsNull(Me.B01) Then
Me.H01n = (((DLookup("[Durée]", "[Req GP AGenerale]",
"[Code]='" & Me.H01 & "'")) + (Me.B01)) + (Me.FixeHorairePMN)) *
(Me.TempsNum)
Else
Me.H01n = ((DLookup("[Durée]", "[Req GP AGenerale]",
"[Code]='" & Me.H01 & "'")) + (Me.FixeHorairePMN)) * (Me.TempsNum)
End If
Else
If Not IsNull(Me.B01) Then
Me.H01n = (DLookup("[Durée]", "[Req GP Ainfo]", "[Code]='" &
Me.H01 & "'")) + (Me.B01)
Else
Me.H01n = DLookup("[Durée]", "[Req GP AInfo]", "[Code]='" &
Me.H01 & "'")
End If
End If

End Sub



---------------------

If Me.H01 = "JF" Or Me.H01 = "CA" Then

---------------------

Il y a plusieurs 20 types (CA, JF, RT, CM,......),

Mais c'est top long, comment peut rechercher vers table.

Par exemple :

If Me.H01 = (?????Table????) Then



Merci

Marco