Ответить на сообщение
Вернуться к теме
Вы отвечаете на сообщение:
ник: moloh
Private Sub Кнопка5_Click() Dim ValShopNum As Long Dim stDocName As String Forms!Run!ShopNumber.SetFocus ValShopNum = Forms!Run!ShopNumber.Text MsgBox (ValShopNum), vbInformation stDocName = "qryShop" DoCmd.OpenQuery stDocName, acNormal, acEdit End Sub
Ваше имя:
Пароль:
Сообщение:
Прикрепить:
Для вставки смайлов в текст щелкните по значку.