| |
|
|
| |
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
|
в запросе qryShop условием отбора должна служит переменная ValShopNum. Как?
Заранее спасибо. | |
| |
| |
| |
|
|
| | "Текст запроса условие запроса=' " & ValShopNum & "' " - если переменная стринг
"Текст запроса условие запроса='" & ValShopNum - если переменная число | |
| |
| |
| |
|
|
| | если Вы хотете использовать именно своство TEXT поля формы, и открывать запрос именно через DoCmd.OpenQuery, то нужно измениять свойство SQL данного запроса (объект querydef)
Если же можно использовать значение поля (не свойство TEXT), то
http://hiprog.com/index.php?option=com_content&task=blogcategory&id=119&Itemid=159
Q16. | |
| |
| |
