Predmet:Re: Pomoc oko combobox-a
Citiraj zxz: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
zxz ovaj kod zakljucava sve,
npr ako iz comba jela izaberem burek i u subformi upisujem podatke dok ne zakljuca zadnji red, onda kad izaberem iz comboboxa "Jela" neko drugo jelo nemogu nista da upisujem jer mi je zakljucano. Moze li se uraditi da mi zaklucava po izboru iz comboboxa "Jela" na osnovu polja "Komada" zasebno?
Danas je lako biti neprijatelj, al' je tesko biti prijatelj. Samo radi toga, ja, radim teske stvari!