Teil 3

Der eigene Format Assistent
(3/5)

Erstellen Sie die folgende Funktion in Ihrem Formular
(diese generiert die Format Eigenschaft):

Public Sub fnc_GeneriereFormat()

   Dim strPositiv As String
   Dim strNegativ As String
  
   strPositiv = Me!cboPositiv.Column(1)
   strNegativ = Me!cboNegativ.Column(1)
  
   Me!txtPositiv.Format = "#,##0.00[" & _
                           Me!cboPositiv.Column(1) & _
                           "];-#,##0.00[" & _
                           Me!cboNegativ.Column(1) & "]"
   Me!txtNegativ.Format = "#,##0.00[" & _
                           Me!cboPositiv.Column(1) & _
                           "];-#,##0.00[" & _
                           Me!cboNegativ.Column(1) & "]"
  
   p_Rueckgabe = "#.##0,00[" & _
                 Me!cboPositiv.Column(0) & _
                 "];-#.##0,00[" & _
                 Me!cboNegativ.Column(0) & "]"
  
End Sub

Speichern Sie das Formular unter dem Namen "frm_Assistent" ab.