Vb code on entering values.

[TheunsGoosen]

(Access beginner)
I have a query that is displaying a answer in form view as a guide line, if the user is happy with the answer he can press the command button so to allow the query values to display in the combo box for further use or type in his own vallues, but im strugglig with the vb code?

Private Sub Command331_Click()

?

End Sub

Thanks
TC

 

[nickdel]

eh? is your question: "how do I dynamically populate the options in a combo box from a query?"?

if it is then you have 2 options.
if your using a dynamic query then you need to use a recordset like so:

Dim MyRS As ADODB.Recordset
Dim Conn As ADODB.Connection
Dim MyQuery As String

MyQuery = "select CustomerName from Customers"


Set Conn = Application.CurrentProject.Connection
Conn.Open
Set MyRS = New ADODB.Recordset

MyRS.Open MyQuery, Conn

Do While Not MyRS.EOF
    MyCombo.AddItem MyRS.Fields("CustomerName")
    MyRS.MoveNext
Loop

MyRS.Close
Set MyRS = Nothing

Conn.Close
Set Conn = Nothing

or if your query is static and saved as an Access query then simply do this:

MyCombo.RecordSource = "Query1"
MyCombo.Requery

Cheers

Nick