AftUpdate.txt

    'Utw�rz zmienne, w kt�rych b�d� przechowywane
    ' imi�, nazwisko oraz identyfikator klienta.
    Dim Nazwisko As String
    Dim Imi� As String
    Dim IDkl As String

    'Przypisz tekst w polu tekstowym Nazwisko
    ' do zmiennej Nazwisko.
    Nazwisko = Forms!Klienci!Nazwisko.Text
    
    'Aby mo�na by�o odczyta� zawarto�� pola tekstowego,
    ' nale�y ustawi� w nim fokus.
    Forms!Klienci!Imi�.SetFocus
    Imi� = Forms!Klienci!Imi�.Text
    
    'Scal fragmenty nazwiska i imienia,
    ' aby utworzy� identyfikator klienta.
    IDkl = UCase(Left(Nazwisko, 3) & Left(Imi�, 2))
    
    'Nie zachowuj identyfikatora, je�li nie ma 5 znak�w.
    ' (To wskazuje, �e nie zosta�y wype�nione obydwa pola,
    ' nazwiska i imienia).
    If Len(IDkl) = 5 Then
        Forms!Klienci!IDklienta.SetFocus
        
        'Nie zmieniaj identyfikatora, je�li zosta� ju�
        ' wprowadzony... By� mo�e zmieniono go r�cznie.
        If Forms!Klienci!IDklienta.Text = "" Then
            Forms!Klienci!IDklienta = IDkl
        End If
    End If
    
    'Ustaw fokus tam, gdzie zosta�by normalnie przeniesiony.
    Forms!Klienci!Adres.SetFocus