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):
  1. Public Declare Function ShellExecute Lib "Shell32.dll" Alias "ShellExecuteA" _
  2. (ByVal hwnd As Long, _
  3. ByVal lpOperation As String, _
  4. ByVal lpFile As String, _
  5. ByVal lpParameters As String, _
  6. ByVal lpDirectory As String, _
  7. ByVal nShowCmd As Long) As Long
  8. Const SHOWMAXIMIZED = 3