Probleme de Invalid Use of Null

Question

Bonjour,

Je n'arrive pas a trouver ou est le pb.....est ce que ce serait le integer comparé à Null.
Merci de votre aide !

Private Sub Command17_Click()

Dim rs1 As ADODB.Recordset
Dim strsql1 As String
Dim v_sex As Integer


' See if the Sex is present in the DEMOG panel '
strsql1 = "SELECT SEX" & _
          " From LAB_DEMO_DEMOG_ALL" & _
          " where PATID = '" & Me.PATID & "'"
Set rs1 = CurrentProject.Connection.Execute(strsql1)

If Not rs1.EOF Then
v_sex = rs1("SEX").VALUE
End If

If v_test = Null Then
  message = MsgBox("C'est OK")
End If

End Sub

cs_EBArtSoft · Answer

v_sex = NoNull(rs1("SEX").VALUE)

Function NoNull(Value)
    If IsNull(Value) then
        NoNull=0
    Else
        NoNull = Value
    End If
End Function

@+


E.B.

cs_Jackboy · Answer

Salut !

Merci du coup de pouce, sa corrige mon probleme, mais pk cette erreur ??

cs_EBArtSoft · Answer

Parce que en vb6/5/4 le type "integer" n'accepte pas la valeur Null que l'on peux rencontrer dans les champs de base de donn&#233;es. Par consequent il suffit de tester le champs avant de l'assigner a la variable.

@+


E.B.

Probleme de Invalid Use of Null

3 réponses

Discussions similaires