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

pmiroslav	18.05.2019 14:59
Predmet:Re: Custom Menu dozvole PokuÅ¡avam slijedeće: Ako je osoba prijavljena kao Administrator (PravaPristupa = 1)sa svim pravima da mu se otvori frmPristup sa prikazom svih slogova it tblOperatori, sa mogućnosču izmjene i dodavanja novog sloga. Ako je osoka prijavljena kao operator (PravaPristupa = 2) da mu se otvori frmPristup sa prikazom samo sloga prijavljene osobe. PokuÅ¡avam to sa If ID = 1 Then Set Rs = Db.OpenRecordset("SELECT * FROM tblOperatori ") Else Set Rs = Db.OpenRecordset("SELECT * FROM Qry_Pristup ") End If ... Select Case Tip Case 1 'Otvori formu DoCmd.OpenForm ImeForme, , , , , acIcon Set Frm = Forms(ImeForme) Frm.RecordSource = Rs <--- Ovdje bi Å¾elio promjenjivi record source ovino o korisniku Frm.SetFocus DoCmd.Restore
Prilozi: Proba Menu.rar (Velicina datoteke:90.92 KB)

zxz	20.05.2019 13:06
Predmet:Re: Custom Menu dozvole U Tabel L_Meni lista imas polje pristup. Tu pisujes ko sve smije pristupiti odnosno PravaPriostupa iz tabele tblOperatori. Ostalo ces se valčjda snaci. Imas i klasu M_Oper i ja sam je iskoristio. Pri logovanju u nju se upisu podaci.
Prilozi: Proba Menuzxz.zip (Velicina datoteke:207.78 KB)

pmiroslav	21.05.2019 08:20
Predmet:Re: Custom Menu dozvole Hvala na odgovoru ali taj dio mi je jasan. Ja bih zapravo Å¾elio da forma koju otvaram ima promjenjivi RecordSource i to mi Å¡teka. Napravio sam kod: PreuzmiIzvorni kôd (vbnet): Function Otvori_1(ID As Integer, Optional QR As String, Optional Filter As String) As Boolean Dim Db As Database Dim Rs As Recordset Dim Rs2 As Recordset Dim Frm As Form Dim Uslov As Integer Dim ImeForme As String Dim Tip As Integer Dim Prava As Integer Dim PravaA As Integer Set Db = CurrentDb() If ID < 1 Then: GoTo Kraj Set Rs = Db.OpenRecordset("SELECT * FROM tblOperatori WHERE KorisnikID=" _ & M_Oper.OperID) ImeForme = "frmPristup" Tip = Rs!Sifra Prava = Rs!PravaPristupa PravaA = Rs!PravaAdm If Prava = 3 Then MsgBox "Kao gost" & vbCr & "nemate pravo koristiti ovu formu", vbOKOnly, "Upozorenje!" GoTo Kraj Else Select Case Tip Case 1 'Otvori formu Forms!frmPristup.Form.RecordSource = ("SELECT * FROM tblOperatori WHERE KorisnikID=" _ & M_Oper.OperID) DoCmd.OpenForm ImeForme, , , , , acIcon Set Frm = Forms(ImeForme) Frm.SetFocus DoCmd.Restore ......... Forms!frmPristup.Form.RecordSource = ("SELECT * FROM tblOperatori WHERE KorisnikID=" _ & M_Oper.OperID) Ovaj dio mi ne odradi kako treba.

pmiroslav

21.05.2019 08:20

Predmet:Re: Custom Menu dozvole

Hvala na odgovoru ali taj dio mi je jasan.
Ja bih zapravo Å¾elio da forma koju otvaram ima promjenjivi RecordSource i to mi Å¡teka. Napravio sam kod:

PreuzmiIzvorni kôd (vbnet):

