Learning VBA: Userform issue

[snjpverma]

the line highlighted in red gives error "Invalid Qualifier".
I have created a Userform for filling data. Below is the screenshot of it.

Dim everythingfilledin  As Boolean
everythingfilledin = True

For Each c In Me.Controls
    If TypeOf c Is msforms.TextBox Then
        If c.Value = "" Then
            c.BackColor = rgbPink
            everythingfilledin = False
        Else
            c.BackColor = rgbWhite
        End If
      End If
Next c
If Not everythingfilledin Then Exit Sub

If Not IsDate(DOB.Value) Then
    MsgBox "PLEASE ENTER A VALID DATE.", vbCritical
    DOB.SetFocus
    Exit Sub
Else
    DOB.BackColor = rgbWhite
End If

With Sheet2.Range("A1048576").End(xlUp)
    .Offset(1, 0).Value = Name.Value
    .Offset(1, 1).Value = DOB.Value
    .Offset(1, 2).Value = Gender.Value
    .Offset(1, 3).Value = PartnerGender.Value
End With

MsgBox "Thanks, " & Name.Value & ", Your application was successful!", vbInformation
Unload Me

End Sub

 

[dmt32]

Hi,
I suspect error could be due to Name may be a VBA reserved word - try renaming your TextBox control & see if resolves for you

.Offset(1, 0).Value = txtName.Value

Dave

 

[snjpverma]

Hi,
I suspect error could be due to Name may be a VBA reserved word - try renaming your TextBox control & see if resolves for you
Dave

Well Spotted. Pure Genius!!
Thank you so much.
I was frustrated trying to figure out the reason for such a long time.

 

[dmt32]

You are welcome
You can include a reserved word in your naming convention for Control or Variable names but to avoid conflicts, just include a prefix with one that defines the control or data type

eg for combobox you could prefix with cmb

.Offset(1, 0).Value = cmbName.Value

same with variables you can prefix with data type

Dim strName As String

Hope Helpful

Dave