Hi... would like to start off a little useless info. about myself... first time using VB... totally confused and lost... treat me as a retarded and thanks for your help in advance.
I get the "Block if without end if" error on the codes below. I don't see where I am missing an End If... please help~ ;)
[CODE=vb]
If myChoice = "CREATION" Then
Dim c As Range
For Each c In Sheets("RMs").R ange("F2:F500")
If c.Value = TextBox_SecCode .Value Then
MsgBox "SecCode already exists. Please input a different SecCode."
Exit Sub
Else
rsT.Fields("Sec Code").Value = TextBox_SecCode .Value
End If
Next[/CODE]
I get the "Block if without end if" error on the codes below. I don't see where I am missing an End If... please help~ ;)
[CODE=vb]
If myChoice = "CREATION" Then
Dim c As Range
For Each c In Sheets("RMs").R ange("F2:F500")
If c.Value = TextBox_SecCode .Value Then
MsgBox "SecCode already exists. Please input a different SecCode."
Exit Sub
Else
rsT.Fields("Sec Code").Value = TextBox_SecCode .Value
End If
Next[/CODE]
Comment