Jasmin 27.11.2011 15:31
Predmet:Re: Pomoc oko combobox-a

Da upravo to zxz, znao sam ja da uvijek mogu naci pomoc na ovom forumu.
Svaki savjet je dobro dosao,,,

zxz 27.11.2011 15:52
Predmet:Re: Pomoc oko combobox-a

Onda onu proceduru prepravi ovako:
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub Combobox2_AfterUpdate()
  2. Forms![Combobox1]![Subform Underformulär].Form![Combobox2_ID].DefaultValue = Me.Combobox2
  3. End Sub

Jasmin 27.11.2011 16:16
Predmet:Re: Pomoc oko combobox-a

E to je to zxz, rijeseno.
Drugo pitanje kad izaberem iz combobox1 neku vrijednost, da mi se pokaze u onim poljima ispod comboboxa1 Jela i Komada
i Kad izaberem iz comboboxa2 da mi se u onom, polju u vrhu pojavi ime izabrane osobe.
Neznam dal da krenem s trecim pitanjem il da sacekam dok ovo nerijesimo,,,
U prilogu saljem bazu
Prilozi:
combobox_2.zip (Velicina datoteke:96.49 KB)

zxz 27.11.2011 16:52
Predmet:Re: Pomoc oko combobox-a

Jel samo da prikaze ili i da vrsi izmjenu u bazi i upis?

Jasmin 27.11.2011 17:45
Predmet:Re: Pomoc oko combobox-a

Samo da prikaze

zxz 27.11.2011 18:19
Predmet:Re: Pomoc oko combobox-a

PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub Combobox1_ID_AfterUpdate()
  2. Me.test.DefaultValue = "'" & Me.Combobox1_ID.Column(1) & "'"
  3. Me.test1.DefaultValue = Me.Combobox1_ID.Column(2)
  4. End Sub
  5.  
  6. Private Sub Combobox2_AfterUpdate()
  7.     Forms![Combobox1]![Subform Underformulär].Form![Combobox2_ID].DefaultValue = Me.Combobox2
  8.     Me.test_Combobox2.DefaultValue = "'" & Me.Combobox2.Column(1) & "'"
  9. End Sub

Izbrisi control source na ovim poljima.
Znaci na test test1 i test_combo2 obrisi control source neka bude prazno

Jasmin 27.11.2011 19:05
Predmet:Re: Pomoc oko combobox-a

Posto i ovo radi sad prelazim na trece pitanje
Kako da na osnovu polja "Komada" zabranim upisivanje u subformi vecim od broja koji se prikazuje u tom polju.
Znaci ako imam upisano 50 komada da u subformi ne da upisivanje vise od 50 redova.

zxz 27.11.2011 19:40
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):
  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

Jasmin 27.11.2011 20:25
Predmet:Re: Pomoc oko combobox-a

Za sada sve radi ali imam jos pitanja

Kako da na subformi imam brojac koji pocinje sa 1. za svaki novi izbor iz comboboxa1?

zxz 27.11.2011 21:46
Predmet:Re: Pomoc oko combobox-a

Hoces reci da pokazuje broj rekorda u subformi ali da ta kontrola bude na formi.