-Поиск по дневнику

Поиск сообщений в rss_sql_ru_access_programming

 -Подписка по e-mail

 

 -Постоянные читатели

 -Статистика

Статистика LiveInternet.ru: показано количество хитов и посетителей
Создан: 16.03.2006
Записей:
Комментариев:
Написано: 4


Кнопка открытия формы

Понедельник, 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


 

Добавить комментарий:
Текст комментария: смайлики

Проверка орфографии: (найти ошибки)

Прикрепить картинку:

 Переводить URL в ссылку
 Подписаться на комментарии
 Подписать картинку