iCentar » Racunari i oprema » Programirannje i baze podataka » Access

Jasmin	28.11.2011 18:16
Predmet:Re: Pomoc oko combobox-a Da mi za svaku izabranu vrijednost iz komboboxa1 pocinje novi record koji uvjek pocinje sa 1 i u zavisnosti koliko ima redova toliko i rekorda,,,

Jasmin

28.11.2011 18:16

Predmet:Re: Pomoc oko combobox-a

Da mi za svaku izabranu vrijednost iz komboboxa1 pocinje novi record koji uvjek pocinje sa 1 i u zavisnosti koliko ima redova toliko i rekorda,,,

roko	28.11.2011 20:30
Predmet:Re: Pomoc oko combobox-a OtvoriÅ¡ VB i uradiÅ¡ novi modul pa upisi ovo PreuzmiIzvorni kôd (Visual Basic): Public Function BrojReda(frm As Form) As Variant On Error GoTo Err_BrojReda With frm.RecordsetClone .Bookmark = frm.Bookmark BrojReda = .AbsolutePosition + 1 End With Exit_BrojReda: Exit Function Err_BrojReda: If Err.Number <> 3021& Then Debug.Print "BrojReda() error " & Err.Number & " - " & Err.Description End If BrojReda = Null Resume Exit_BrojReda End Function a onda na vrijednost polja upisi =BrojReda([Form]) jedino neznam ako je access njemački dali ima neko drugo ime za Form pa to stavi u zagradu

roko

28.11.2011 20:30

Predmet:Re: Pomoc oko combobox-a

OtvoriÅ¡ VB i uradiÅ¡ novi modul pa upisi ovo

PreuzmiIzvorni kôd (Visual Basic):

Public Function BrojReda(frm As Form) As Variant
On Error GoTo Err_BrojReda
With frm.RecordsetClone
.Bookmark = frm.Bookmark
BrojReda = .AbsolutePosition + 1
End With
Exit_BrojReda:
Exit Function
Err_BrojReda:
If Err.Number <> 3021& Then
Debug.Print "BrojReda() error " & Err.Number & " - " & Err.Description
End If
BrojReda = Null
Resume Exit_BrojReda
End Function

a onda na vrijednost polja upisi =BrojReda([Form])
jedino neznam ako je access njemački dali ima neko drugo ime za Form pa to stavi u zagradu

Jasmin	28.11.2011 21:09
Predmet:Re: Pomoc oko combobox-a Hvala Roko spasio si me svaka cast,,,

Jasmin

28.11.2011 21:09

Predmet:Re: Pomoc oko combobox-a

Hvala Roko spasio si me svaka cast,,,

Jasmin	29.11.2011 22:17
Predmet:Re: Pomoc oko combobox-a Evo mene opet sa novim pitanjem. Kako da u combobox Sudija kad izaberem neko ime da mi prikaze ime u polju Sudija u subformi a ne record (broj) Evo data baze
Prilozi: combobox3.zip (Velicina datoteke:120.73 KB)

Jasmin

29.11.2011 22:17

Predmet:Re: Pomoc oko combobox-a

Evo mene opet sa novim pitanjem.
Kako da u combobox Sudija kad izaberem neko ime da mi prikaze ime u polju Sudija u subformi a ne record (broj)
Evo data baze

Prilozi:
combobox3.zip (Velicina datoteke:120.73 KB)

roko	29.11.2011 23:07
Predmet:Re: Pomoc oko combobox-a Dodaj joÅ¡ jednu kontrolu pa stavi vrijednost =IIf(IsNull([Sudija]);"";DLookUp("test";"Combobox2";"Combobox2_ID =" & [Sudija]))

roko

29.11.2011 23:07

Predmet:Re: Pomoc oko combobox-a

Dodaj joÅ¡ jednu kontrolu pa stavi vrijednost
=IIf(IsNull([Sudija]);"";DLookUp("test";"Combobox2";"Combobox2_ID =" & [Sudija]))

Jasmin	30.11.2011 00:05
Predmet:Re: Pomoc oko combobox-a Neznam jesmo li se razumjeli meni treba kada odaberem u cboSudija npr. Suljo da se u subformi u svim redovima dopisuje Suljo sve dok se ne promijeni vrijednost u cboSudija?

Jasmin

30.11.2011 00:05

Predmet:Re: Pomoc oko combobox-a

Neznam jesmo li se razumjeli meni treba kada odaberem u cboSudija npr. Suljo da se u subformi u svim redovima dopisuje Suljo sve dok se ne promijeni vrijednost u cboSudija?

Jasmin	04.12.2011 17:09
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?

Jasmin

04.12.2011 17:09

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?

zxz	04.12.2011 17:52
Predmet:Re: Pomoc oko combobox-a Samo na after update tog comba ponovo pozovi ovu proceduru: call Form_Current

zxz

04.12.2011 17:52

Predmet:Re: Pomoc oko combobox-a

Samo na after update tog comba ponovo pozovi ovu proceduru:
call Form_Current

Jasmin	04.12.2011 18:49
Predmet:Re: Pomoc oko combobox-a zxz, ne ide moze detaljnije obrazlozenje,,,

Jasmin

04.12.2011 18:49

Predmet:Re: Pomoc oko combobox-a

zxz, ne ide moze detaljnije obrazlozenje,,,

zxz	04.12.2011 19:15
Predmet:Re: Pomoc oko combobox-a Evo ti moj primjer. Jel mislis da ovako radi. Mozda ja tebe nisam razumio.
Prilozi: comboboxz.zip (Velicina datoteke:302.48 KB)

zxz

04.12.2011 19:15

Predmet:Re: Pomoc oko combobox-a

Evo ti moj primjer.
Jel mislis da ovako radi.
Mozda ja tebe nisam razumio.

Prilozi:
comboboxz.zip (Velicina datoteke:302.48 KB)