Dear sires, I got error 'Type Mismatch' as described in code below. Please what i'm missing. Appreciate your time to look at my issue.
Code:
Dim i As Integer
Dim blFlagCheck As Boolean
blFlagCheck = False
Dim FieldsMissing As String
Dim SF() As String
Dim Error, Available, Available1, Available2, Available3, Available4, Available5, Available6, Available7 As String
Error = IE.Document.getElementById("ContentPlaceHolder1_lbError").innerText
Available = IE.Document.getElementById("spanAvailability").innerText
Available1 = IE.Document.getElementById("ContentPlaceHolder1_reqTxtMsisdn").innerText
Available2 = IE.Document.getElementById("ContentPlaceHolder1_valFirstName").innerText
Available3 = IE.Document.getElementById("ContentPlaceHolder1_valSecondName").innerText
Available4 = IE.Document.getElementById("ContentPlaceHolder1_valThirdName").innerText
Available5 = IE.Document.getElementById("ContentPlaceHolder1_CompareValidator1").innerText
Available6 = IE.Document.getElementById("ContentPlaceHolder1_valLocation").innerText
Available7 = IE.Document.getElementById("ContentPlaceHolder1_valAddress1").innerText
If Len(Error) > 0 Then
FieldsMissing = FieldsMissing & "Numbers" & ", "
End If
If Len(Available) > 0 Then
FieldsMissing = FieldsMissing & "Exist in DB" & ", "
End If
If Len(Available1) > 0 Then
FieldsMissing = FieldsMissing & "MSISDN" & ", "
End If
If Len(Available2) > 0 Then
FieldsMissing = FieldsMissing & "First Name" & ", "
End If
If Len(Available3) > 0 Then
FieldsMissing = FieldsMissing & "Second Name" & ", "
End If
If Len(Available4) > 0 Then
FieldsMissing = FieldsMissing & "IDreg" & ", "
End If
If Len(Available5) > 0 Then
FieldsMissing = FieldsMissing & "ID" & ", "
End If
If Len(Available6) > 0 Then
Fields
Missing = FieldsMissing & "Location" & ", "
End If
If Len(Available7) > 0 Then
FieldsMissing = FieldsMissing & "Address1" & ", "
End If
If FieldsMissing > 0 Then 'Highlight here, Run-time error '13': 'Type Mismatch'
FieldsMissing = Left(FieldsMissing, Len(FieldsMissing) - 0)
Else
MsgBox "Please check fields: " & FieldsMissing & "."
blFlagCheck = True
Label3.Visible = False
Label3.Caption = ""
cmdMainSave.Visible = True
Exit Sub
End If