Function Otvori_1(ID As Integer, Optional QR As String, Optional Filter As String) As Boolean
Dim Db As Database
Dim Rs As Recordset
Dim Rs2 As Recordset
Dim Frm As Form
Dim Uslov As Integer
Dim ImeForme As String
Dim Tip As Integer
Dim Prava As Integer
Dim PravaA As Integer
Set Db = CurrentDb()
If ID < 1 Then: GoTo Kraj
Set Rs = Db.OpenRecordset("SELECT * FROM tblOperatori WHERE KorisnikID=" _
& M_Oper.OperID)
ImeForme = "frmPristup"
Tip = Rs!Sifra
Prava = Rs!PravaPristupa
PravaA = Rs!PravaAdm
If Prava = 3 Then
MsgBox "Kao gost" & vbCr & "nemate pravo koristiti ovu formu", vbOKOnly, "Upozorenje!"
GoTo Kraj
Else
Select Case Tip
Case 1 'Otvori formu
Forms!frmPristup.Form.RecordSource = ("SELECT * FROM tblOperatori WHERE KorisnikID=" _
& M_Oper.OperID)
DoCmd.OpenForm ImeForme, , , , , acIcon
Set Frm = Forms(ImeForme)
Frm.SetFocus
DoCmd.Restore
.........

Forms!frmPristup.Form.RecordSource = ("SELECT * FROM tblOperatori WHERE KorisnikID=" _
& M_Oper.OperID)

Ovaj dio mi ne odradi kako treba.

zxz	22.05.2019 00:11
Predmet:Re: Custom Menu dozvole Case 1 'Otvori formu DoCmd.OpenForm ImeForme, , , , , acIcon Set Frm = Forms(ImeForme) Frm.SetFocus Forms!frmPristup.Form.RecordSource = ("SELECT * FROM tblOperatori WHERE KorisnikID=" _ & M_Oper.OperID) DoCmd.Restore

zxz

22.05.2019 00:11

Predmet:Re: Custom Menu dozvole

Case 1 'Otvori formu
DoCmd.OpenForm ImeForme, , , , , acIcon
Set Frm = Forms(ImeForme)
Frm.SetFocus
Forms!frmPristup.Form.RecordSource = ("SELECT * FROM tblOperatori WHERE KorisnikID=" _
& M_Oper.OperID)
DoCmd.Restore

zxz	24.05.2019 10:15
Predmet:Re: Custom Menu dozvole Sta bi. Mozda nisam bio dovoljno jasan. Ti si stavio upis u recordsource prije otvaranja forma.

zxz

24.05.2019 10:15

Predmet:Re: Custom Menu dozvole

Sta bi.
Mozda nisam bio dovoljno jasan.
Ti si stavio upis u recordsource prije otvaranja forma.

pmiroslav	24.05.2019 11:56
Predmet:Re: Custom Menu dozvole Radim to sada ali samo amo direktno imenujem formu Forms!frmPristup.Form.RecordSource = (StrSQL) a u obliku Dim ImeObjekta As String ImeObjekta = "frmPristup" Forms!imeObjekta.Form.RecordSource = (StrSQL) ili frm.RecordSource = (StrSQL) ne radi

pmiroslav

24.05.2019 11:56

Predmet:Re: Custom Menu dozvole

Radim to sada ali samo amo direktno imenujem formu

Forms!frmPristup.Form.RecordSource = (StrSQL)

a u obliku
Dim ImeObjekta As String
ImeObjekta = "frmPristup"
Forms!imeObjekta.Form.RecordSource = (StrSQL)

ili

frm.RecordSource = (StrSQL)

ne radi

zxz	24.05.2019 21:14
Predmet:Re: Custom Menu dozvole Citat: Case 1 'Otvori formu DoCmd.OpenForm ImeObjekta, , , , , acIcon Set Frm = Forms(ImeObjekta) Frm.SetFocus Frm.RecordSource ="SELECT * FROM tblOperatori WHERE KorisnikID=" _ & M_Oper.OperID) DoCmd.Restore Ovo treba da radi

zxz

24.05.2019 21:14

Predmet:Re: Custom Menu dozvole

Citat:

Case 1 'Otvori formu
DoCmd.OpenForm ImeObjekta, , , , , acIcon
Set Frm = Forms(ImeObjekta)
Frm.SetFocus
Frm.RecordSource ="SELECT * FROM tblOperatori WHERE KorisnikID=" _
& M_Oper.OperID)
DoCmd.Restore

Ovo treba da radi

