Hi All

I am trying to open Form B from click event of Allocate button which is on Form A.
but somehow its not opening

Code in Form A
Private Sub Allocate_Click()
Dim q As New ADODB.Command, criteria As String, r As New ADODB.Recordset

If sf(23) Then Exit Sub
DoCmd.Hourglass True
Application.RunCommand acCmdSaveRecord
criteria = "[MID]=" & Me!MID
DoCmd.OpenForm "Stock Allocation Grid", , , criteria
DoCmd.Hourglass False
End Sub


Form Properties of B
Record Source:[Table_Name]
Record Source Qualifier:[dbo]
Filter:[Empty]
Order By:[Item]


Private Sub Form_Open(Cancel As Integer)
 Me.OrderBy = "Item"
 Me.OrderByOn = True
End Sub

any suggestion or advice

I am not sure what this means:

If sf(23) Then Exit Sub


Otherwise, I would do this:

Private Sub Allocate_Click()
Dim sDoc As String
Dim sLink As String
Dim iMid As Integer

iMid = Me.MID

sLink = "[MID] = " & iMid
sDoc = "Stock Allocation Grid"

DoCmd.OpenForm sDoc, , , sLink

Works every time.




mmcdonal

Hi, Good Morning

I did add this line of code in Form B in form open event

Filter="MID=Forms!Orders.MID"

and I've tried to Print values in immediate window using


Print MID
 38059 [wrong value]
and FormB get all value associated with that record number [38059] from table
I am not sure but i have feeling some thing wrong in form properties which is
DATA TAB
Record Source-->Table Name
Record Source Qualifier-->dbo
Filter-->[MID]=Forms!Orders.MID
Order By-->Item
Allow Filter-->Yes
Allow Edits-->Yes
Server Filter-->[MID]=38059 ' I am not sure why we have this here
Server Filter By Form-->No



Print Me.Filter
[Empty]

Print Forms!FormA.MID
 40849 [Correct value]

Thanks