Kann man in einer Access-2000-Datenbank Grafiken in Formulare einbinden? Der Name der Grafik sollte aus Primärschlüsselnummer und der Endung jpg bestehen.
Hi,
joojoo… das geht!
Hier eine Routine aus einem meiner Programme:
- also da gibt es ein ListControl mit Namen „lstPics“ da steht eine ID eines Datensatzes. der korrespondiert mit dem Pfad zu einer Bilddatei.
- Dann gibt es BildControl „PreviewPic“
- s.u.
==================================================
Private Sub lstPics_Click()
On Error GoTo lstPics_Click_Err
Dim db As Database
Dim record As Recordset
Set db = CurrentDb
Set record = db.OpenRecordset("Select * from AddDokuments where ID = " & lstPics)
If Not record.BOF Then
PreviewPic.Visible = True
PreviewPic.Picture = record!PicturePath
Else
PreviewPic.Visible = False
End If
lstPics_Click_Exit:
Set db = Nothing
Exit Sub
lstPics_Click_Err:
Resume lstPics_Click_Exit
End Sub
Hope this helps
Peter