(Vielleicht passt das Thema auch nicht unbedingt in diesen Thread, dann verschiebt es einfach.)
/edit (Josef): ... wurde verschoben.

public sub MachWas(byval xyz as Variant)
public sub MachWas(byval xyz as string = "abc")
Public Sub Prozedurname(Optional ByVal variable As Typ = Startwert)
Public Sub Prozedurname(Optional ByVal variable As Variant)
Public Function ExecuteQueryDefByName(ByVal QueryName As String, _
Optional ByVal QueryParamDefs As Variant) As Long
dim qdf as dao.querydef
set qdf = me.currentdb.Querydefs(QueryName)
ExecuteQueryDefByName = ExecuteQueryDef(qdf, QueryParamDefs )
End Function
Public Function ExecuteQueryDef(ByVal qdf As DAO.QueryDef, _
Optional ByVal QdfParamDefs As Variant) As Long
...
End Function
Public Function ExecuteQueryDef(Optional ByVal QueryName As String, _
Optional ByVal qdf As DAO.QueryDef = nothing, _
Optional ByVal QueryParamDefs As Variant) As Long
if qdf is nothing then
set qdf = me.currentdb.Querydefs(QueryName)
end if
...
End Function
Public Function ExecuteQueryDef(ByVal QueryDefOrName As Variant, _
Optional ByVal QueryParamDefs As Variant) As Long
dim qdf as dao.querydef
if IsObject(QueryDefOrName)
set qdf = QueryDefOrName
else
set qdf = me.currentdb.Querydefs(QueryName)
end if
...
End Function
Public Function ExecuteQueryDef(ByVal QueryName As String, _
Optional ByVal QueryParamDefs As Variant) As Long
dim qdf as dao.querydef
set qdf = me.currentdb.Querydefs(QueryName)
ExecuteQueryDefByName = ExecuteQueryDef(qdf, QueryParamDefs )
End Function
Public Function ExecuteQueryDef(ByVal qdf As DAO.QueryDef, _
Optional ByVal QdfParamDefs As Variant) As Long
...
End Function