Hi,
habe folgende public function:
Public Function myfunction(byval fpsql as string, byval fpform as form = nothing) as boolean
select case fpform.text
case "A"
with windows.application1.frmAuftrag
.bestand = 0
' usw.
end with
case "B"
with windows.application1.frmKorrekturAuftrag
.bestand = 0
' usq.
end with
end select
Die Anweisungen zwischen with und end with sind in allen Fällen die gleichen. Ich möchte mir das Kopieren der Anweisungen sparen und nur einen einzigen with end with - Block verwenden. Wer weiß, wie es geht?
habe folgende public function:
Public Function myfunction(byval fpsql as string, byval fpform as form = nothing) as boolean
select case fpform.text
case "A"
with windows.application1.frmAuftrag
.bestand = 0
' usw.
end with
case "B"
with windows.application1.frmKorrekturAuftrag
.bestand = 0
' usq.
end with
end select
Die Anweisungen zwischen with und end with sind in allen Fällen die gleichen. Ich möchte mir das Kopieren der Anweisungen sparen und nur einen einzigen with end with - Block verwenden. Wer weiß, wie es geht?