Mit Doppelklick auf ein Feld ein anderes Formular öffnen

On Error GoTo Err_Kombinationsfeld37_DblClick
Dim lngProductID As Long
If IsNull(Me![Kombinationsfeld37]) Then
Me![Kombinationsfeld37].Text = „“
Else
lngProductID = Me![Kombinationsfeld37]
Me![Kombinationsfeld37] = Null
End If
DoCmd.OpenForm „Standorte“, acNormal, , , , acWindowNormal, „GotoNew“
Me!Kombinationsfeld37.Requery
If lngProductID <> 0 Then Me![Kombinationsfeld37] = lngProductID
Exit_Kombinationsfeld37_DblClick:
Exit Sub
Err_Kombinationsfeld37_DblClick:
MsgBox Err.Description
Resume Exit_Kombinationsfeld37_DblClick