Bild in ein Formular einbinden

[PCDummy]

Hi,

ich habe folgendes Prob. Ich habe ein DB erstellt wo ich in einem Formular Vereinsmitglieder aufrufen kann und es wird automatisch mit folgendem VBA - Code das passende Bild eingeblendet :
Code:
Private Sub Form_Current()
Dim db As DAO.Database
Dim rst As DAO.Recordset
Set db = CurrentDb()
Set rst = db.OpenRecordset("Parameter", dbOpenTable, dbDenyWrite)
rst.MoveFirst
pfad = rst!Verz
rst.Close

On Error GoTo form_error
Me.Bild39.Picture = pfad & "\" & Trim(Mid(Me.Vorname, 1, 3)) & Trim(Me.Nname) & ".jpg"
Exit Sub
form_error:
If Err.Number = 2220 Then
Me.Bild39.Picture = pfad & "\" & "logo.jpg"
Resume Next
End If

End Sub


Das funzt auch, aber wenn ich die DB aufteile in Front- und Backend, dann haut das mit dem OpenRecordSet nicht mehr hin.

Hat einer von euch ein Idee? Aber bitte mit einfachen Worten ^^

Danke
PC Dummy

 

[Black-Shaddy]

Ähm, der Code sagt mir jetzt so erstmal nichts auf die schnelle.
Aber ich sagmal ganz pauschal vielleicht haste irgendwo die " vergessen ?
Einfach mal nachgucken.

 

[PCDummy]

Hi @all,

ich habe die Lösung genannt bekommen, es muss
dbOpenTable gegen dbOpenDynaset ersetzt werden.

Thx, für Hilfe

PC Dummy