Predmet:Re: Pomoc oko combobox-a
Na on current subforme stavi ovaj kod:
Private Sub Form_Current()
Dim BrKomada As Integer
Dim BrRekorda As Integer
Dim Rs As Recordset
PreuzmiIzvorni kôd (Visual Basic):If Format$(Forms![Combobox1]![test1]) <> "" Then
BrKomada = Forms![Combobox1]![test1] - 1
End If
Set Rs = Me.RecordsetClone
BrRekorda = Rs.RecordCount
If BrRekorda <= BrKomada Then
Me.AllowAdditions = True
Else
Me.AllowAdditions = False
End If
Rs.Close
End Sub
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.