Office: Feld aus einem Formular im Modul ansprechen

Hallo zusammen,
habe WIN 7 Prof. 64 Bit und Office 2010 Prof.
Ich habe folgendes Problem.
In einem Formular habe ich in Basic diverse Prüfungen hinterlegt. Nun will ich zum Beispiel ein Feld
„A“ prüfen. Dieses Feld will ich in einem separaten Modul weiter bearbeiten.

Also mal ein Beispiel:

If A=“X“ then
Jetzt Modul aufrufen (ich weis wie es geht)
Und jetzt im Modul wieder das Feld A ansprechen.
(Was muss ich machen, wie muss ich das Feld vorher definieren Kann mir jemand ein Beispiel machen?)

End if

Für Eure Hilfe wäre ich sehr Dankbar.
Gruß
Siegbert

 

Hallo Siegbert,

angenommen Du hast im Formular ein TextBox-Feld namens "txtBezeichnung". Dieses möchtest Du überprüfen, ob es den Inhalt "Schokolade" hat. Falls ja, möchtest Du in einem anderen Modul eine Prüfroutine namens "TestBezeichnung" aufrufen. Dazu übergibst Du beim Aufruf dieser Sub/Function auch einen Zeiger auf das Feld - deshalb besitzt die formale Parameterliste von TestBezeichnung die Paramaterdeklaration "Feld As TextBox" und die aktuelle Parameterliste des Prozeduraufrufs
entweder (1.Variante): "TestBezeichnung txtBezeichnung"
oder (2.Variante): "Call TestBezeichnung(txtBezeichnung)".
Das Ganze kann man statt mit einem Positionsparameter auch als benannten Parameter gestalten:
(entweder 1.Variante): "TestBezeichnung Feld:=txtBezeichnung"
(oder 2. Variante): "Call TestBezeichnung(Feld:=txtBezeichnung)"
(d.h. wird "Call" verwendet, sind die Parameterklammern Pflicht; wird dagegen kein "Call" verwendet, dürfen die Parameterklammern nicht verwendet werden!!)

Code:

   '....
   If txtBezeichnung.Value ="Schokolade" Then
      TestBezeichnung txtBezeichnung
   End If
   '....

Code im anderen Modul:

Code:

[B][COLOR="#0000CD"]Public[/COLOR][/B] Sub TestBezeichnung[COLOR="#0000CD"][B](Feld As TextBox)[/B][/COLOR]
  If Feld.Name="txtBezeichnung" Then
     If Feld.Value="Schokolade" Then
        '... weiterer Code
     Else
        '... weiterer Code
     End If
  ElseIf Feld.Name = "txtStück" Then
        '... weiterer Code
  Else
        '... weiterer Code
  End If
        '... weiterer Code ... etc.
End Sub

 

Hallo Anton,

habe es gerade gelesen, da ich weg war. Muss aber wieder für ein paar Tage wegfahren. Werde es danach ausprobieren und Dir schreiben, ob ich es verstanden habe. Bin am Samstag nächste Woche wieder zu Hause.

Danke für Deine Meldung

Gruß
Siegbert

 

Hallo Anton,

habe es nicht hinbekommen.. Habe eine einfache Subroutine gemacht um das zu testen. Bin wahrscheinlich zu Blöd.
Ich zeige Dir mal die Routine. Vielleich kannst Du mir helfen. Manchmal ist das ja peinlich wie blöd man sich anstellen kann.

Hier die Routine:

Private Sub DatumBis_AfterUpdate()
Dim z
Dim y
Dim ANZAHL1 As TextBox

z = 0
y = 0
Anzahl = 0
z = Month(DatumVon)
y = Month(DatumBis)
Anzahl = y - z + 1
ANZAHL1 = Anzahl

If ANZAHL1.Value = "1" Then Call Test(Feld:=ANZAHL1)
'*


End Sub

Public Sub Test(Feld As TextBox)
If Feld.Name = "anzahl1" Then
If Feld.Value = 1 Then
MsgBox ("Das Kennziffer für den aufgeteilen Verbrauch fehlt," _
& Chr(13) & "oder der Betrag fehlt." _
& Chr(13) & "Bitte ein korrekte Kennziffer eingeben")
End If
End If
End Sub

 

Hallo Siegbert,

Code:

[COLOR="#0000CD"]Option Explicit  [/COLOR]'<== sehr empfehlenswert!

Private Sub DatumBis_AfterUpdate()
  Dim z As Integer
  Dim y As Integer
[COLOR="#0000CD"]  Dim Anzahl As Integer[/COLOR]
[COLOR="#008000"]  '
  'ANZAHL1: Als "TextBox" mit dem Namen "ANZAHL1" ins Formular aufnehmen!
  '         Die Eigenschaft "Sichtbar" (Visible) auf "Nein" (False) stellen,
  '         sodass das Feld im Formular unsichtbar ist.
  '
[/COLOR]  Anzahl = 0
  z = Month(DatumVon)
  y = Month(DatumBis)
  Anzahl = y - z + 1
  ANZAHL1.Value = Anzahl
  
  If ANZAHL1.Value = 1 Then Call Test(Feld:=ANZAHL1)
  
End Sub

Public Sub Test(Feld As TextBox)
  If Feld.Name = "ANZAHL1" Then
    If Feld.Value = 1 Then
      MsgBox "Die Kennziffer für den aufgeteilten Verbrauch fehlt," & vbCrLf & _
             "oder der Betrag fehlt." & vbCrLf & _
             "Bitte eine korrekte Kennziffer eingeben!"
    End If
  End If
End Sub

 

Hallo Anton,

Danke das hat jetzt funktioniert. Wieder etwas gelernt.

Schönen Gruß
Siegbert