ERROR: Object Required

[Vbbeginner07]

Please check the following code for adding records to a database:

Im getting the error:object required in the following code( which is in bold letters)

kindly go through
[vbcode]
Private Sub cmdAdd_Click()
strdep = cbodep.Text
rs.Open "select departmentno from Departments where departmentname ='" & strdep & "' ", conn, adOpenStatic, adLockOptimistic
If Not rs.EOF Then
strdep = rs!Departmentno
End If
rs.Close
strdes = cbodes.Text
rs.Open "select DesignationsId from Designations where DesignationName = '" & strdes & "' ", conn, adOpenStatic, adLockOptimistic
If Not rs.EOF Then
strdes = rs!designationsid
End If
rs.Close
If Trim(Form2.txtgid.Text) = "" Then
MsgBox "Please enter numbers", vbOKOnly, "ERROR"
cbostate.SetFocus
ElseIf IsNumeric(txtnme.Text) Then
MsgBox "Numbers are not allowed", vbExclamation, "ERROR"
txtnme.SetFocus
ElseIf cbosex.Text = "" Then
MsgBox "Enter the valid Data", vbExclamation, "ERROR"
cbosex.SetFocus
Else
rs1.Open "select * from EmployeeDetails where GTTLID = '" & Form2.txtgid.Text & "'", conn, adOpenStatic, adLockOptimistic
If rs1.EOF Then
conn.BeginTrans
conn.Execute "insert into EmployeeDetails(GTTLID,EmployeeName,age,sex,Depart ment,Designation,DOB,DOJ,PhoneNo,MobileNo,EmailId, Address) values ('" & txtgid & "','" & txtnme & "','" & cboage & "','" & cbosex & "'," & strdep & ",'" & strdes & "','" & dtdob & "','" & dtdoj & "','" & txtphne & "','" & txtmob & "','" & txtmail & "','" & txtadd & "')"
MsgBox "INSERTED NEW RECORDS", vbOKOnly, "ADDING NEW RECORDS"
Else
MsgBox "duplicate record"
End If
rs1.Close
Set rs1 = Nothing
End If
end sub
[/vbcode]


thanks in advance:

[lotus18]

Please check the following code for adding records to a database:

Im getting the error:object required in the following code( which is in bold letters)

kindly go through

Private Sub cmdAdd_Click()
strdep = cbodep.Text
 rs.Open "select departmentno from Departments where departmentname ='" & strdep & "' ", conn, adOpenStatic, adLockOptimistic
If Not rs.EOF Then
 strdep = rs!Departmentno
End If
 rs.Close
 strdes = cbodes.Text
 rs.Open "select DesignationsId from Designations where DesignationName = '" & strdes & "' ", conn, adOpenStatic, adLockOptimistic
If Not rs.EOF Then
 strdes = rs!designationsid
End If
rs.Close
If Trim(Form2.txtgid.Text) = "" Then
MsgBox "Please enter numbers", vbOKOnly, "ERROR"
cbostate.SetFocus
ElseIf IsNumeric(txtnme.Text) Then
   MsgBox "Numbers are not allowed", vbExclamation, "ERROR"
   txtnme.SetFocus
ElseIf cbosex.Text = "" Then
   MsgBox "Enter the valid Data", vbExclamation, "ERROR"
   cbosex.SetFocus
 Else
rs1.Open "select * from EmployeeDetails where GTTLID = '" & Form2.txtgid.Text & "'", conn, adOpenStatic, adLockOptimistic
If rs1.EOF Then
conn.BeginTrans
  conn.Execute "insert into EmployeeDetails(GTTLID,EmployeeName,age,sex,Department,Designation,DOB,DOJ,PhoneNo,MobileNo,EmailId,Address) values ('" & txtgid & "','" & txtnme & "','" & cboage & "','" & cbosex & "'," & strdep & ",'" & strdes & "','" & dtdob & "','" & dtdoj & "','" & txtphne & "','" & txtmob & "','" & txtmail & "','" & txtadd & "')"
MsgBox "INSERTED NEW RECORDS", vbOKOnly, "ADDING NEW RECORDS"
 Else
  MsgBox "duplicate record"
  End If
 rs1.Close
 Set rs1 = Nothing
   End If
end sub
 

thanks in advance:

Enclosed your given codes with code tags for easy for us to understand.
Did you declared your rs1 as your new recordset? I cannot see your Active Connection or did I miss it?

Rey Sean

[Vbbeginner07]

Enclosed your given codes with code tags for easy for us to understand.
Did you declared your rs1 as your new recordset? I cannot see your Active Connection or did I miss it?

Rey Sean

....yes i got it.....rs1 was not declared,,,,,,,,,,,,,,,,,

Active Connection............

Public conn As New ADODB.Connection
Public rs As New ADODB.Recordset
Public rs1 As New ADODB.Recordset

Public rsid As New ADODB.Recordset
Public rsnme As New ADODB.Recordset
Public rsdept As New ADODB.Recordset
Public rsdes As New ADODB.Recordset
Public Sub Main()
conn.Open "Provider=sqloledb.1;User ID=sa;password=;Data Source=STATISTICS;Initial Catalog=Nicks"
'conn.Open "Provider=sqloledb.1;User ID=sa;password=;Data Source=HS445;Initial Catalog=EXMP"
Form1.Show
End Sub


rs1 was declared now only.............

Nikhita(Nicks)