pmiroslav	26.05.2019 10:35
Predmet:Re: Custom Menu dozvole JoÅ¡ se mučim sa ovim. Ovakva je stvar Imam menu Administracija i KnjiÅ¾enje Kod administracije Tag = 1 ; Parameter = 1 Kod KnjiÅ¾enje Tag = 1; Parametar = 2 Tag = 1 određuje da je objekt koji otvara formu Parametar = 1 određuje da se otvara forma frmPristup Parametar = 2 određuje da se otvara forma frmDokumenti Kod frmPristup je svu redu ali kod frmDokumenti ne radi mi kako treba. Imama tri subMenia -MeđuskladiÅ¡na -Povratnica -Revers Otvaranje formi je u redu, međutim brojeve dokumenta ne odradi kako treba MeđuskladiÅ¡na treba biti MS/0001/19 itd Povratnica PO/0001/19 itd Revers RV/0001/19 itd Primjer sa macroima je uredu ali sa procedurom nije. Ovaj dio coda je problem. Gdje ga staviti? PreuzmiIzvorni kôd (vbnet): ElseIf PRMT = 2 Then Status = DLookup("[Status]", "tblTransakcijeVrsta", "[IDdokumenta] =" & ID) Prefix = DLookup("[Prefix]", "tblTransakcijeVrsta", "[IDdokumenta] =" & ID) Naziv = DLookup("[Dokument]", "tblTransakcijeVrsta", "[IDdokumenta] =" & ID) BrojD = BrojDokumenta(Prefix) Frm.IDdokumenta.DefaultValue = ID Frm.BrojDok.DefaultValue = "'" & BrojD & "'" Frm.Caption = UCase(Naziv) DoCmd.Restore End If
Prilozi: Proba MenuMP2.rar (Velicina datoteke:94.60 KB)

pmiroslav

26.05.2019 10:35

Predmet:Re: Custom Menu dozvole

JoÅ¡ se mučim sa ovim.
Ovakva je stvar
Imam menu Administracija i KnjiÅ¾enje
Kod administracije Tag = 1 ; Parameter = 1
Kod KnjiÅ¾enje Tag = 1; Parametar = 2

Tag = 1 određuje da je objekt koji otvara formu
Parametar = 1 određuje da se otvara forma frmPristup
Parametar = 2 određuje da se otvara forma frmDokumenti

Kod frmPristup je svu redu
ali kod frmDokumenti ne radi mi kako treba.
Imama tri subMenia
-MeđuskladiÅ¡na
-Povratnica
-Revers

Otvaranje formi je u redu, međutim brojeve dokumenta ne odradi kako treba

MeđuskladiÅ¡na treba biti MS/0001/19 itd
Povratnica PO/0001/19 itd
Revers RV/0001/19 itd

Primjer sa macroima je uredu ali sa procedurom nije.

Ovaj dio coda je problem. Gdje ga staviti?

PreuzmiIzvorni kôd (vbnet):

ElseIf PRMT = 2 Then
Status = DLookup("[Status]", "tblTransakcijeVrsta", "[IDdokumenta] =" & ID)
Prefix = DLookup("[Prefix]", "tblTransakcijeVrsta", "[IDdokumenta] =" & ID)
Naziv = DLookup("[Dokument]", "tblTransakcijeVrsta", "[IDdokumenta] =" & ID)
BrojD = BrojDokumenta(Prefix)
Frm.IDdokumenta.DefaultValue = ID
Frm.BrojDok.DefaultValue = "'" & BrojD & "'"
Frm.Caption = UCase(Naziv)
DoCmd.Restore
End If

Prilozi:
Proba MenuMP2.rar (Velicina datoteke:94.60 KB)

