🚀 go-pugleaf

W dniu 26.06.2020 o 14:18, Ryszard Tober pisze:
> 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.
> 


Odpowiem sam sobie:
1. Nie zachodzi zdarzenie "Change"
2. Pole tekstowe NrPrzesylki nie musi mieć "Fokusu".
3. Nie zachodzą zdarzenia BeforeUpdate i AfterUpdate dla formantu.


Nie sądzę, by "Skaner" zapisywał dane poprzez Recordset,
raczej bezpośrednio poprzez Me.txtNrPrzesylki.Value = "NowaWartość"
i dlatego żadne z wymienionych zdarzeń nie zachodzi.

Można próbować monitorować zmiany poszczególnych pól w Timerze formularza.
Przykładowy kod dla jednego pola


' zmienna na poziomie modułu
Private m_sNrPrzesylkiOld As String
' __________________________________
' przycisk włączający Timer
Private Sub btnWlaczTimer_Click()
     ' Przed uruchomieniem skanera Zapamiętaj wartość pola "txtNrPrzesyłki"
     m_sNrPrzesylkiOld = Nz(Me.txtNrPrzesylki.Value, "")
      Me.TimerInterval = 100
     'uruchom skaner !!!

End Sub
'______________________________
Private Sub Form_Timer()
     ' istnieje niebezpieczeństwo, że przy ponownym skanowaniu
     ' tej samej wartości, zmian nie będzie i cały czas będzie zachodziło
      ' sprawdzanie. Można przed ponownym skanowaniu wyzerować sprawdzane
     ' pole, uruchomić Timer i Skaner

     If StrComp(Nz(Me.txtNrPrzesylki.Value, ""), _
         m_sNrPrzesylkiOld, vbBinaryCompare) <> 0 Then
         ' wyłącz Timer, bo pole uległo zmianie
         Me.TimerInterval = 0
         MsgBox "NrPrzesylki uległ zmianie i wynosi " & vbNewLine & _
                Nz(Me.txtNrPrzesylki.Value, "")
     End If

End Sub


Jeżeli zapis danych odbywa się poprzez
Me.txtNrPrzesylki.Value = "NowaWartość"
to ewentualnie końcowe sprawdzanie WSZYSTKICH pól możesz zrobić
w zdarzeniu Form_BeforeUpdate
'_________________________________________________
Private Sub Form_BeforeUpdate(Cancel As Integer)

     ' Tutaj kod. Jak coś jest nie tak
	Cancel=TRUE
     ' MsgBox "Jakieś informacje dla użytkownika"

End Sub

Z tą spacją na końcu możesz mieć problem. O ile skaner zapisze 
NrPrzesylki ze spacją na końcu, to ręczna edycja tego pola w formularzu
spowoduje usunięcie spacji końcowej przez MS Access


-- 
Pozdrawiam
Zbigniew Bratko