Prikazi cijelu temu 04.12.2011 17:09
Jasmin Van mreze
Moderator
Registrovan od:04.02.2009
Lokacija:Banja Luka


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):
  1. If Format$(Forms![Combobox1]![test1]) <> "" Then
  2. BrKomada = Forms![Combobox1]![test1] - 1
  3. End If
  4. Set Rs = Me.RecordsetClone
  5. BrRekorda = Rs.RecordCount
  6.  
  7. If BrRekorda <= BrKomada Then
  8. Me.AllowAdditions = True
  9. Else
  10. Me.AllowAdditions = False
  11. End If
  12. Rs.Close
  13. 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!