Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Access ljudi pomagajte

[es] :: Access :: Access ljudi pomagajte

[ Pregleda: 2626 | Odgovora: 4 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

niknen

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



Profil

icon Access ljudi pomagajte24.03.2006. u 03:49 - pre 188 meseci
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
 
Odgovor na temu

DSavic

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



Profil

icon Re: Access ljudi pomagajte24.03.2006. u 09:09 - pre 188 meseci
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
 
Odgovor na temu

Cuplinger
Vojislav Mladenovic

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



Profil

icon Re: Access ljudi pomagajte16.02.2007. u 20:52 - pre 177 meseci
Mozeli neko da posalje gotov primer iz Accesa na ovu temu
 
Odgovor na temu

Lord Mica
Bgd

Član broj: 114450
Poruke: 9
89.110.196.*



Profil

icon Re: Access ljudi pomagajte16.02.2007. u 21:54 - pre 177 meseci
Predlog:
Instaliraj office 2007 i stvar resena
Imas polje attach i radi to sto trazis.
 
Odgovor na temu

Cuplinger
Vojislav Mladenovic

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



Profil

icon Re: Access ljudi pomagajte17.02.2007. u 11:26 - pre 177 meseci
Zahvalan sam na Vasem odgovoru, ali to nije odgovor za moj problem, meni je neophodan primer za navedenu proceduru
 
Odgovor na temu

[es] :: Access :: Access ljudi pomagajte

[ Pregleda: 2626 | Odgovora: 4 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.