Option Compare Database

Private Sub Etykieta36_Click()
Me![IdU].SetFocus
DoCmd.RunCommand acCmdSortAscending
End Sub

Private Sub Etykieta36_DblClick(Cancel As Integer)
Me![IdU].SetFocus
DoCmd.RunCommand acCmdSortDescending
End Sub

Private Sub Etykieta38_Click()
Me![KlasaU].SetFocus
DoCmd.RunCommand acCmdSortAscending
End Sub

Private Sub Etykieta38_DblClick(Cancel As Integer)
Me![KlasaU].SetFocus
DoCmd.RunCommand acCmdSortDescending
End Sub

Private Sub Etykieta39_Click()
Me![Miasto].SetFocus
DoCmd.RunCommand acCmdSortAscending
End Sub

Private Sub Etykieta39_DblClick(Cancel As Integer)
Me![Miasto].SetFocus
DoCmd.RunCommand acCmdSortDescending
End Sub

Private Sub Etykieta40_Click()
Me![DUr].SetFocus
DoCmd.RunCommand acCmdSortAscending
End Sub

Private Sub Etykieta40_DblClick(Cancel As Integer)
Me![DUr].SetFocus
DoCmd.RunCommand acCmdSortDescending
End Sub

Private Sub Form_Current()
Me.Caption = Me!Nazwisko
If (IsNull(Zdjecie)) Then
Me.Zdjecie.Visible = False
Else
Me.Zdjecie.Visible = True
End If
End Sub

Private Sub Form_Load()
Clock.Caption = Time
End Sub

Private Sub Form_Timer()
Clock.Caption = Time
End Sub

Private Sub Tekst15_Click()

End Sub