Another code question
 

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

Another code question
 

myDirectory is a string and not an object with a value property so you don't
want to use the .Value qualifier.

myDirectory = Me.TAB_DIRECTORY.Value
--
HTH...

Jim Thomlinson


"M&M" wrote:

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

Another code question
 

Thank you so much Jim, one last question about the same macro. Why Im I
getting an error in the "Next UserForm hide"




"Jim Thomlinson" wrote:

myDirectory is a string and not an object with a value property so you don't
want to use the .Value qualifier.

myDirectory = Me.TAB_DIRECTORY.Value
--
HTH...

Jim Thomlinson


"M&M" wrote:

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

Another code question
 

Oops Ok I figured it out. I guess I dont need that Next statement
Thank You

"M&M" wrote:


Thank you so much Jim, one last question about the same macro. Why Im I
getting an error in the "Next UserForm hide"




"Jim Thomlinson" wrote:

myDirectory is a string and not an object with a value property so you don't
want to use the .Value qualifier.

myDirectory = Me.TAB_DIRECTORY.Value
--
HTH...

Jim Thomlinson


"M&M" wrote:

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