pmiroslav | 17.08.2021 09:02 |
---|---|
Predmet:Slike u formu i Report Dobar dan svima. Dugo nisam bio aktivan na forumu iako ga redovno pratim. Imam neku svoju bazu za binis od moje supruge i sada pokuÅ¡avam neÅ¡to doraditi pa sam zapeo. NaÅ¡ao sam neke primjer za uvoz slika na Forumu i sada ih dorađujem Radi se o slikama u Formi i Reportu. U primjeru imam frmNalog u kojem se učitavaju slike međutim problem je ograničenje broja slika. A unos bi trebao biti od 1 pa do neograničeno. Zato sam probao sa tblProdaja i vezanom tblSlike u koju mogu unositi putanje slika na disku. Napravio sam frmProdaja i subSlike i tu dolazim do prvog problema sa IDslike. Meni bi trebalo da kada upisujem podatak u subSlike da mi npr kada je OrderID = 1 da mi se za IDslike upisuje ključ 1,2,3... itd OrderID = 2 za IDSlike opet 1,2,3 znači kod svakog novog OrderID IDslike broji od početka. Hvala unaprijed na svakoj pomoći |
Gjoreski | 17.08.2021 20:42 |
---|---|
Predmet:Re:Slike u formu i Report Evo pogledaj jel to sta si zeleo |
|
Prilozi: Više slika u formi.rar (Velicina datoteke:55.56 KB) |
pmiroslav | 18.08.2021 07:11 |
---|---|
Predmet:Re:Slike u formu i Report Ne mogu otvoriti rar arhivu. Nešto nije u redu. |
pmiroslav | 18.08.2021 07:33 |
---|---|
Predmet:Re:Slike u formu i Report Uspio sam raspakirati sa 7-Zip. To sam trebao. Hvala |
pmiroslav | 18.08.2021 11:38 |
---|---|
Predmet:Re:Slike u formu i Report Na žalost ipak problem. Kada punim praznu tablicu sve je u redu. Međutim ako zamijenim sliku na recimo poziciji IDslike = 1 onda se ID promjeni u slijedeći veći broj, a meni bi trebalo da ostane isti kada sam ga jednom upisao |
|
Prilozi: slika 1.jpg (Velicina datoteke:71.19 KB) Primjer 2.rar (Velicina datoteke:72.17 KB) |
Gjoreski | 18.08.2021 19:34 |
---|---|
Predmet:Re:Slike u formu i Report Prije upisa proveris dali vec postoi upisan broj,ako postoi onda novi broj ne upisujes |
pmiroslav | 19.08.2021 19:52 |
---|---|
Predmet:Re:Slike u formu i Report If Me!IDSlike = "" Or IsNull(Me!IDSlike) Then Dim Db As Database Dim RS As Recordset Set Db = CurrentDb Set RS = Db.OpenRecordset("SELECT NZ(MAX(IDSlike),0) + 1 AS Br FROM tblSlike WHERE OrderID=" & OrderID) Me![IDSlike] = RS.Fields("Br") RS.Close Set Db = Nothing End If |
Gjoreski | 19.08.2021 22:58 |
---|---|
Predmet:Re:Slike u formu i Report If Val(Nz(Me![IDSlike])) = 0 Then Me![IDSlike] = RS.Fields("Br") |
pmiroslav | 20.08.2021 18:25 |
---|---|
Predmet:Re:Slike u formu i Report Dalje radim na svojoj bazi i opet problem kojem nikako da nađem uzrok. U oba primjera na formi imam dugme PRIKAZ koji bi mi trebao otvoriti sliku. Ispod dugmeta je ista procedura Private Sub Command41_Click() ShellExecute Me.hwnd, "open", txtSlika1, vbNullString, vbNullString, SW_SHOWMAXIMIZED End Sub u jednom primjeru radi, a u drugom mi javlja greÅ¡ku Compile error Molim pomoć |
|
Prilozi: Slika radi.rar (Velicina datoteke:45.21 KB) Slika ne radi.rar (Velicina datoteke:39.09 KB) |
Gjoreski | 20.08.2021 22:49 |
---|---|
Predmet:Re:Slike u formu i Report Dodaj ovo u neki modul: PreuzmiIzvorni kôd (Visual Basic):
|