matching multiple forms on open to form records

E

EdwardA

Problem: Im trying to open 3 forms for inventory
control. One form is all the RMA's issued, one is our
inhouse inventory, and one is shipped inventory. The
purpose of openning 3 forms is to view by unit whether an
RMA has been issued, and where that unit is in the RMA
process.

My stock windows come up fine (although any nonmatches are
just white screens.. how do I fix this by the way?), but
my RMA window, does not come up, instead another search
window pops up. My linkage goes as follows:

Link 1: Search Form > Tag Number = match. - Inhouse
Link 2: Search Form > Tag Number = match. - Outgoing
Link 3: RMA Number (located on inhouse form) to RMA Number
(on RMA Log. The log does not have issued tag numbers, as
it exists prior to any item being received. The only
common unique identifier is the RMA number)

Here is my code.

Private Sub Command3_Enter()
On Error GoTo Err_Command3_Enter

Dim stDocName As String
Dim ssDocName As String
Dim srDocName As String
Dim stLinkCriteria As String
Dim ssLinkCriteria As String
Dim srLinkCriteria As String

stDocName = "STOCK_WHSE27"
ssDocName = "STOCK_OUT"
srDocName = "TECH_RMA_Log"

stLinkCriteria = "[Tag Number]=" & "'" & Me![Text1]
& "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria

ssLinkCriteria = "[Tag Number]=" & "'" & Me![Text1]
& "'"
DoCmd.OpenForm ssDocName, , , ssLinkCriteria

srLinkCriteria = "[RMA Number]=" & "'" Forms!
STOCK_WHSE27![RMA] & "'"
DoCmd.OpenForm srDocName, , , srLinkCriteria

Exit_Command3_Enter:
Exit Sub

Err_Command3_Enter:
MsgBox Err.Description
Resume Exit_Command3_Enter

End Sub


Any assistance in getting these forms to open and match
appropriately would be greatly appreciated.

Thanks,

Edm
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top