[AC-2010] erreur utilisation incorrecte de isnull [Résolu]

[docjo]

Bonjour

Je chercher à vérifier su un enregistrement existe dans une table afin de déclencher une action. Mais, j'ai une erreur isnull. Forcémment, puisque je lui demande si il est "null" de déclencher l'action !
Bref dans l'histoire c'est moi qui suis nul! Faut-il faire une déclaration de variable de type boolean ?
Dans ce code derniersejour est null . J'ai une erreur "utilisation incorrecte de null"

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Private Sub BoutonNavigation236_Click()
 
 
    Dim dernierSigma, derniersejour As String
    Dim stwhere As Integer
 
    stwhere = Me!ID_Patient
    dernierSigma = DLast("sigma", "T_sejour", "ID_patient=" & Me!ID_Patient)
    derniersejour = DLast("ID_sejour", "T_sejour", "ID_patient=" & Me!ID_Patient)
    If IsNull(derniersejour) = True Then
    DoCmd.OpenForm "F_Sigma", , , stwhere
    Else
    Forms!F_accueil!SFN_Patient!SF_intervention.Filterby = "[ID_sejour]=" & derniersejour
    Forms!F_accueil!SFN_Patient!SF_intervention.FilterbyOn = True
    End If
End Sub

[jpcheck]

salut,

au lieu de passer par ce test avec Isnull, je te reommande de passer par Nz en amont du test :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub BoutonNavigation236_Click()
 
 
    Dim dernierSigma, derniersejour As String
    Dim stwhere As Integer
 
    stwhere = Me!ID_Patient
    dernierSigma = Nz(DLast("sigma", "T_sejour", "ID_patient=" & Me!ID_Patient),"")
    derniersejour = Nz(DLast("ID_sejour", "T_sejour", "ID_patient=" & Me!ID_Patient),"")
    If derniersejour = "" Then
          DoCmd.OpenForm "F_Sigma", , , stwhere
    Else
        Forms!F_accueil!SFN_Patient!SF_intervention.Filterby = "[ID_sejour]=" & derniersejour
       Forms!F_accueil!SFN_Patient!SF_intervention.FilterbyOn = True
    End If
End Sub

pas certain que ton stwhere soit suffisant dans ton Docmd.Openform

a changer vraisemblablement en

Code :

DoCmd.OpenForm "F_Sigma", , , "ID_Patient=" & stwhere

sauf erreur

[docjo]

Merci, j'avais oublié NZ. Cela fonctionne sans problème.