Else without if
Thu, 06/14/2012 - 11:15 — Shadowsm
Hello everybody, i'm starting in vb can you help me? i cant find this newb error :/ it returns that 'Else without if'
strSQL = ""
strSQL = strSQL & "SELECT idProcessadorNF "
strSQL = strSQL & "FROM tbComputadores"
strSQL = strSQL & "WHERE idComputador = " & vrtIdComputador <> 0
'Call subEfetuaConexao
Set rstAux = New ADODB.Recordset
rstAux.Open strSQL
If Not rstAux.EOF And Not IsNull(rstAux.Fields.Item("vrtIdProcessadorNF").Value) Then
vrtIdProcessadorNF = IIf(IsNull(rstAux.Fields.Item("vrtIdProcessadorNF").Value), 0, rstAux.Fields.Item("vrtidProcessadorNF").Value)
End If
Else
vrtIdProcessadorNF = 0
End If
rstAux.Close
End Sub
-----------------------------
---------------------------------------
Call subEfetuaConexao
Set rstAux = New ADODB.Recordset
rstAux.Open strSQL
If Not rstAux.EOF And Not IsNull(rstAux.Fields.Item("vrtIdProcessadorNF").Value) Then
vrtIdProcessadorNF = IIf(IsNull(rstAux.Fields.Item("vrtIdProcessadorNF").Value), 0, rstAux.Fields.Item("vrtidProcessadorNF").Value)
End If
Else
vrtIdProcessadorNF = 0
End If
rstAux.Close
End Sub
-------------------------------------
end if only use when end of if statement
the format should be
if (condition) then
code
else
code
end if
*without else if
Post new comment