zxz	28.05.2019 00:27
Predmet:Re: Custom Menu dozvole Citat: JoÅ¡ se mučim sa ovim. Ovakva je stvar Imam menu Administracija i KnjiÅ¾enje Kod administracije Tag = 1 ; Parameter = 1 Kod KnjiÅ¾enje Tag = 1; Parametar = 2 Nemas ovdje nista upisano i ne treba po meni. To je samo naziv menija i kad kliknes da se otvori meni. U stavkanma menija trebas napisati nazive sta je sta. U property tog menija U tag samo id iz tabele Lmeni lista a u polje on action upises funkciju koju pozivas a to je OtvoriM() Tu vise niosta ne treba pisati Sda se na osnovu id pokrece sql: SELECT * FROM L_MeniLista " _ & " WHERE ID=" & ID Znaci uslov je ID i to je jedan red podataka: Sve podatke mozes iscitati iz tog reda kada koristis tabelu. Ako ne koristis tabelu onda bi ,orao pisati jos stosta u Property, Trebao si uzeti moj primjer ali nema veze sad. Ovako cemo: Napisi ti u ova 2 menija sve sta treba da bude i ostalo sta treba za nuju. Primjer: Meni1: Administracija Satvke: Logovanje--> Forma ime forme i caption i sql ako treba neki Meni2: Knjizenje Stavke: Medjuskladista ime forme je: Capion je: Sql: Povratnica Ime forme je Caption je sql je. Kad to napises ja cu ti odraditi primjer a ostalo sto ne treba pobrisati da te ne zbunjuje Pokusat cu to uraditi sutra navecer Ima tu jos nedostataka. napr. modul operatori Funkcija: Function SifraID() If M_Oper.OperID = 0 Then UcitajOper End If Sif=M_Oper.OperIDraID End Function Nije ti potrebna nijedna od ovih pri logovanju sve se to upise i poslije samo citas iz klase M_oper. Sif=M_Oper.OperIDraID a tamo gdje imas msgbox Niste logovani treba i da podize popup formu za logovanje tako da nemoze nista raditi. Ok popravit cemo to. alo bolje je jedno po jedno da bi razumio. Idemo meni rijesiti i to sa tabelom LMeni lista. Ako ovo dobro proucis dat cu ti kod koji pravi sam meni na osnovu ove tabele.

zxz

28.05.2019 00:27

Predmet:Re: Custom Menu dozvole

Citat:

JoÅ¡ se mučim sa ovim.
Ovakva je stvar
Imam menu Administracija i KnjiÅ¾enje
Kod administracije Tag = 1 ; Parameter = 1
Kod KnjiÅ¾enje Tag = 1; Parametar = 2

Nemas ovdje nista upisano i ne treba po meni.
To je samo naziv menija i kad kliknes da se otvori meni.

U stavkanma menija trebas napisati nazive sta je sta.
U property tog menija
U tag samo id iz tabele Lmeni lista a u polje on action upises funkciju koju pozivas a to je OtvoriM()
Tu vise niosta ne treba pisati
Sda se na osnovu id pokrece sql:
SELECT * FROM L_MeniLista " _
& " WHERE ID=" & ID

Znaci uslov je ID i to je jedan red podataka:
Sve podatke mozes iscitati iz tog reda kada koristis tabelu.
Ako ne koristis tabelu onda bi ,orao pisati jos stosta u Property,

Trebao si uzeti moj primjer ali nema veze sad.

Ovako cemo:
Napisi ti u ova 2 menija sve sta treba da bude i ostalo sta treba za nuju.

Primjer:
Meni1: Administracija
Satvke:
Logovanje--> Forma ime forme i caption i sql ako treba neki

Meni2: Knjizenje
Stavke:
Medjuskladista ime forme je: Capion je: Sql:
Povratnica Ime forme je Caption je sql je.

Kad to napises ja cu ti odraditi primjer a ostalo sto ne treba pobrisati da te ne zbunjuje
Pokusat cu to uraditi sutra navecer
Ima tu jos nedostataka.
napr.
modul operatori
Funkcija:
Function SifraID()
If M_Oper.OperID = 0 Then
UcitajOper
End If
Sif=M_Oper.OperIDraID
End Function

Nije ti potrebna nijedna od ovih pri logovanju sve se to upise i poslije samo citas iz klase M_oper.
Sif=M_Oper.OperIDraID

a tamo gdje imas msgbox Niste logovani treba i da podize popup formu za logovanje tako da nemoze nista raditi.

Ok popravit cemo to.

alo bolje je jedno po jedno da bi razumio.
Idemo meni rijesiti i to sa tabelom LMeni lista.
Ako ovo dobro proucis dat cu ti kod koji pravi sam meni na osnovu ove tabele.

