Hello . I have one database named "rosie" that has a form with a field named "BMS Customer Number". with a click ...I want to open another DB and form and query the field "CustNo. by the value in the field "BMS Customer Number" ..Everything works until the applyfilter ..... Can you see my error?

Private Sub Command_20421_Click()
   Dim ProjDB As New Access.Application
   DoCmd.SetWarnings False
   Set ProjDB = GetObject("d:\PMQuoting\PM_CM039FE.mdb")
   ProjDB.DoCmd.OpenForm "frmquotes"
   ProjDB.Forms!frmquotes!QuoteNo.SetFocus
   ProjDB.DoCmd.ApplyFilter , "QuoteNo = '[Forms]![Rosie]![BMS Customer Number]'"
   DoCmd.SetWarnings True

---

Richard Replies:

Try changing this:

ProjDB.DoCmd.ApplyFilter , "QuoteNo = '[Forms]![Rosie]![BMS Customer Number]'"

to this:

ProjDB.DoCmd.ApplyFilter , "QuoteNo = '" & [Forms]![Rosie]![BMS Customer Number] & "'"

You want to filter based on the VALUE of your customer number.

Let me know if it works. If not, there might be a better way to go about this.