Subform Jumping to first record field

[yahya263]

Thanks again, burrina.

 

[sumox]

hey yahya263, listen

Just Re-create subform and then check it.

Delete old subform
--------------------------------------
God is Merciful

 

[sumox]

pls. SEND Screenshot of what you want and
what is happening wrong

i've gone thru your Db . There are soem Script Errors VBA

Correct those and then Re-post Screenshot of the problem !

 

[yahya263]

Hi burrina

I have created another combobox. But was not that successful, as it was not bringing the related sub form entries. Therefore, I went for the check box solution again and was almost successful except that, when the row source of the combo box changes to new query, it shows StockID instead of StockName. So I get #Error in the sub form. It also affects the textboxes in the main form. I am attaching the latest version of the db for your support please.

 

[burrina]

If you go into design mode and right click your combo, then choose copy, then paste, it will create a new copy of the combo for you. Then use the code I posted for you. Of course you have to set the Format to Column Count 2 and Columns Widths to 0";1.3646"


HTH

Good Luck With Your Project. Color me done.

 

[yahya263]

Hi burrina

Done everything as you advised. Getting the StockNames in the new combo box. However, it is not taking me to the sub form entries, nor does the text boxes in the main form change. I am attaching the db for you to have a look. Thanks.

 

[burrina]

You need to take some time and learn. I wont write this for you. It's a simple thing to take the code from the combo and apply it to the new one!

 

[yahya263]

This is the code I used in the new combo box
--------------------------------------------------------
Private Sub CboUnlisted_AfterUpdate()
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[StockName] = '" & Me![CboUnlisted] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
[Forms]![frmTransactions]![Transactions Subform1].SetFocus
DoCmd.GoToRecord , , acNewRec
End Sub
-----------------------------------------------