Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
VBA Help
Hi, I have set up a multitab form I have set up the following code to allow me to update my database, but when I Click in the button to update it updates the database, but does not take me back to the first tab so I can start over. See code Below. Private Sub cmdCancel_Click() Unload Me End Sub Private Sub cmdCancel2_Click() Unload Me End Sub Private Sub cmdNewEmp_Click() Dim iRow As Long Dim ws As Worksheet Set ws = Worksheets("Payroll Data") iRow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row ws.Cells(iRow, 1).Value = Me.txtEmpID.Value ws.Cells(iRow, 2).Value = Me.txtFirstName.Value ws.Cells(iRow, 3).Value = Me.txtLastName.Value ws.Cells(iRow, 4).Value = Me.txtAddress.Value ws.Cells(iRow, 5).Value = Me.txtSuburb.Value ws.Cells(iRow, 6).Value = Me.txtPostCode.Value ws.Cells(iRow, 7).Value = Me.cbGender.Value ws.Cells(iRow, 8).Value = Me.txtDOB.Value ws.Cells(iRow, 9).Value = Me.txttax.Value ws.Cells(iRow, 10).Value = Me.txtStart.Value ws.Cells(iRow, 11).Value = Me.cbEmpLevel.Value ws.Cells(iRow, 12).Value = Me.cbDivision.Value ws.Cells(iRow, 13).Value = Me.cbEmpStatus.Value ws.Cells(iRow, 14).Value = Me.txtRemun.Value ws.Cells(iRow, 15).Value = (Me.txtRemun / 109) * 100 Me.txtEmpID.Value = "" Me.txtFirstName.Value = "" Me.txtLastName.Value = "" Me.txtAddress.Value = "" Me.txtSuburb.Value = "" Me.txtPostCode.Value = "" Me.cbGender.Value = "" Me.txtDOB.Value = "" Me.txttax.Value = "" Me.txtStart.Value = "" Me.cbEmpLevel.Value = "" Me.cbDivision.Value = "" Me.cbEmpStatus.Value = "" Me.txtRemun.Value = "" End Sub Private Sub UserForm_Initialize() cbGender.AddItem "Female" cbGender.AddItem "Male" cbEmpLevel.AddItem 1 cbEmpLevel.AddItem 2 cbEmpLevel.AddItem 3 cbEmpLevel.AddItem 4 cbDivision.AddItem "Legal" cbDivision.AddItem "Management" cbDivision.AddItem "Service" cbDivision.AddItem "Training" cbDivision.AddItem "Accounting" cbDivision.AddItem "Cleaners" cbDivision.AddItem "Admin" cbDivision.AddItem "Other" cbDivision.AddItem "Adminstration" cbDivision.AddItem "Secretary" cbDivision.AddItem "Account Managers" cbEmpStatus.AddItem "Full-Time" cbEmpStatus.AddItem "Part-Time" End Sub -- Runner77 ------------------------------------------------------------------------ Runner77's Profile: http://www.excelforum.com/member.php...o&userid=30388 View this thread: http://www.excelforum.com/showthread...hreadid=500987 |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
VBA Help
Do you just want the code to select the first page of the multitab?
MultiPage1.Value = 0 -- HTH Bob Phillips (remove nothere from email address if mailing direct) "Runner77" wrote in message ... Hi, I have set up a multitab form I have set up the following code to allow me to update my database, but when I Click in the button to update it updates the database, but does not take me back to the first tab so I can start over. See code Below. Private Sub cmdCancel_Click() Unload Me End Sub Private Sub cmdCancel2_Click() Unload Me End Sub Private Sub cmdNewEmp_Click() Dim iRow As Long Dim ws As Worksheet Set ws = Worksheets("Payroll Data") iRow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row ws.Cells(iRow, 1).Value = Me.txtEmpID.Value ws.Cells(iRow, 2).Value = Me.txtFirstName.Value ws.Cells(iRow, 3).Value = Me.txtLastName.Value ws.Cells(iRow, 4).Value = Me.txtAddress.Value ws.Cells(iRow, 5).Value = Me.txtSuburb.Value ws.Cells(iRow, 6).Value = Me.txtPostCode.Value ws.Cells(iRow, 7).Value = Me.cbGender.Value ws.Cells(iRow, 8).Value = Me.txtDOB.Value ws.Cells(iRow, 9).Value = Me.txttax.Value ws.Cells(iRow, 10).Value = Me.txtStart.Value ws.Cells(iRow, 11).Value = Me.cbEmpLevel.Value ws.Cells(iRow, 12).Value = Me.cbDivision.Value ws.Cells(iRow, 13).Value = Me.cbEmpStatus.Value ws.Cells(iRow, 14).Value = Me.txtRemun.Value ws.Cells(iRow, 15).Value = (Me.txtRemun / 109) * 100 Me.txtEmpID.Value = "" Me.txtFirstName.Value = "" Me.txtLastName.Value = "" Me.txtAddress.Value = "" Me.txtSuburb.Value = "" Me.txtPostCode.Value = "" Me.cbGender.Value = "" Me.txtDOB.Value = "" Me.txttax.Value = "" Me.txtStart.Value = "" Me.cbEmpLevel.Value = "" Me.cbDivision.Value = "" Me.cbEmpStatus.Value = "" Me.txtRemun.Value = "" End Sub Private Sub UserForm_Initialize() cbGender.AddItem "Female" cbGender.AddItem "Male" cbEmpLevel.AddItem 1 cbEmpLevel.AddItem 2 cbEmpLevel.AddItem 3 cbEmpLevel.AddItem 4 cbDivision.AddItem "Legal" cbDivision.AddItem "Management" cbDivision.AddItem "Service" cbDivision.AddItem "Training" cbDivision.AddItem "Accounting" cbDivision.AddItem "Cleaners" cbDivision.AddItem "Admin" cbDivision.AddItem "Other" cbDivision.AddItem "Adminstration" cbDivision.AddItem "Secretary" cbDivision.AddItem "Account Managers" cbEmpStatus.AddItem "Full-Time" cbEmpStatus.AddItem "Part-Time" End Sub -- Runner77 ------------------------------------------------------------------------ Runner77's Profile: http://www.excelforum.com/member.php...o&userid=30388 View this thread: http://www.excelforum.com/showthread...hreadid=500987 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|