Hallo,
ich geb keine Ruhe. dadurch, dass ich während meines Praktikums viele datenbanken programmieren muss, stoß ich ständig auf fragen, die mir das www auch nich beantworten kann.
Mein problem gerade ist, dass in einem Endlosformular die Bilder nicht angezeigt werden. D.H. es wird etwas angezeigt, allerdings in jedem datensatz das gleiche Bild und das ist doof. Jeder Datensatz soll ein anderes Bild anzeigen. Hier mal mein VBA- Code (ist bestimmt wieder zu umständlich - bin noch in der Lernphase ):
Private Sub Form_Current()
On Error GoTo BildAktualisieren_Err
Dim strBildpfad As String
Dim rs As Recordset
Dim db As Database
Dim Bilddatei
Set db = CurrentDb()
Set rs = db.OpenRecordset(„Creform“, dbOpenDynaset)
With rs
Do While Not .EOF
Const C = „G:\Ablage\Produktion\Betriebsmittelbau\03_Teilebereitstellung_Creform\08_Bilder\Zeichnung“
Bilddatei = !Bilddatei
strBildpfad = C & Bilddatei
Me!Bildverknuepft.Picture = strBildpfad
.MoveNext
If .EOF Then Exit Do
Loop
End With
BildAktualisieren_Err:
MsgBox „Das Bild konnte nicht geladen werden.“ _
'& vbCrLf & "Fehler-Nr: " & Err.Number _
'& vbCrLf & "Fehler-Beschreibung: " & Err.Description
strBildpfad = „“
Exit Sub
Wäre toll, wenn ihr mir einen Tipp geben könntet.
Viele Grüße von Beate