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?

Hi,

was meinst Du mit dem Hinweis: Benutze doch bitte den Quellcode. Soll ich den kompletten Programmteil hochladen?

Hi Rod,

also ich habe jetzt mal das optional beim Parameter fpform weggelassen und den Wert nicht auf nothing gesetzt. Wenn ich mir jetzt fpform anzeigen lasse, dann steht da wie gewünscht: WindowsApplication.frmUpdateAuftrag, wenn ich den Auftrag korrigiere und WindowsApplication1.frmAuftrag, wenn ich einen neuen Auftrag anlege. Für beide sollen aus der Funktion heraus in der aufrufenden Form die Werte gesetzt werden. Wenn ich jetzt schreibe with WindowsApplication1.fpform, dann meckert VB und sagt fpform ist kein Menmer von WindowsApplication1. Was muss ich anstellen, damit es funktioniert?

Hi Rod,

also im Anhang der komplette funktionierende Code. Wie gesagt, ich möchte ohne select case auskommen und die aufrufende Form mit einem With - end with - Block ansprechen.

Danke für den Hinweis, erspart sicher Schreibarbeit.

Mein eigentliches Problem ist jedoch, irgendwie mit fpform einen einzigen with-Block hinzubekommen.

Hi, Kangaroo,

im Prinzip verstehe ich Dich. Nun es ist so, das zuerst die Form frmAuftrag da war, dann habe ich eine Vorlage erstellt und aus der Vorlage habe ich die Form frmKorrektur erstellt. Ob bei diesem Vorgang eine Vererbung stattfindet, weiß ich nicht. Das ist für mich noch Neuland.

Hi, Kangaroo,

wie gesagt die aufrufenden Forms sehen alle gleich aus und zwar wie folgt:

Option Explicit on

Option Strict on

Imports System.IO

Imports System.Data.OleDb

Public Class frmAuftrag ' frmUpdateAuftrag usw.

Dim sql as string

sql = "select bezdeutsch, bezdeutsch" ' usw.

sql = sql & " from tabartikel where artikelnr = " & Format(cint(mskArtikel.text),"#######0")

if not lies_artikel(sql, me) then

msgbox("Artikel " & mskArtikel.text & " nicht vorhanden!")

mskArtikel.select

else

' alles i. O.

end if

End Class

Wie schalte ich den "Vererbungsknopf" ein?

Wenn alle Forms von einer übergeordneten Form erben, lade ich dann nicht alle Controls auf den untergeordneten Forms gleichzeitig mit den gleichen Werten?

Ich habe nun versucht, das Problem zu lösen, indem ich den Parameter fpform als Objekt deklariert habe. Das geht gut, so lange ich auf die Variablen des aufrufenden Moduls zugreife z. B. auf .bestand.

Bei der Anweisung fpform.controls("txt40.text") = bezdeutsch streikt der Compiler mit der Meldung: Der öffentliche Member txt40 für den Typ frmAuftrag wurde nicht gefunden.