🚀 go-pugleaf

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