doppelt with?

[Doming]

Hallo,

beim Durchwühlen einer alten Datenbank fiel mir diese Codesequenz auf

Code [Auswählen] Erweitern

    Forms!Schulz_Abholung_Erfassung!TxBarcode = Forms!Scannen!Ind
    Forms!Schulz_Abholung_Erfassung!Auftrag = Forms!Scannen!Auftrag
    Forms!Schulz_Abholung_Erfassung!Pos = Forms!Scannen!Pos
    Forms!Schulz_Abholung_Erfassung!Typ = Forms!Scannen!TypIst nur ein Auszug, der meiner Meinung nach nach With ... End With schreit.
Ist es möglich, zwei wiederkehrende Steuerelement-Ausdrücke zu definieren, in diesem Fall sowohl Forms!Schulz_Abholung_Erfassung als auch Forms!Scannen?

Die Benamsungen mal außen vor, zu viele Korrekturen möchte ich an einem mir ansonsten unbekannten Code nicht vornehmen.

Gruß
 Doming

[Josef P.]

Hallo!

Du könntest für ein Formular eine Variable nutzen.

Code [Auswählen] Erweitern

dim ScanForm as Form
set ScanForm = Forms!Scannen
with Forms!Schulz_Abholung_Erfassung
   !TxBarcode = ScanForm!Ind
   ...
   !Typ = ScanForm!Typ
end with
Anderer Gedanke:
Eventuell werden die Werte im Formular "Scannen" zuvor geprüft, ob sie inhaltlich stimmen.
Dann würde ich eher Variablen für die Werte verwenden.

Code [Auswählen] Erweitern

dim Barcode as String
dim Auftrag as string
dim Pos as ...
...
dim Typ as ...

with Forms!Scannen
    Barcode  = Nz(!Ind, vbnullstring)
    if Barcode ...
    ...
    Typ = ...
    if ...
end with

with Forms!Schulz_Abholung_Erfassung
   !TxBarcode = Barcode 
   ...
   !Typ = Typ
end with
Gruß
Josef