Code Snippet "VBA Access"

Von Formular aus weiteres Formular anzeigen mit allgemeiner Prozedur

Allgemeine Prozedur, die von verschiedenen Formularen aus aufgerufen werden kann, statt Ereignisprozedur hinter Formular

'Aufruf:
=funBildgrossAnzeigen([Formulare]![frmeingabemotiv])

'Code
Function funBildgrossAnzeigen(objForm As Form)
'Allgemeine Prozedur zum Anzeigen des Formulars Bildvorschau
'Aufruf mit:
' =funBildgrossAnzeigen([Formulare]![frmBildvorschau])
  On Error GoTo Err_funBildgrossAnzeigen

  Dim stDocName As String
  Dim stLinkCriteria As String

  stDocName = "frmBildgross"
  
  stLinkCriteria = "[bildnr]=" & objForm![bildnr]
  DoCmd.OpenForm stDocName, , , stLinkCriteria
  funBildgrossAnzeigen = False

Exit_funBildgrossAnzeigen:
  Exit Function

Err_funBildgrossAnzeigen:
  MsgBox Err.Description
  Resume Exit_funBildgrossAnzeigen
End Function