jqquintel1
05-15-2019, 04:04 PM
hello, I need some help. I am facing 1 error. Is there anyone who can fix this for me? It only takes a few minutes. thank you so much
Private Sub cmdAddrecord_Click()
Dim wks1, wks2 As Worksheet
Dim AddNewl, AddNew2 As Range
Set wksl = sheet1
Set wks2 = sheet2
(error) Set AddNew1 = wks1.Range("A65356").End(x1Up).Offset(1, 0)
AddNew1.Offset(0, 0).Value = txthastaid.Text
AddNew1.Offset(0, 1).Value = cboTitle.Text
AddNew1.Offset(0, 2).Value = txtname.Text
AddNew1.Offset(0, 3).Value = txtsurname.Text
AddNew1.Offset(0, 4).Value = txttell.Text
AddNew1.Offset(0, 5).Value = txtage.Text
AddNew1.Offset(0, 6).Value = cboGender.Text
AddNew1.Offset(0, 7).Value = txtadress.Text
AddNew1.Offset(0, 8).Value = txtcounty.Text
AddNew1.Offset(0, 9).Value = txtpostacode.Text
lstAppointment.ColumnCount = 10
lstAppointment.RowSource = "B1:J65356"
Set AddNew2 = wks2.Range("A65356").End(x1Up).Offset(1, 0)
AddNew2.Offset(0, 0).Value = txtdoctorid.Text
AddNew2.Offset(0, 1).Value = cboDocTitle.Text
AddNew2.Offset(0, 2).Value = txtdname.Text
AddNew2.Offset(0, 3).Value = txtdsurname.Text
AddNew2.Offset(0, 4).Value = txttell.Text
AddNew2.Offset(0, 5).Value = txtdp.Text
AddNew2.Offset(0, 6).Value = txtdp2.Text
AddNew2.Offset(0, 7).Value = txtdp3.Text
AddNew2.Offset(0, 8).Value = txtemail.Text
AddNew2.Offset(0, 9).Value = txtAppointment.Text
AddNew2.Offset(0, 10).Value = txtdate.Text
AddNew2.Offset(0, 11).Value = txttime.Text
AddNew2.Offset(0, 12).Value = cboConfirm.Text
lstdisplay.ColumnCount = 12
lstdisplay.RowSource = "B1:L65356"
Private Sub cmdAddrecord_Click()
Dim wks1, wks2 As Worksheet
Dim AddNewl, AddNew2 As Range
Set wksl = sheet1
Set wks2 = sheet2
(error) Set AddNew1 = wks1.Range("A65356").End(x1Up).Offset(1, 0)
AddNew1.Offset(0, 0).Value = txthastaid.Text
AddNew1.Offset(0, 1).Value = cboTitle.Text
AddNew1.Offset(0, 2).Value = txtname.Text
AddNew1.Offset(0, 3).Value = txtsurname.Text
AddNew1.Offset(0, 4).Value = txttell.Text
AddNew1.Offset(0, 5).Value = txtage.Text
AddNew1.Offset(0, 6).Value = cboGender.Text
AddNew1.Offset(0, 7).Value = txtadress.Text
AddNew1.Offset(0, 8).Value = txtcounty.Text
AddNew1.Offset(0, 9).Value = txtpostacode.Text
lstAppointment.ColumnCount = 10
lstAppointment.RowSource = "B1:J65356"
Set AddNew2 = wks2.Range("A65356").End(x1Up).Offset(1, 0)
AddNew2.Offset(0, 0).Value = txtdoctorid.Text
AddNew2.Offset(0, 1).Value = cboDocTitle.Text
AddNew2.Offset(0, 2).Value = txtdname.Text
AddNew2.Offset(0, 3).Value = txtdsurname.Text
AddNew2.Offset(0, 4).Value = txttell.Text
AddNew2.Offset(0, 5).Value = txtdp.Text
AddNew2.Offset(0, 6).Value = txtdp2.Text
AddNew2.Offset(0, 7).Value = txtdp3.Text
AddNew2.Offset(0, 8).Value = txtemail.Text
AddNew2.Offset(0, 9).Value = txtAppointment.Text
AddNew2.Offset(0, 10).Value = txtdate.Text
AddNew2.Offset(0, 11).Value = txttime.Text
AddNew2.Offset(0, 12).Value = cboConfirm.Text
lstdisplay.ColumnCount = 12
lstdisplay.RowSource = "B1:L65356"