Help - How to Get textbox value from datasheet subform

[alaric01]

Hi

i have a main form that contains customer data. On the main form i have a datasheet subform that displays the history of transaction for each customers.

the datasheet only displays 3 fields from the table. what i want to do is to create a button that opens a popup form that displays the transaction details (all the fields) based on the invoice no from the datasheet subform.

the main form is frm_main_customer
and the subform is frm_main_transaction

and the textbox in the datasheet subform from which i want to retrieve the data is called txt_invoice_no

what i did was create a button that opens the transaction detail form lets say it is called frm_transaction. in the frm_transaction onLoad event i create a vba code to filter the data based on the invoice_on on the datasheet subform.

the code was like

me.filter = invoice_no = "Forms!frm_main_customer.txt_invoice_no.value
me.filteron = true



what happened was when i run the application and click the detail button it is asking for a parameter which is the invoice_no.

if i put the invoice no in the parameter box it will popup the form with the correct data. however i want it to display the data without asking for the parameter.

i've used the code for other forms (but not a datasheet subform) and it worked perfectly.

i've also tried to change the code to:

me.filter = invoice_no = "Forms!frm_main_transaction.txt_invoice_no.val ue"
me.filteron = true

still cannot make it work.

any idea??

thx

[weekend00]

me.filter = "invoice_no = '" & Forms!frm_main_transaction.txt_invoice_no.value & "'"
me.filteron = true

don't miss the (').

I am not sure if you need to specify frm_main_customer, if above doesn't work, try it:
me.filter = "invoice_no = '" & forms!frm_main_customer!frm_main_transaction.txt_i nvoice_no.value & "'"
me.filteron = true

[alaric01]

weeked00 thx for your reply

i've tried both ways.for the first one

me.filter = "invoice_no = '" & Forms!frm_main_transaction.txt_invoice_no.value & "'"
me.filteron = true

i've got a runtime error 2450 saying that Microsoft Access can't find the form frm_main_transaction referred to in a macro expression or visual basic code.

as for the second one

me.filter = "invoice_no = '" & forms!frm_main_customer!frm_main_transaction.txt_i nvoice_no.value & "'"
me.filteron = true

i've got a run time error 438 saying that Object doesn't support this property or method..

any other ideas?

[alaric01]

i've tried to change the default view to single form and still have the same problem. so i guess the problem is not the datasheet but the subform. how can i can get a textbox value from a subform?

still figuring this out..

[alaric01]

solved the problem,.the problem was the syntax, found out that a subform is just another control on the main form.

so i change the code to

Me.Filter = "invoice_no = Forms!frm_main_customer!frm_main_transaction.Form. txt_invoice_no.Value "

Me.FilterOn = True

and oh yeah i did not use the ('), didn't work when i use it..

finally can have a good night sleep...

[weekend00]

Good night.

Is invoice_no a number? I was thinking it is a string.

[alaric01]

invoice_no is an auto_increment number