G
Guest
I have the following code: Thats giving me an invalid qualifying error? in
the line: myDirectory.......
Private Sub OK_Click()
Dim myDirectory As String
Dim myFilename As String
Dim myLocationOut As String
If IsEmpty(TAB_DIRECTORY.Value) Then
MsgBox "please provide directory"
Else
myDirectory.Value = Me.TAB_DIRECTORY.Value
End If
If IsEmpty(File_Name.Value) Then
MsgBox "please provide filename"
Else
myFilename.Value = Me.File_Name.Value
End If
If IsEmpty(Location_Out.Value) Then
MsgBox "Provide info "
Else
myLocationOut.Value = Me.Location_Out.Value
End If
Next
UserForm3.Hide
End Sub
The command button "OK" is on userform3
The "TAB_DIRECTORY" is the name of text box1 within userform3
The "File_Name" is the name of textbox2 within userform 3
The "Location_Out" is the name of textbox 3 within userform 3
the line: myDirectory.......
Private Sub OK_Click()
Dim myDirectory As String
Dim myFilename As String
Dim myLocationOut As String
If IsEmpty(TAB_DIRECTORY.Value) Then
MsgBox "please provide directory"
Else
myDirectory.Value = Me.TAB_DIRECTORY.Value
End If
If IsEmpty(File_Name.Value) Then
MsgBox "please provide filename"
Else
myFilename.Value = Me.File_Name.Value
End If
If IsEmpty(Location_Out.Value) Then
MsgBox "Provide info "
Else
myLocationOut.Value = Me.Location_Out.Value
End If
Next
UserForm3.Hide
End Sub
The command button "OK" is on userform3
The "TAB_DIRECTORY" is the name of text box1 within userform3
The "File_Name" is the name of textbox2 within userform 3
The "Location_Out" is the name of textbox 3 within userform 3