records from popup subform doesnot follow recs from the main form

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Hi
i made a command button which is open a form(no modal) linked with the main
form .How i can synchronize scrolling at the main form with the corresponding
records at the pop up form ?
----------------------------------------------------------------------
Private Sub Command44_Click()
On Error GoTo Err_Command44_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = ChrW(913) & ChrW(953) & ChrW(964) & ChrW(951) & ChrW(963) &
ChrW(951) & ChrW(95) & ChrW(70)

stLinkCriteria = "[EmployeeID]=" & Me![EmployeeID]
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Command44_Click:
Exit Sub

Err_Command44_Click:
MsgBox Err.Description
Resume Exit_Command44_Click

End Sub
 
chill,

The synchronizing of records in the primary form with relate records in
another form is exactly what "sub forms" are for.

If there some reason why you would not just use a sub form and link the
subform with the master form by the "Master and Child link fileds"?
 
Hello
I cant use it as embending because i dont have any free space (there r
already other child subforms ) and i use it rarely so i dont want to watch
it every time i open my main form window. Is it possible to sinchronize those
two forms ?

Mr B said:
chill,

The synchronizing of records in the primary form with relate records in
another form is exactly what "sub forms" are for.

If there some reason why you would not just use a sub form and link the
subform with the master form by the "Master and Child link fileds"?
--
HTH

Mr B


chill said:
Hi
i made a command button which is open a form(no modal) linked with the main
form .How i can synchronize scrolling at the main form with the corresponding
records at the pop up form ?
----------------------------------------------------------------------
Private Sub Command44_Click()
On Error GoTo Err_Command44_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = ChrW(913) & ChrW(953) & ChrW(964) & ChrW(951) & ChrW(963) &
ChrW(951) & ChrW(95) & ChrW(70)

stLinkCriteria = "[EmployeeID]=" & Me![EmployeeID]
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Command44_Click:
Exit Sub

Err_Command44_Click:
MsgBox Err.Description
Resume Exit_Command44_Click

End Sub
Click to expand...
Click to expand...
 
Back
Top