[RESOLVED] Method or data menber not found

[macky^^]

Compile error:Method or data menber not found.
Any ideas what's wrong with this coding?

Option Explicit
Private cn As ADODB.Connection
Private rs As ADODB.Recordset
Private total4
Dim temp, mov
Dim DataMember As String
Dim Data As Object
 
 
Private Sub Form_Load()
Set cn = New ADODB.Connection
cn.Provider = "Microsoft.Jet.OLEDB.4.0"
cn.Open App.Path & "./Car Rental.mdb"
 
Set rs = New ADODB.Recordset
rs.Open "Customer", cn, adOpenStatic, adLockOptimistic, _
adCmdTable
 
Set Text1.DataSource = rs
Text1.DataField = "CustID"
Set Text2.DataSource = rs
Text2.DataField = "CustFname"
Set Text3.DataSource = rs
Text3.DataField = "CustLname"
 
Call GetDataMember
d.Caption = rs.total4 '<------- error source
 
End Sub
Private Sub GetDataMember()
 
Set Data = rs
temp = rs.RecordCount
 
If temp < 2 Then
 mov = temp & " Customer "
Else
 mov = temp & " Customers "
End If
 
total4 = "Total " & mov & "in the database."
 
End Sub

[noielen]

these codes are in one form??

[jcis]

total4 is not a member of rs, if it's a field in your table then try..

d.Caption = rs.Fields("total4")

[RobDog888]

Yes, you probably mixed up the short hand notation of using a period when it shold be an exclamation point.

d.Caption = rs!total4

[manny18]

i'll also try

d.Caption = rs.Fields(total4)

[macky^^]

Sorry, i got an runtime error.

Item cannot be found in the collection corresponding to the requested name or ordinal.

d.Caption = rs!total4 '<---- error

[RobDog888]

Then total4 is not a field in your table or query select statement. Verify the spelling in your base table.

[manny18]

what is total4?

d.Caption = total4

[RobDog888]

Doh! Its a variant variable and not a field name at all. Your setting a string to it and that string is not in your database' fields collection for your base table.

Private total4
 
'...
total4 = "Total " & mov & "in the database."

[macky^^]

total4 is used to calculate recordcount of my records.
It just a name.

Private total4

Private Sub GetDataMember()
 
Set Data = rs
temp = rs.RecordCount
 
If temp < 2 Then
 mov = temp & " Customer "
Else
 mov = temp & " Customers "
End If
 
total4 = "Total " & mov & "in the database."
 
End Sub

[macky^^]

Doh! Its a variant variable and not a field name at all. Your setting a string to it and that string is not in your database' fields collection for your base table.

Private total4
 
'...
total4 = "Total " & mov & "in the database."

then what should i do?

[manny18]

maybe this one might work

d.Caption = total4

[RobDog888]

Then it should be something like...

d.Caption = total4

[macky^^]

Then it should be something like...

d.Caption = total4

That is the same as my original coding.
See thread 1 pls.

[RobDog888]

No its not. Check where it says "Error here"

d.Caption = [color=red][b]rs.[/b][/color]total4 '<------- error source

[macky^^]

Thanks all your inputs, i got the error solved.

rs.Open "Customer", cn, adOpenStatic, adLockOptimistic, _
adCmdTable

rs.Open "Customer", cn, adOpenStatic, adLockOptimistic, adCmdTable

Is there a difference when you do the 2 coding above?

[manny18]

none

[RobDog888]

That will not create the error as its nothing more then a line continuation character. Also, if it was it would have highlighted that line instead.

As long as its working now.