🚀 go-pugleaf

W dniu 23.06.2020 o 09:18, Ryszard Tober pisze:
> Cześć,
> Mam zadanie problematyczne do rozwiązania, z którym nie wiem jak sobie poradzić, może ktoś będzie miał jakiś pomysł.
> 
> Mam bazę danych składającą się z trzech pól:
> - nr dokumentu
> - nr przesyłki
> - nr sreyjny
> 
> Wszystkie pola tabeli są uzupełniane poprzez formularz wprowadzania danych.
> Wszystkie dane do formularza są wprowadzane za pomocą skanera, który generuje na końcu spację. Dla pól "Nr Dokumentu" oraz "Numer przesyłki" ma być ustalona autotabulacja w taki sposób, że zaraz po przeskanowaniu kursor przeskakuje do kolejnego pola. Na obu polach ustawiłem Autotab, ale żeby całość zadziałała trzeba również ustawić maskę wprowadzania.
> 
> O ile dla Nr przesyłki temat jest prosty, ponieważ numer przesyłki składa się z 24 cyfr i spacji na końcu generowanej przez skaner, maskę wprowadzania ustawiłem w sposób następujący:
> 
> 000000000000000000000000" ";;
> 
> Całość działa.
> 
> Natomiast nie mam zielonego pojęcia jak ustawić maskę wprowadzania dla Nr dokumentu.
> Numery dokumentu wyglądają w sposób następujący:
> 
> FS 4302/06/2020
> PA 10075/2020
> 
> Ich długość jest zmienna i schemat/klucz jest różny.
> 
> Jedyna prawidłowość jaka jest w tych numerach to cztery ostatnie znaki jako cyfry. Niestety nie mam pojęcia jak można ustawić maskę, żeby autotabulacja po zeskanowaniu zadziałała.
> 
> Ma ktoś może jakiś pomysł?
> Może autotabulację dla tego pola można ustawić jakoś inaczej?


A może bez maski wprowadzania i Autotabulacji.

' spróbuj obsłużyć zdarzenie "Przy Zmianie" pól tekstowych.
' Sądzę, że skaner wkleja odczytany tekst do formantu mającego fokus
' zawsze ze spacją na końcu.
' Poniżej szkic procedur dla dwóch formantów

'__________________________________
Private Sub txtNrPrzesylki_Change()
Dim sNrPrzesylki As String

     sNrPrzesylki = Nz(Me.txtNrPrzesylki.text, "")
     ' 24 cyfry i spacja końcowa
     If Len(sNrPrzesylki) = 25 And Right$(sNrPrzesylki, 1) = " " Then
         If IsNumeric(RTrim$(sNrPrzesylki)) Then
             Me.txtNrDokumentu.SetFocus
         Else
             MsgBox "NrPrzesylki - Coś nie tak"
         End If
     End If
End Sub
'___________________________________
Private Sub txtNrDokumentu_Change()
Dim sNrDokumentu As String

     sNrDokumentu = Nz(Me.txtNrDokumentu.text, "")

     ' na końcu musi być spacja ???
     If Right$(sNrDokumentu, 1) = " " Then
         'można także szukać (sprawdzać) znak ukośnika i jego położenie
         ' 4cyfry i spacja końcowa
         If Len(sNrDokumentu) >= 5 Then
             ' usuń spację(spacje) końcowe
             sNrDokumentu = RTrim$(sNrDokumentu)
             'być może znajdą się dwie spacje końcowe
             If Len(sNrDokumentu) = 4 And IsNumeric(sNrDokumentu) Then
                 'przejdź do następnego formantu
                 'Me.txtJakiePoleNastepne.SetFocus
             Else
                 MsgBox "NrDokumentu - Coś nie tak"
             End If
         End If
     End If


End Sub

Zwracam uwagę, że IsNumeric dla wyrażenie "12d3" i "12e3" zwraca TRUE.
Jeżeli coś takiego może zajść, to lepiej napisać własną funkcję 
sprawdzającą, czy wyrażenie jest Numeryczne.

-- 
Pozdrowienia
Zbigniew Bratko