Novice in VBA Please helpout me.

[asdaqamin]

I want to know how we extract data from query.

like I have some fields in Base table depending upon particular value of combo, I am getting Info in that form.

???????=SELECT [tblMobileInfo].[MID], [tblMobileInfo].[ModelNumber], [tblMobileInfo].[Price], [tblMobileInfo].[Qty] FROM [tblMobileInfo] Where [tblMobileInfo].[CompanyID] = " & Me.Company.Column(0)

As I have to get the value of Price & Qty.

Private Sub ModelNumber_AfterUpdate()
Me.Price.Value = Me.ModelNumber.Column(2)
Me.Qty.Value = Me.ModelNumber.Column(3)
End Sub

In which Event I write query & what to write on left side like in ASP.NET we get the query in DataSet. How to manipulate query in VBA. Please guide me.

 

[Guus2005]

I want to know how we extract data from query.

like I have some fields in Base table depending upon particular value of combo, I am getting Info in that form.

???????=SELECT [tblMobileInfo].[MID], [tblMobileInfo].[ModelNumber], [tblMobileInfo].[Price], [tblMobileInfo].[Qty] FROM [tblMobileInfo] Where [tblMobileInfo].[CompanyID] = " & Me.Company.Column(0)

As I have to get the value of Price & Qty.

Private Sub ModelNumber_AfterUpdate()
Me.Price.Value = Me.ModelNumber.Column(2)
Me.Qty.Value = Me.ModelNumber.Column(3)
End Sub

In which Event I write query & what to write on left side like in ASP.NET we get the query in DataSet. How to manipulate query in VBA. Please guide me.

Create a recordset.

dim rst as recordset

set rst = currentdb.openrecordset ("select blabla")

if rst.recordcount = 1 then
   Me.Price.Value = rst.fields("ModelNumber") 'or rst.fields(0)
   Me.Qty.Value = rst.fields("Qty") 'or rst.fields(1)
endif

For a more specific answer, please post a sample database

 

[asdaqamin]

Check tblSaleInvoice Form. [ A field ModelNumber not showing after entry]. On new entry it works.

The Sample is attached.