M
mrvento
I have a userform and everything seems to be fine, however, I get this error
msg:
---------------------------
Microsoft Visual Basic
---------------------------
Compile error:
Method or data member not found
---------------------------
OK Help
---------------------------
I have checked everything and it appears to be ok, any suggestions please!!!
This is what I have....
Private Sub cmdAdd_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("ECSProductionLog")
'find first empty row in database
iRow = ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row
'check for a Name
If Trim(Me.txtName.Value) = "" Then
Me.txtName.SetFocus
MsgBox "Please enter a name"
Exit Sub
End If
'copy the data to the database
ws.Cells(iRow, 9).Value = Me.txtName.Value
ws.Cells(iRow, 1).Value = Me.txtDailyProductionFrontEnd.Value
ws.Cells(iRow, 2).Value = Me.txtDailyProductionBackEnd.Value
ws.Cells(iRow, 3).Value = Me.txtMeeting.Value
ws.Cells(iRow, 4).Value = Me.txtHoliday.Value
ws.Cells(iRow, 5).Value = Me.txtVacation.Value
ws.Cells(iRow, 6).Value = Me.txtPersonal.Value
ws.Cells(iRow, 7).Value = Me.txtSick.Value
ws.Cells(iRow, 8).Value = Me.txtOther.Value
'clear the data
Me.txtName = ""
Me.txtDailyProductionFrontEnd.Value = ""
Me.txtDailyProductionBackEnd.Value = ""
Me.txtMeeting.Value = ""
Me.txtHoliday.Value = ""
Me.txtVacation.Value = ""
Me.txtPersonal.Value = ""
Me.txtSick.Value = ""
Me.txtOther.Value = ""
Me.txtName.SetFocus
____________________________________________
End Sub
Private Sub cmdClose_Click()
Unload Me
End Sub
____________________________________________
Private Sub UserForm_QueryClose(Cancel As Integer, _
CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
Cancel = True
MsgBox "Please use the button!"
End If
End Sub
____________________________________________
msg:
---------------------------
Microsoft Visual Basic
---------------------------
Compile error:
Method or data member not found
---------------------------
OK Help
---------------------------
I have checked everything and it appears to be ok, any suggestions please!!!
This is what I have....
Private Sub cmdAdd_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("ECSProductionLog")
'find first empty row in database
iRow = ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row
'check for a Name
If Trim(Me.txtName.Value) = "" Then
Me.txtName.SetFocus
MsgBox "Please enter a name"
Exit Sub
End If
'copy the data to the database
ws.Cells(iRow, 9).Value = Me.txtName.Value
ws.Cells(iRow, 1).Value = Me.txtDailyProductionFrontEnd.Value
ws.Cells(iRow, 2).Value = Me.txtDailyProductionBackEnd.Value
ws.Cells(iRow, 3).Value = Me.txtMeeting.Value
ws.Cells(iRow, 4).Value = Me.txtHoliday.Value
ws.Cells(iRow, 5).Value = Me.txtVacation.Value
ws.Cells(iRow, 6).Value = Me.txtPersonal.Value
ws.Cells(iRow, 7).Value = Me.txtSick.Value
ws.Cells(iRow, 8).Value = Me.txtOther.Value
'clear the data
Me.txtName = ""
Me.txtDailyProductionFrontEnd.Value = ""
Me.txtDailyProductionBackEnd.Value = ""
Me.txtMeeting.Value = ""
Me.txtHoliday.Value = ""
Me.txtVacation.Value = ""
Me.txtPersonal.Value = ""
Me.txtSick.Value = ""
Me.txtOther.Value = ""
Me.txtName.SetFocus
____________________________________________
End Sub
Private Sub cmdClose_Click()
Unload Me
End Sub
____________________________________________
Private Sub UserForm_QueryClose(Cancel As Integer, _
CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
Cancel = True
MsgBox "Please use the button!"
End If
End Sub
____________________________________________