ms access - validacion - Uso no válido de Access-VBA nulo

que es un valor null en access 2007

Question

Recibo un mensaje de error al utilizar este botón debido a if, dar un error. Uso no válido de null, ¿alguien puede explicarlo?

Sub Concluído_Click()

    Dim novonome As String
    Dim dataadmi As Date
    Dim datanasc As Date
    Dim Email As Hyperlink
    Dim Cargo As String
    Dim Categoria As String
    Dim ingless As String
    Dim inglesw As String
    Dim coordeq As String
    Dim relcli As String
    Dim Java As String
    Dim SQL As String
    Dim PHP As String
    Dim wserv As String
    Dim Vendas As String
    Dim dgraf As String
    Set table = New ADODB.Recordset

    With Form_Funcionários


**If Len(.Nome.value & "") = 0 Or _
    ValornaColuna(.Nome.value, "Funcionários", "Nome") = True Then**
            MsgBox "Campo Nome do Formulario encontra-se vazio ou ja existe! Por favor altere o seu valor!", vbOKOnly, "Campo Vazio"
        End If
    End With


    HideAll

End Sub

Private Function ValornaColuna(ByVal value As String, ByVal formTable As String, ByVal formColumn As String) As Boolean

    Dim valueToCompare As String
    Dim C As Boolean
    Set table = New ADODB.Recordset

    table.Open formTable, CurrentProject.Connection, adOpenDynamic, adLockReadOnly
    C = False

    While table.EOF = False And ExistsInColumn = False
        valueToCompare = table.Fields(formColumn)

        If StrComp(valueToCompare, value, vbTextCompare) = 0 Then
            C = True
        End If
        table.MoveNext
    Wend

    table.Close
End Function

Answer 1

Esto arrojará un error (uso no válido de Null) cada vez que .Nome.value sea ​​nulo, porque ValornaColuna requiere String como el tipo de datos de su primer parámetro. Y nulo no es tipo de cadena.

If Len(.Nome.value & "") = 0 Or _
    ValornaColuna(.Nome.value, "Funcionários", "Nome") = True Then

Puede evitar ese error usando Nz para pasar una cadena vacía cada vez que .Nome.value sea ​​nulo.

If Len(.Nome.value & "") = 0 Or _
    ValornaColuna(Nz(.Nome.value, vbNullSting), "Funcionários", "Nome") = True Then