pmiroslav	28.05.2019 12:23
Predmet:Re: Custom Menu dozvole Ja sam u međuvremenu uspio srediti funkciju i ona mi sada radi točno ono Å¡to sam Å¾elio. Jedino sada ako ti Å¾eliÅ¡ da je eventualno dotjeraÅ¡ i pojednostaviÅ¡. PreuzmiIzvorni kôd (vbnet): Function Otvori() Dim ID As Integer Dim PRMT As Integer Dim Db As Database Dim Rs As Recordset Dim StrSQL As String Dim Frm As Form Dim Uslov As Integer Dim ImeObjekta As String Dim Tip As Integer Dim Prava As Integer Dim Status As Integer Dim BrojD As String Dim Prefix As String * 3 Dim Naziv As String On Error Resume Next ID = Application.CommandBars.ActionControl.Tag 'Menu properties Tag PRMT = Application.CommandBars.ActionControl.Parameter 'Menu properties Parametar On Error GoTo Kraj Set Db = CurrentDb() If ID < 1 Then: GoTo Kraj If PRMT = 1 Then StrSQL = "SELECT * FROM tblOperatori WHERE KorisnikID=" _ & M_Oper.OperID Set Rs = Db.OpenRecordset(StrSQL) ImeObjekta = "frmPristup" Tip = Rs!Sifra Prava = Rs!PravaPristupa '1,2,3 If Prava = 1 Then StrSQL = "SELECT * FROM tblOperatori" ElseIf Prava = 2 Then StrSQL = "SELECT * FROM tblOperatori WHERE KorisnikID=" _ & M_Oper.OperID ElseIf Prava = 3 Then MsgBox "Kao gost" & vbCr & "nemate pravo koristiti ovu formu", vbOKOnly, "Upozorenje!" GoTo Kraj End If ElseIf PRMT = 2 Then StrSQL = "SELECT * FROM A_MenuLista " _ & " WHERE ID=" & ID Set Rs = Db.OpenRecordset(StrSQL) ImeObjekta = Format$(Rs!Ime) Tip = Rs!Tip Prava = Rs!Grupa '1,2,3 Status = DLookup("[Status]", "tblTransakcijeVrsta", "[IDdokumenta] =" & ID) Prefix = DLookup("[Prefix]", "tblTransakcijeVrsta", "[IDdokumenta] =" & ID) Naziv = DLookup("[Dokument]", "tblTransakcijeVrsta", "[IDdokumenta] =" & ID) BrojD = BrojDokumenta(Prefix) End If '------- OTVARANJE FORME ------- Select Case Tip Case 1 DoCmd.OpenForm ImeObjekta, , , , , acIcon Set Frm = Forms(ImeObjekta) If PRMT = 1 Then With Frm .RecordSource = (StrSQL) .Caption = "Korisni ki podaci: " & UCase(tkoRadiIme) & " " & UCase(tkoRadiPrezime) End With DoCmd.Restore ElseIf PRMT = 2 Then With Frm .DataEntry = True .IDdokumenta.DefaultValue = ID .BrojDok.DefaultValue = "'" & BrojD & "'" .Caption = UCase(Naziv) End With DoCmd.Restore End If Case Else Beep MsgBox "Objekt <<" & ImeObjekta & ">> ne postoji " & vbCr & "ili je pogreÅ¡no unesen tip", vbExclamation + _ vbOKOnly, vbDefaultButton1 GoTo Kraj End Select '------ NAIN OTVARANJA FORME ------ Select Case Prava Case 1 'Ispravke With Frm .FirstName.Enabled = True .LastName.Enabled = True .FormHeader.BackColor = 12632256 .Detail.BackColor = 11916754 .FormFooter.BackColor = 12632256 .ScrollBars = False .RecordSelectors = False .NavigationButtons = True .DataEntry = False .AllowDeletions = True .AllowEdits = True .AllowAdditions = True End With Case 2 'Pregled With Frm .FirstName.Enabled = False .LastName.Enabled = False .Combo_Prava.Enabled = False .InsideHeight = Frm.Detail.Height .Detail.BackColor = 5950882 .ScrollBars = False .RecordSelectors = False .NavigationButtons = False .DataEntry = False .AllowDeletions = False .AllowEdits = False .AllowAdditions = False End With Case 3 Case 4 'MeuskladiÅ¡na With Frm .Detail.BackColor = 7044491 .Label_Partner.Caption = "Konsignator:" .IDdokumenta.Enabled = False .BrojDok = "'" & BrojD & "'" End With DoCmd.Restore Case 5 'Povratnica With Frm .Detail.BackColor = 9961471 .Label_Partner.Caption = "Robu vratio:" .Skladiste_Label.Caption = "Ulaz u skladiÅ¡te:" .Skladiste_2.Visible = False .StovaristeID.Visible = False .IDdokumenta.Enabled = False End With DoCmd.Restore Case 6 'Revers With Frm .Detail.BackColor = 12177407 .Skladiste_2.Visible = False .Label_Partner.Caption = "Robu preuzeo:" .StovaristeID.Visible = False .IDdokumenta.Enabled = False End With DoCmd.Restore Case 7 MsgBox "GreÅ¡ka poziva" & vbCr & "Br:" & Err.Number, vbExclamation + vbOKOnly + _ vbDefaultButton1, "Greska!!!" End Select Otvori = True Izlaz: Exit Function Kraj: Otvori = False End Function Bio mi je problem kako otvoriti frmDokumenti na tri načina u formi se mijenja podatak u Combu IDdokumenta `SELECT tblTransakcijeVrsta.IDdokumenta, tblTransakcijeVrsta.Dokument, tblTransakcijeVrsta.Status FROM tblTransakcijeVrsta ORDER BY tblTransakcijeVrsta.Dokument;` Upisuje se brojDok (MS/0001/19; PO/0001/19 ili RV/0001/19) To određuje Function BrojDokumenta I joÅ¡ je promjenjivo dali se videili ne pojedini textBox-ovi, te se kod svake varijante mijenja boja pozadine radi lakÅ¡ek snalaÅ¾enja.
Prilozi: Proba MenuMP3.rar (Velicina datoteke:129.93 KB)

