|
User form with VBA
Hi All,
I am in need of some help!!! I created a userform using VBA, however, my value seems to be incorrect. i tried everything and nothing seems to work. 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 <<<this is were my problems is 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 |
User form with VBA
You say values seem to be incorrect, but then you point to a line that tests
whether the TRIM'med contents of a TextBox is the empty string. What exactly is the problem? -- Rick (MVP - Excel) "mrvento" wrote in message ... Hi All, I am in need of some help!!! I created a userform using VBA, however, my value seems to be incorrect. i tried everything and nothing seems to work. 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 <<<this is were my problems is 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 |
User form with VBA
hi
what problems are you having? are you receiving any error messages? Regards FSt1 "mrvento" wrote: Hi All, I am in need of some help!!! I created a userform using VBA, however, my value seems to be incorrect. i tried everything and nothing seems to work. 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 <<<this is were my problems is 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 |
User form with VBA
Yes, error message:
--------------------------- Microsoft Visual Basic --------------------------- Compile error: Method or data member not found --------------------------- OK Help --------------------------- "FSt1" wrote: hi what problems are you having? are you receiving any error messages? Regards FSt1 "mrvento" wrote: Hi All, I am in need of some help!!! I created a userform using VBA, however, my value seems to be incorrect. i tried everything and nothing seems to work. 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 <<<this is were my problems is 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 |
User form with VBA
hi
did it highlight txt.name? if so the vb couldn't find txt.name in it's library. check and make sure it is spelled correctly. Regards FSt1 "mrvento" wrote: Yes, error message: --------------------------- Microsoft Visual Basic --------------------------- Compile error: Method or data member not found --------------------------- OK Help --------------------------- "FSt1" wrote: hi what problems are you having? are you receiving any error messages? Regards FSt1 "mrvento" wrote: Hi All, I am in need of some help!!! I created a userform using VBA, however, my value seems to be incorrect. i tried everything and nothing seems to work. 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 <<<this is were my problems is 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 |
User form with VBA
You should be using "Trim(Me.txtName.Text)" instead of "Trim(Me.txtName.Value)"
(.Value is applicable to Cells, not text boxes) -- Time is just the thing that keeps everything from happening all at once "mrvento" wrote: Hi All, I am in need of some help!!! I created a userform using VBA, however, my value seems to be incorrect. i tried everything and nothing seems to work. 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 <<<this is were my problems is 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 |
User form with VBA
I don't think this will make a difference.
Neptune Dinosaur wrote: You should be using "Trim(Me.txtName.Text)" instead of "Trim(Me.txtName.Value)" (.Value is applicable to Cells, not text boxes) -- Time is just the thing that keeps everything from happening all at once "mrvento" wrote: Hi All, I am in need of some help!!! I created a userform using VBA, however, my value seems to be incorrect. i tried everything and nothing seems to work. 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 <<<this is were my problems is 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 -- Dave Peterson |
User form with VBA
If the name of the text box is spelt correctly, than maybe the problem is in
the rec ogntion of the user form that it lives on (it's hard to see where else it could be ....). Try spelling it out explicitly instead of using "Me" (e.g. try "MyForm.txtName.text"). Using "Me" certainly wouldn't work if the form that contains the target textbox is not the Active one at the time. -- Time is just the thing that keeps everything from happening all at once "Dave Peterson" wrote: I don't think this will make a difference. Neptune Dinosaur wrote: You should be using "Trim(Me.txtName.Text)" instead of "Trim(Me.txtName.Value)" (.Value is applicable to Cells, not text boxes) -- Time is just the thing that keeps everything from happening all at once "mrvento" wrote: Hi All, I am in need of some help!!! I created a userform using VBA, however, my value seems to be incorrect. i tried everything and nothing seems to work. 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 <<<this is were my problems is 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 -- Dave Peterson |
User form with VBA
Me doesn't refer to the userform that's "active". Me refers to the userform
that owns the code. But I agree with you. I think the textbox belongs to the same userform as the commandbutton that is associated with the code. I'd look for typos in the name of the control or in the code. Neptune Dinosaur wrote: If the name of the text box is spelt correctly, than maybe the problem is in the rec ogntion of the user form that it lives on (it's hard to see where else it could be ....). Try spelling it out explicitly instead of using "Me" (e.g. try "MyForm.txtName.text"). Using "Me" certainly wouldn't work if the form that contains the target textbox is not the Active one at the time. -- Time is just the thing that keeps everything from happening all at once "Dave Peterson" wrote: I don't think this will make a difference. Neptune Dinosaur wrote: You should be using "Trim(Me.txtName.Text)" instead of "Trim(Me.txtName.Value)" (.Value is applicable to Cells, not text boxes) -- Time is just the thing that keeps everything from happening all at once "mrvento" wrote: Hi All, I am in need of some help!!! I created a userform using VBA, however, my value seems to be incorrect. i tried everything and nothing seems to work. 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 <<<this is were my problems is 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 -- Dave Peterson -- Dave Peterson |
User form with VBA
Thanks that helped!!!
Now I am getting an error stating "Run-Tine error '9': Subscript out of range end or debug on the "Set ws = Worksheets ("ECSProducitonLog") UGGGG!!!! "Dave Peterson" wrote: Me doesn't refer to the userform that's "active". Me refers to the userform that owns the code. But I agree with you. I think the textbox belongs to the same userform as the commandbutton that is associated with the code. I'd look for typos in the name of the control or in the code. Neptune Dinosaur wrote: If the name of the text box is spelt correctly, than maybe the problem is in the rec ogntion of the user form that it lives on (it's hard to see where else it could be ....). Try spelling it out explicitly instead of using "Me" (e.g. try "MyForm.txtName.text"). Using "Me" certainly wouldn't work if the form that contains the target textbox is not the Active one at the time. -- Time is just the thing that keeps everything from happening all at once "Dave Peterson" wrote: I don't think this will make a difference. Neptune Dinosaur wrote: You should be using "Trim(Me.txtName.Text)" instead of "Trim(Me.txtName.Value)" (.Value is applicable to Cells, not text boxes) -- Time is just the thing that keeps everything from happening all at once "mrvento" wrote: Hi All, I am in need of some help!!! I created a userform using VBA, however, my value seems to be incorrect. i tried everything and nothing seems to work. 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 <<<this is were my problems is 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 -- Dave Peterson -- Dave Peterson |
User form with VBA
I'd guess that you spelled production differently in the worksheet tab or in the
code. You spelled production incorrectly in your code, but that doesn't matter if it actually matched what you see in the worksheet tab. That run-time error 9 says that they don't match. mrvento wrote: Thanks that helped!!! Now I am getting an error stating "Run-Tine error '9': Subscript out of range end or debug on the "Set ws = Worksheets ("ECSProducitonLog") UGGGG!!!! "Dave Peterson" wrote: Me doesn't refer to the userform that's "active". Me refers to the userform that owns the code. But I agree with you. I think the textbox belongs to the same userform as the commandbutton that is associated with the code. I'd look for typos in the name of the control or in the code. Neptune Dinosaur wrote: If the name of the text box is spelt correctly, than maybe the problem is in the rec ogntion of the user form that it lives on (it's hard to see where else it could be ....). Try spelling it out explicitly instead of using "Me" (e.g. try "MyForm.txtName.text"). Using "Me" certainly wouldn't work if the form that contains the target textbox is not the Active one at the time. -- Time is just the thing that keeps everything from happening all at once "Dave Peterson" wrote: I don't think this will make a difference. Neptune Dinosaur wrote: You should be using "Trim(Me.txtName.Text)" instead of "Trim(Me.txtName.Value)" (.Value is applicable to Cells, not text boxes) -- Time is just the thing that keeps everything from happening all at once "mrvento" wrote: Hi All, I am in need of some help!!! I created a userform using VBA, however, my value seems to be incorrect. i tried everything and nothing seems to work. 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 <<<this is were my problems is 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 -- Dave Peterson -- Dave Peterson -- Dave Peterson |
| All times are GMT +1. The time now is 05:15 PM. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com