Novo

Forum kao aplikacija na telefonu

Dodajte forum na početni ekran i koristite ga kao aplikaciju, sa menijem na dnu ekrana.

  • 4 odgovora
  • 3.501 pregleda

Najnovija ↓

Access ljudi pomagajte 24.03.2006. u 04:49 · pre 250 meseci #1
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
Re: Access ljudi pomagajte 24.03.2006. u 10:09 · pre 250 meseci #2
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
Re: Access ljudi pomagajte 16.02.2007. u 21:52 · pre 239 meseci #3
Mozeli neko da posalje gotov primer iz Accesa na ovu temu
Re: Access ljudi pomagajte 16.02.2007. u 22:54 · pre 239 meseci #4
Predlog:
Instaliraj office 2007 i stvar resena
Imas polje attach i radi to sto trazis.
Re: Access ljudi pomagajte 17.02.2007. u 12:26 · pre 239 meseci #5
Zahvalan sam na Vasem odgovoru, ali to nije odgovor za moj problem, meni je neophodan primer za navedenu proceduru
Prijavite se da biste odgovorili u ovoj temi.PrijavaRegistracija

Premeštanje teme