pmiroslav

28.05.2019 12:23

Predmet:Re: Custom Menu dozvole

Ja sam u međuvremenu uspio srediti funkciju i ona mi sada radi točno ono Å¡to sam Å¾elio.
Jedino sada ako ti Å¾eliÅ¡ da je eventualno dotjeraÅ¡ i pojednostaviÅ¡.

PreuzmiIzvorni kôd (vbnet):

Function Otvori()
Dim ID As Integer
Dim PRMT As Integer
Dim Db As Database
Dim Rs As Recordset
Dim StrSQL As String
Dim Frm As Form
Dim Uslov As Integer
Dim ImeObjekta As String
Dim Tip As Integer
Dim Prava As Integer
Dim Status As Integer
Dim BrojD As String
Dim Prefix As String * 3
Dim Naziv As String
On Error Resume Next
ID = Application.CommandBars.ActionControl.Tag 'Menu properties Tag
PRMT = Application.CommandBars.ActionControl.Parameter 'Menu properties Parametar
On Error GoTo Kraj
Set Db = CurrentDb()
If ID < 1 Then: GoTo Kraj
If PRMT = 1 Then
StrSQL = "SELECT * FROM tblOperatori WHERE KorisnikID=" _
& M_Oper.OperID
Set Rs = Db.OpenRecordset(StrSQL)
ImeObjekta = "frmPristup"
Tip = Rs!Sifra
Prava = Rs!PravaPristupa '1,2,3
If Prava = 1 Then
StrSQL = "SELECT * FROM tblOperatori"
ElseIf Prava = 2 Then
StrSQL = "SELECT * FROM tblOperatori WHERE KorisnikID=" _
& M_Oper.OperID
ElseIf Prava = 3 Then
MsgBox "Kao gost" & vbCr & "nemate pravo koristiti ovu formu", vbOKOnly, "Upozorenje!"
GoTo Kraj
End If
ElseIf PRMT = 2 Then
StrSQL = "SELECT * FROM A_MenuLista " _
& " WHERE ID=" & ID
Set Rs = Db.OpenRecordset(StrSQL)
ImeObjekta = Format$(Rs!Ime)
Tip = Rs!Tip
Prava = Rs!Grupa '1,2,3
Status = DLookup("[Status]", "tblTransakcijeVrsta", "[IDdokumenta] =" & ID)
Prefix = DLookup("[Prefix]", "tblTransakcijeVrsta", "[IDdokumenta] =" & ID)
Naziv = DLookup("[Dokument]", "tblTransakcijeVrsta", "[IDdokumenta] =" & ID)
BrojD = BrojDokumenta(Prefix)
End If
'------- OTVARANJE FORME -------
Select Case Tip
Case 1
DoCmd.OpenForm ImeObjekta, , , , , acIcon
Set Frm = Forms(ImeObjekta)
If PRMT = 1 Then
With Frm
.RecordSource = (StrSQL)
.Caption = "Korisni ki podaci: " & UCase(tkoRadiIme) & " " & UCase(tkoRadiPrezime)
End With
DoCmd.Restore
ElseIf PRMT = 2 Then
With Frm
.DataEntry = True
.IDdokumenta.DefaultValue = ID
.BrojDok.DefaultValue = "'" & BrojD & "'"
.Caption = UCase(Naziv)
End With
DoCmd.Restore
End If
Case Else
Beep
MsgBox "Objekt <<" & ImeObjekta & ">> ne postoji " & vbCr & "ili je pogreÅ¡no unesen tip", vbExclamation + _
vbOKOnly, vbDefaultButton1
GoTo Kraj
End Select
'------ NAIN OTVARANJA FORME ------
Select Case Prava
Case 1 'Ispravke
With Frm
.FirstName.Enabled = True
.LastName.Enabled = True
.FormHeader.BackColor = 12632256
.Detail.BackColor = 11916754
.FormFooter.BackColor = 12632256
.ScrollBars = False
.RecordSelectors = False
.NavigationButtons = True
.DataEntry = False
.AllowDeletions = True
.AllowEdits = True
.AllowAdditions = True
End With
Case 2 'Pregled
With Frm
.FirstName.Enabled = False
.LastName.Enabled = False
.Combo_Prava.Enabled = False
.InsideHeight = Frm.Detail.Height
.Detail.BackColor = 5950882
.ScrollBars = False
.RecordSelectors = False
.NavigationButtons = False
.DataEntry = False
.AllowDeletions = False
.AllowEdits = False
.AllowAdditions = False
End With
Case 3
Case 4 'MeuskladiÅ¡na
With Frm
.Detail.BackColor = 7044491
.Label_Partner.Caption = "Konsignator:"
.IDdokumenta.Enabled = False
.BrojDok = "'" & BrojD & "'"
End With
DoCmd.Restore
Case 5 'Povratnica
With Frm
.Detail.BackColor = 9961471
.Label_Partner.Caption = "Robu vratio:"
.Skladiste_Label.Caption = "Ulaz u skladiÅ¡te:"
.Skladiste_2.Visible = False
.StovaristeID.Visible = False
.IDdokumenta.Enabled = False
End With
DoCmd.Restore
Case 6 'Revers
With Frm
.Detail.BackColor = 12177407
.Skladiste_2.Visible = False
.Label_Partner.Caption = "Robu preuzeo:"
.StovaristeID.Visible = False
.IDdokumenta.Enabled = False
End With
DoCmd.Restore
Case 7
MsgBox "GreÅ¡ka poziva" & vbCr & "Br:" & Err.Number, vbExclamation + vbOKOnly + _
vbDefaultButton1, "Greska!!!"
End Select
Otvori = True
Izlaz:
Exit Function
Kraj:
Otvori = False
End Function

Bio mi je problem kako otvoriti frmDokumenti na tri načina
u formi se mijenja podatak u Combu IDdokumenta

SELECT tblTransakcijeVrsta.IDdokumenta, tblTransakcijeVrsta.Dokument, tblTransakcijeVrsta.Status FROM tblTransakcijeVrsta ORDER BY tblTransakcijeVrsta.Dokument;

Upisuje se brojDok (MS/0001/19; PO/0001/19 ili RV/0001/19)

To određuje Function BrojDokumenta

I joÅ¡ je promjenjivo dali se videili ne pojedini textBox-ovi, te se kod svake varijante mijenja boja pozadine radi lakÅ¡ek snalaÅ¾enja.

Prilozi:
Proba MenuMP3.rar (Velicina datoteke:129.93 KB)