Centar za edukaciju-BiH

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


Prosiri i skupi Opcije teme
Stranice (4):1,2,3,4

#11 03.01.2014 15:37
MOZEBITIPONOVO Van mreze
Clan
Registrovan od:22.03.2012
Postovi:139


Predmet:Re: Uvoz Slika ...
Hteo sam sa viÅ¡e FE, na računar gde se nalazi BE.
↑  ↓

#12 03.01.2014 16:41
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


Predmet:Re: Uvoz Slika ...
Aha pa samo popravis prvi dio moje procedure koja cita ime compa.
Umjesto toga stavis putanju linka tabela odnosno putanju do Be baze.
Sad nisam u mogucnosti to popraviti zurim.
Ako ne uspijes veceras sam tu.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#13 03.01.2014 18:15
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


Predmet:Re: Uvoz Slika ...
Evo ti procedura umjesto stare uvozslike.
Samo je zamijeni ovom.
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub Uvoz_slike_Click()
  2.  
  3.  Dim fd As FileDialog
  4.  Dim PutanjaD As String
  5.  Dim I As Integer, Imek(3) As String
  6.  Dim P
  7.     Set fd = Application.FileDialog(msoFileDialogFilePicker)
  8.     Dim vrtSelectedItem As Variant
  9.     With fd
  10.         .Filters.Clear
  11.         .Title = "Pronai sliku"
  12.         .Filters.Add "All files", "*.*"
  13.         .Filters.Add "Images", "*.gif; *.jpg; *.jpeg", 1
  14.         If .Show = -1 Then
  15.             For Each vrtSelectedItem In .SelectedItems
  16.                  slika.Picture = vrtSelectedItem
  17.                  Putanja = vrtSelectedItem
  18.             Next vrtSelectedItem
  19.         Else
  20.         End If
  21.     End With
  22.     PutanjaD = PutanjaB
  23.     Imek(1) = Me.SUBJEKT.Column(1)
  24.     Imek(2) = Me.LOKACIJA.Column(1)
  25.     Imek(3) = Me.OBJEKT.Column(1)
  26.  
  27.     For I = 1 To 3
  28.         PutanjaD = PutanjaD & Imek(I) & "\"
  29.         P = Dir(PutanjaD, vbDirectory)
  30.         If P = "" Then
  31.         MkDir PutanjaD
  32.         End If
  33.     Next I
  34.     Set fd = Nothing
  35.     PutanjaD = PutanjaD & Me.BrojSlike & Right(Putanja, 4)
  36.     FileCopy Putanja, PutanjaD
  37.     Me.PutanjaD = PutanjaD
  38. End Sub

ovu proceduru stavi u modul
PreuzmiIzvorni kôd (Visual Basic):
  1. Function PutanjaB()
  2. Dim Db As Database
  3. Dim Rs As Recordset
  4. Dim Putanja As String
  5.  
  6. Set Db = CurrentDb
  7. Set Rs = Db.OpenRecordset("SELECT database from MsysObjects WHERE Database<>Null")
  8.  
  9. If Rs.RecordCount > 0 Then
  10. Putanja = Rs.Fields(0)
  11. Do
  12. Putanja = Mid(Putanja, 1, Len(Putanja) - 1)
  13. Loop While Right(Putanja, 1) <> "\"
  14. PutanjaB = Putanja
  15. End If
  16. End Function
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#14 04.01.2014 12:05
MOZEBITIPONOVO Van mreze
Clan
Registrovan od:22.03.2012
Postovi:139


Predmet:Re: Uvoz Slika ...
Ovo radi upravo onako kako sam hteo. Ja sam probao prethodni kod da modifikujem da snima sliku na zadatu lokaciju, ali mi je uvek javljao greÅ¡ku. Kako da tvoj prethodni kod (od 22.12.) modifikujem da snima na IP adresu (na neki drugi računar) u mreži.
Imek(0) = "\\192.168.0.14"
Imek(1) = "tabele"
Imek(2) = Me.SUBJEKT.Column(1)
Imek(3) = Me.LOKACIJA.Column(1)
Imek(4) = Me.OBJEKT.Column(1)
For I = 0 To 4
PutanjaD = PutanjaD & Imek(I) & "\"
P = Dir(PutanjaD, vbDirectory)

Uvek mi iskoči na P = Dir(PutanjaD, vbDirectory)

Veliko hvala i pozdrav!
↑  ↓

#15 04.01.2014 20:03
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


Predmet:Re: Uvoz Slika ...
treba da ide
for i=1 to 4
jer je umek(0) u stvari ime kompa odnosno ip compa i nemoze kreirati dir.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#16 04.01.2014 20:04
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


Predmet:Re: Uvoz Slika ...
treba da ide
for i=1 to 4
jer je umek(0) u stvari ime kompa odnosno ip compa i nemoze kreirati dir.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#17 06.01.2014 20:22
MOZEBITIPONOVO Van mreze
Clan
Registrovan od:22.03.2012
Postovi:139


Predmet:Re: Uvoz Slika ...
Uspeo sam da se izborim, kako si rekao.

Dim PutanjaD As String
Dim I As Integer, Imek(3) As String
Dim P
PutanjaD = "\\192.168.0.10\tabele\"
Imek(1) = Me.SUBJEKT.Column(1)
Imek(2) = Me.LOKACIJA.Column(1)
Imek(3) = Me.OBJEKT.Column(1)
For I = 1 To 3
PutanjaD = PutanjaD & Imek(I) & "\"
P = Dir(PutanjaD, vbDirectory)
If P = "" Then
MkDir PutanjaD
End If

Nastavljam dalje, zahvaljujem i pozdrav!
↑  ↓

#18 06.01.2014 20:39
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


Predmet:Re: Uvoz Slika ...
Hehe samo guraj.
Bez muke nema nauke.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#19 25.01.2014 11:11
MOZEBITIPONOVO Van mreze
Clan
Registrovan od:22.03.2012
Postovi:139


Predmet:Re: Uvoz Slika ...
Nisam u prilici stalno biti aktivan na forumu a i u pravljenju aplikacije. Sada mi se ukazlo malo vremena, a i novih praktičnih ideja. Ima li mogućnosti, da se kao i kod profesionalnih aplikacija za fotografije, dodaju dugmad sa opcijama za zoom i rotaciju slike. Ako može i neki primer. Pozdrav!
↑  ↓

#20 27.01.2014 16:42
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


Predmet:Re: Uvoz Slika ...
Rotacija slike ipak spada u obradu slike i klasicne kontrole to nemogu odnosno one koje su u Toolboxu ali imas activx sa kojim se to noze uraditi.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

Stranice (4):1,2,3,4

Srodne teme

Ko je online?

Aktivni clanovi:
nema clanova


Kontakt
Sva vremena su GMT +02:00. Trenutno vrijeme: 2: 00 am.