• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 154
  • Last Modified:

DB GRID CONTROL AND DATA ACCESS

This is really annonying me.  I have an access DB that I am accessing through VB.  I have a DBcombo DBGrid and Data Control.

I have about 7 forms.  Main form calls the other forms where I am running a query.  On the first 3 forms this works fine:

Private Sub DBCombo1_Click(Area As Integer)

Let Me.Data1.RecordSource = "SELECT * FROM [STUDENT QUERY] WHERE [student id]= '" & _
Me!DBCombo1.Text & "'"
Me.Data1.Refresh


Even though It appears that I have the exact same code and properties for the controls, On all the other forms when I open the dbcombo or when the form loads, I get this message

Runtime Error 438
Object does not support this property or method
It occurs with the Data1.Refresh.

If I remove Data1.refresh I don't get errors, but of course the dbgrid is not bound to my dbcombo.

What am I doing wrong?
thanks
0
DAVIDH
Asked:
DAVIDH
  • 2
  • 2
1 Solution
 
anthonycCommented:
try dbgrid1.rebind

0
 
DAVIDHAuthor Commented:
It does not give me an error message, but it does not update anything either.

Any other ideas?
0
 
anthonycCommented:
I would try this:

dim rs as recordset

set rs = data1.database.openrecordset("select * from table1", dbOpenDynaset)
set data1.recordset = rs
dbgrid1.rebind


0
 
DAVIDHAuthor Commented:
I found the problem,  Each form has a Data1 on it, When I change the name to data6 and the dbgrid recordsource to data6 it works, go figure, it must have been looking at a datacontrol on another form.

David
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Free Tool: Site Down Detector

Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

  • 2
  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now