Понедельник, 04 Августа 2014 г. 23:23
+ в цитатник
Доброго времени суток
Уважаемые форумчане, прошу помощи.
Есть две формы, FORM1 и FORM2
На FORM1 есть кнопка открытия FORM2:
Private Sub Form_Load()
If Forms!Force.User = "Механик" Then
Me.Form.RecordSource = "SELECT * FROM MEHANIK"
End If
If Forms!Force.User = "SLESAR" Then
Me.Form.RecordSource = "SELECT * FROM SLESAR"
End If
If Forms!Force.User = "MANAGER" Then
Me.Form.RecordSource = "SELECT * FROM MANAGER"
End If
End Sub
Private Sub ZARPLATA_DblClick(Cancel As Integer)
On Error GoTo Err_ZARPLATA_DblClick
Dim stDocType As String
Dim stLinkCriteria As String
stDocType = "TYPE"
stLinkCriteria = "[Код]=" & Me.[Код]
DoCmd.OpenForm stDocType, , , stLinkCriteria
Exit_ZARPLATA_DblClick:
Exit Sub
Err_ZARPLATA_DblClick:
MsgBox Err.Description
Resume Exit_ZARPLATA_DblClick
End Sub
Код FORM2:
Private Sub Form_Load()
If Forms!Force.User = "Механик" Then
Me.Form.RecordSource = "SELECT * FROM MEHANIK_TABEL"
End If
If Forms!Force.User = "SLESAR" Then
Me.Form.RecordSource = "SELECT * FROM SLESAR_TABEL"
End If
If Forms!Force.User = "MANAGER" Then
Me.Form.RecordSource = "SELECT * FROM MANAGER_TABEL"
End If
End Sub
При нажатии на кнопку ЗАРПТАТА, открывается FORM2 но только всегда с записью, которая первая в таблицах *_TABEL.
То есть stLinkCriteria не срабатует.
Помогите плз, как правильно сделать DoCmd.OpenForm что бы форма открывалась с заданым критерием?
Заранее спасибо.
http://www.sql.ru/forum/1108954/knopka-otkrytiya-formy
-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-