[es] - Access ljudi pomagajte

niknen

Član broj: 69798
Poruke: 66
*.beogrid.net.

Profil

^{24.03.2006. u 03:49}

Kako mogu da u accessu na novoj formi napravim formicu koja ce da sadrzi dva dugmeta jedni za ubacivanje slike a drugo za brisanje te slike i kada pritisnem dugme ubaci da mi ubaci sliku iz nekog direktorijum po mogucstvu ako moze da me pita koji direktorijum zelim da otvorim?! I da se ta slika ubaci u neki prozorcic za image?!!!

pomagajte hvala Vam unapred

^{24.03.2006. u 03:49}

DSavic

Član broj: 83445
Poruke: 30
*.telekom.yu.

Profil

Re: Access ljudi pomagajte

^{24.03.2006. u 09:09}

Private Sub Form_Current()
Dim res As Boolean
Dim fName As String

On Error Resume Next
errormsg.Visible = False
fName = dbPath & Me![Slika]

Me![ImageFrame].Picture = fName
showImageFrame
Me.PaintPalette = Me![ImageFrame].ObjectPalette
End Sub
Sub showImageFrame()
Me![ImageFrame].Visible = True
End Sub
Sub getFileName()

Dim fileName As String
Dim result As Integer

With Application.FileDialog(msoFileDialogFilePicker)
.Title = "Izaberite sliku"
.Filters.Add "Svi fajlovi", "*.*"
.Filters.Add "JPEGs", "*.jpg"
.Filters.Add "Bitmaps", "*.bmp"
.FilterIndex = 2
.AllowMultiSelect = False
.InitialFileName = dbPath
result = .Show
If (result <> 0) Then
fileName = Right(Trim(.SelectedItems.Item(1)), InStr(StrReverse(Trim(.SelectedItems.Item(1))), "\") - 1)
Me![Slika].Visible = True
Me![Slika].SetFocus
Me![Slika].Text = fileName
Me![Slika].SetFocus
End If
End With
End Sub

Private Sub Form_Open(Cancel As Integer)
dbPath = CurrentProject.Path & "\Slike\"

End Sub

^{24.03.2006. u 09:09}

Cuplinger
Vojislav Mladenovic

Član broj: 93531
Poruke: 11
*.ptt.yu.

Profil

Re: Access ljudi pomagajte

^{16.02.2007. u 20:52}

Mozeli neko da posalje gotov primer iz Accesa na ovu temu

^{16.02.2007. u 20:52}

Lord Mica
Bgd

Član broj: 114450
Poruke: 9
89.110.196.*

Profil

Re: Access ljudi pomagajte

^{16.02.2007. u 21:54}

Predlog:
Instaliraj office 2007 i stvar resena
Imas polje attach i radi to sto trazis.

^{16.02.2007. u 21:54}

Cuplinger
Vojislav Mladenovic

Član broj: 93531
Poruke: 11
*.ptt.yu.

Profil

Re: Access ljudi pomagajte

^{17.02.2007. u 11:26}

Zahvalan sam na Vasem odgovoru, ali to nije odgovor za moj problem, meni je neophodan primer za navedenu proceduru

^{17.02.2007. u 11:26}