hi Every one:
Any one can help me with this ? i want to open this form with new record and display that record on the form.
here is my Portion of Code.
response = MsgBox("Item Number:" & " " & itemNo & " " & "Does Not Exist in Conversion Factor Table" & vbCrLf & "Would You Like To Add This Now ?", vbYesNo, "Add Item To Conversion Factor Table")
If response = ID_YES Then
'This is where I am having problem in opening that form.
'Any Help Will Be Appreciated
DoCmd.OpenForm "zConversion Factor", acNormal, , , , acNewRec
SQLStmt = "Select * from [Inventory] where [Item Number]='" & RecipeitemNo & "'"
Set adrs = curdb.OpenRecordset(SQLStmt, dbOpenDynaset)
If adrs.EOF = False Then
'Accessing Table [Inventory Recipes]
SQLStmt = "Select * from [Inventory Recipes] where [FinishedProduct]='" & RecipeitemNo & "'"
Set adrsAddRecipe = curdb.OpenRecordset(SQLStmt, dbOpenDynaset)
'Checking if Item Exists
If adrsAddRecipe.EOF = True Then
DoCmd.OpenForm "zInventoryRecipes", acNormal
If isloaded("zInventoryRecipes") Then
Set openedForm = Forms![zInventoryRecipes].Form
DoCmd.GoToRecord , , acNewRec
.FinishedProduct = RecipeitemNo