Block If without End If????? (1 Viewer)

G'day All,

I was wondering whether some could help me get this to work. Iam basically trying to get a message only when the "M" drive is connected. It keeps coming up telling me "Block If without End If" that way I see it I have and End If statement after every If statement.

Any help would be appreciated.

Sub Test()
Dim fs, d, dc, s, n
Set fs = CreateObject("Scripting.FileSystemObject")
Set dc = fs.Drives
For Each d In dc

'If d.DriveType = 3 Then
' n = d.volumeName
'End If

If d.driveletter = "A" Or "B" Or "C" Or "D" Or "E" Or "F" Or "G" Or "H" Then
MsgBox "This is not the right drive", vbCritical, "Failed"

Else

If d.driveletter = "M" Then
MsgBox "The M Drive was found", vbExclamation, "Success"


End If



'Next
End Sub

I see 2 If's with only 1 End If, plus a For with no Next.

Slightly new to using VBA, so do I need to put and End if before I do and Else?

It depends on the logic of the situation, but there must be an End If for every If. IOW, you could have:


or


But you'll notice that each If has an End If somewhere (the exception would be a one-line If, but that's not the case here). As a guess, you may want:


But don't forget the For needs a Next.

I retyped the code a new error message

"You can't disable a control while it has the focus"

Private Sub Form_Current()
If Me.NewRecord Then
Me.MealDate = DMax("MealDate", "TblDietPlan")
Me.MealDate.Enabled = False
Else
Me.MealDate.Enabled = True
End If
End Sub

brucey54 said:

I retyped the code a new error message

"You can't disable a control while it has the focus"

Click to expand...

Please updathe the appropriate thread --> Passing data from query to a txtbox on a Form