Въпрос за MSAccess
4 отговора
253 прегледа
Въпрос за MSAccess
Сигурно темата не е за тук, но като гледам за MSAccess няма място в клуб „Бази данни”. Доколкото си спомням съм виждала ваши мнения, в който при определени случаи препоръчвате използването му. Така, че ако някой от вас може да помогне ще съм ви благодарна.
Та на въпроса:
По какъв начин да направя така, че в ComboBox при натискане на F2 да старира определена форма?
Та на въпроса:
По какъв начин да направя така, че в ComboBox при натискане на F2 да старира определена форма?
Re: Въпрос за MSAccess
Направи един макрос със следните 2 команди:
SendKeys
Keystrokes="vbKeyF2"
Wait=no
OpenForm
FormName = "Tvoiata forma"
После във формата задай този макрос да се стартира при настъпване на събитие "On Key Down".
SendKeys
Keystrokes="vbKeyF2"
Wait=no
OpenForm
FormName = "Tvoiata forma"
После във формата задай този макрос да се стартира при настъпване на събитие "On Key Down".
Re: Въпрос за MSAccess
Благодаря получи се, но защо като стартира формата
поставя в първото поле на първи запис - vbKeyF2
какво съм сгрешила?
по същата логика опитах вместо с макрос с процедура:
Private Sub firma_KeyDown(KeyCode As Integer, Shift As Integer)
SendKeys (vbKeyF2)
DoCmd.OpenForm FormName:="firmi"
End Sub
но и тук се получава същото. Отваря формата, но в първия запис на
първото поле поставя - 113.
поставя в първото поле на първи запис - vbKeyF2
какво съм сгрешила?
по същата логика опитах вместо с макрос с процедура:
Private Sub firma_KeyDown(KeyCode As Integer, Shift As Integer)
SendKeys (vbKeyF2)
DoCmd.OpenForm FormName:="firmi"
End Sub
но и тук се получава същото. Отваря формата, но в първия запис на
първото поле поставя - 113.
Re: Въпрос за MSAccess
Ами проверих и първото ми решение се оказа грешно...
Но го промених малко. Пробвай с това:
Private Sub име на комбо бутона_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF2 Then DoCmd.OpenForm FormName:="твоята форма"
End Sub
Но го промених малко. Пробвай с това:
Private Sub име на комбо бутона_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF2 Then DoCmd.OpenForm FormName:="твоята форма"
End Sub