Open Form showing Selected Vendor only

  • Thread starter Thread starter Dave Elliott
  • Start date Start date
D

Dave Elliott

Need form BlankChecks to open with criteria from combo187 on form
frmAutoPayrollReport
Table where Combo187 comes from is VendorInfo
Query where Combo187 comes from is Vendor Field is Vendor
Form where combo187 is on is named frmAutoPayrollReport
How can I make the combo187 open the form BlankChecks showing whatever I
input into the Combo187 Drop Down List?




On Error GoTo Err_Command167_Click
Dte1 = Forms!frmAutoPayrollReport!BeginDate
Dte2 = Forms!frmAutoPayrollReport!EndDate
Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "BlankChecks"
DoCmd.OpenForm stDocName where [Customers] =
[Forms]![frmAutoPayrollReport]![Combo187]"
Me![Combo187] = Null
Exit_Command167_Click:
Exit Sub

Err_Command167_Click:
MsgBox Err.Description
Resume Exit_Command167_Click
 
Dave, comments in-line...

Need form BlankChecks to open with criteria from combo187 on form
frmAutoPayrollReport
Table where Combo187 comes from is VendorInfo
Query where Combo187 comes from is Vendor Field is Vendor
Form where combo187 is on is named frmAutoPayrollReport
How can I make the combo187 open the form BlankChecks showing whatever I
input into the Combo187 Drop Down List?




On Error GoTo Err_Command167_Click
Dte1 = Forms!frmAutoPayrollReport!BeginDate
Dte2 = Forms!frmAutoPayrollReport!EndDate
Click to expand...
Do yourself a favor and use the Me keyword to refer to the form that
is holding the code. Also reports as far as that goes. Me "dot" will
bring up intellisense to help select form objects and controls. And
the code will be easier to read for maintenance.

Dte1 = Me.BeginDate
Dte2 = Me.EndDate
Dim stDocName As String
Dim stLinkCriteria As String
Click to expand...
Again for future readability put your Dim's at the top of the
procedure.
stDocName = "BlankChecks"
DoCmd.OpenForm stDocName where [Customers] =
[Forms]![frmAutoPayrollReport]![Combo187]"
Click to expand...
You don't need the "Where" for the where condition - it's implied. And
it needs to be a string.

DoCmd.OpenForm "BlankChecks",,,"Customers = " & Me.Combo187
Me![Combo187] = Null
Exit_Command167_Click:
Exit Sub

Err_Command167_Click:
MsgBox Err.Description
Resume Exit_Command167_Click
Click to expand...
And seriously consider using a naming convention - like the
Leszynski/Reddick style.

http://www.mvps.org/access/general/gen0012.htm

And remember F1 is your friend. (well, at least in A97)

- Jim
 
Back
Top