A Microsoft Office (Excel, Word) forum. OfficeFrustration

If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below.

Go Back   Home » OfficeFrustration forum » Microsoft Access » Using Forms
Site Map Home Register Authors List Search Today's Posts Mark Forums Read  

matching multiple forms on open to form records



 
 
Thread Tools Display Modes
  #1  
Old June 10th, 2004, 06:38 PM
EdwardA
external usenet poster
 
Posts: n/a
Default matching multiple forms on open to form records

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

 




Thread Tools
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

vB code is On
Smilies are On
[IMG] code is Off
HTML code is Off
Forum Jump


All times are GMT +1. The time now is 08:55 PM.


Powered by vBulletin® Version 3.6.4
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 OfficeFrustration.
The comments are property of their posters.