🚀 go-pugleaf

W dniu 2017-04-28 o 16:10, LeszekN pisze:
>> Otwarty jest formularz "frmWyborTowary", ustawiasz fokus na formancie
>> "FNazwa" i chcesz by w trakcie pisania tekstu w formancie "Symbol" taki
>> sam tekst pojawił się w formancie "FNazwa".
>> Czy dobrze rozumuję ?
>
> Witam Pana Zbigniewa, dzięki za zainteresowanie.
>
> Formant "symbol" pochodzi z podfomularza, jest to lista Towarów, po której poruszamy się za pomocą strzałek, enter otwiera Formularz ze szczegółami danego rekordu, natomiast przy naciśnięciu klawiszy od a do z oczywiście alt, ctrl, shift, liczby, itp chciałbym aby najpierw uzyskać focus na Fnazwa a potem pojawił się znak wciśnięty na klawiaturze a dalej wyjaśni to poniższy kod

[...]


Tak jak pisałem wcześniej. Formularz "frmWyborTowary" nie może być 
otwarty z argumentem acDialog (formularz dialogowy), bo wykonanie kodu 
zatrzyma się na linijce  otwarcia formularaz i zostanie wznowione po 
jego zamknięciu.

Może w ten sposób da się osiągnąć zamierzony cel:
'________________________________________________________________
Private Sub Symbol_KeyDown(KeyCode As Integer, Shift As Integer)
   If KeyCode = vbKeyReturn Then
     ' sprawdź, czy jest załadowany formularz
     If Not IsFormLoaded("frmWyborTowary") Then
       DoCmd.OpenForm "frmWyborTowary", acNormal, , , acFormAdd ', acDialog
       Forms("frmWyborTowary").Controls("fNazwa").SetFocus
       DoEvents
     End If
   End If

End Sub
'____________________________________________________________
Private Sub Symbol_KeyUp(KeyCode As Integer, Shift As Integer)
     ' sprawdź, czy jestn załadowany formularz
     If Not IsFormLoaded("frmWyborTowary") Then Exit Sub

    ' sprawdź, czy fokus jest w formancie "fNazwa"
   If StrComp("fNazwa", Forms("frmWyborTowary").ActiveControl.Name, 
vbTextCompare) <> 0 Then
     Forms("frmWyborTowary").Controls("fNazwa").SetFocus
     DoEvents
   End If

   ' wpisz tekst w formancie "fNazwa"
   Forms!frmWyborTowary.fNazwa.Text = Me.Symbol.Text

End Sub
'___________________________________________________________
Private Function IsFormLoaded(strFrmName As String) As Boolean
   On Error Resume Next
     IsFormLoaded = CBool(Forms(strFrmName).Hwnd)
End Function



-- 
Pozdrowienia
BraZby
www.faq.accdb.pl
www.accdb.pl