Private Sub Tip_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim skoka_tablic As Long
Dim kaka_tablica As String
skoka_tablic = DCount("*", "MSysObjects", "Mid([name],1,5)='Marki'")
If skoka_tablic = 1 Then
kaka_tablica = DFirst("NAME", "MSysObjects", "Mid([name],1,5)='Marki'")
If Nalichie_Tablici_v_Baze(kaka_tablica) = True Then
DoCmd.OpenForm "VIBOR_MAROK"
|