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