Tell me more ×
Stack Overflow is a question and answer site for professional and enthusiast programmers. It's 100% free, no registration required.
up vote 0 down vote favorite

I got a main form which contains two coloumns which list a no/product. I had given vba code for product field click event to open preduct detail form with the selected product and it details to edit. I given code as below

Dim stDocName As String
    Dim stLinkCriteria As String
    stLinkCriteria = Me.Product

    stDocName = "ProductDetail"
    DoCmd.openform stDocName, , , "Product = " & stLinkCriteria

When I click the product its showing a input box and while enter the value its opening the product details with correct information.

I dont want to input the product name every time. I want this to work directly while clicking the product and should open it product details.

Please let me know how can do this ?

share|improve this question
1  
Please post the record source for Product Detail. If the record source is a table, please post the schema for the table, if it is a query, please post the SQL. – Remou Jun 16 '12 at 8:39
thank you very much for the response @Remou – Gopipuli Jun 21 '12 at 8:16

2 Answers

up vote 1 down vote

If the [Product] field is text data type, enclose stLinkCriteria with quotes in your OpenForm statement.

DoCmd.OpenForm stDocName, , , "Product = '" & stLinkCriteria & "'"
share|improve this answer
its still showing up the input box, thank you for the response – Gopipuli Jun 16 '12 at 7:09
Does the record source for ProductDetail include a field named Product? – HansUp Jun 16 '12 at 7:12
yes it got the product field in it. – Gopipuli Jun 16 '12 at 7:43
thank you very much for the help @HansUp – Gopipuli Jun 21 '12 at 8:14
up vote 0 down vote

This code help me to fix the above problem

Forms!Frm.SetFocus 

Const FORMNAME = "frm1"


Dim ctrl As Control
Dim strCriteria As String

On Error GoTo Err_Handler

Set ctrl = Me.ActiveControl

strCriteria = "[Product] = """ & ctrl & """"


DoCmd.OpenForm FORMNAME, WhereCondition:=strCriteria

Exit_Here:
Exit Sub

Err_Handler:
MsgBox Err.Description, vbExclamation, "Error"
Resume Exit_Here
share|improve this answer

Your Answer

 
discard

By posting your answer, you agree to the privacy policy and terms of service.

Not the answer you're looking for? Browse other questions tagged or ask your own question.