🚀 go-pugleaf

W dniu środa, 24 czerwca 2020 13:20:34 UTC+2 użytkownik Zbigniew Bratko napisał:
> W dniu 24.06.2020 o 11:36, Ryszard Tober pisze:
> > Dziękuję bardzo.
> > Mam przynajmniej jasność, że w masce wprowadzania nie da się tego zagadnienia rozwiązać.
> > 
> > Próbowałem generalnie uprościć też ten kod, tak żeby zawęzić go wyłącznie do samej spacji na końcu zeskanowanego tekstu.
> > Wydłubałem coś takiego:
> > 
> > Private Sub Nr_Paczki_Change()
> > Dim Nr_D As String
> > 
> >      Nr_D = Nz(Me.Nr_Paczki.Text)
> > 
> >       If Right$(Nr_D, 1) = " " Then
> >                         
> >          Me.Nr_ListuPrzew.SetFocus
> >               
> >               Else
> >               
> >                   MsgBox "Nr_Dokumentu - Coś nie tak"
> >         
> >       End If
> > End Sub
> > 
> > Po wklejeniu danych ze spacją na końcu to działa, ale na skanerze nie.
> > Mógłby pan rzucić okiem czy czegoś nie pominąłem?
> > Byłbym wdzięczny i z góry dziękuję.
> > 
> > Ryszard Tober-Marczewski
> > 
> 
> Nasuwają mi się pytania:
> 1. Czy po zapisie danych ze skanera zachodzi zdarzenie "Change" ?
> Sprawdź np.
> '______________________________
>   Private Sub Nr_Paczki_Change()
>   Dim Nr_D As String
> 
> 	MsgBox "Działa " & Nr_D
> 
> 
> 
> 2. Czy okno przed wczytaniem ze skanera MUSI posiadać Fokus,
>     czy zapis odbywa się inaczej.
> 3. Być może zachodzi zdarzenie BeforeUpdate i AfterUpdate i wtedy
>     w zdarzeniu  BeforeUpdate coś da się zrobić.
> 
> 
> -- 
> Pozdrawiam
> Zbigniew Bratko

Próbowałem umieścić kod w zdarzebue "Przed aktualizacją" i "po aktualizacji" ale to też przy skanowaiu nie działało.

Przyszło mi do głowy inne rozwiązanie, ale nie wiem jak je ugryźć, czy jest możliwość np umieszczenia w zdarzeniu "Po zmianie" w kodzie, pętli sprawdzającej, czy pole zostało wypełnione i jeśli tak to  wówczas dopiero uruchamiała by się procedura weryfikacji, czy na końcu jest spacja.