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!