Predmet:Re: problem - Run-time Error 13 Type Mismatch
vrača ti ulaz u formu kroz case obrisi iz startup i stavi kroz gumb
Private Sub OK_Click()
Dim db As Database
Dim frm As Form
Dim Response
Dim G1, P2, Grupa As Integer
Dim G2, P1 As String
Grupa = M_Oper.PravaO
'On Error GoTo Greska
If Format$(Me![Pomocni].Column(2)) = "" Then
GoTo Izlaz
End If
P1 = Me![Pomocni].Column(2) 'Naziv objekta
P2 = Me![Pomocni].Column(3) 'Tip objekta
G1 = Me.Glavni.Column(0) 'Grupa tip
Select Case P2
Case 1 'Otvori formu
If Grupa = "1" Or Grupa = "2" Then
DoCmd.OpenForm "frm_KupciAdd"
Else
MsgBox "Pristup Vam nije odobren!", vbInformation
Exit Sub
End If
DoCmd.OpenForm P1