FormatConditions mit VBA kopieren

19/08/2008 - 13:40 von Jürgen Schulz | Report spam
Hallo NG

Ich will per VBA die FormatConditions von einem Textfeld in andere
Textfelder kopieren.

Ich müsste ja dafür die FormatConditions des zu kopierenden Textfeld
durchlaufen und entsprechend auf die anderen Textfelder übertragen. Hat
jemand dafür ein Codeschnipsel? Oder geht das einfacher?

Danke schon mal
Jürgen
 

Lesen sie die antworten

#1 Henry Habermacher
19/08/2008 - 14:22 | Warnen spam
Hallo Jürgen

"Jürgen Schulz" wrote in message
news:48aab120$0$12938$

Ich will per VBA die FormatConditions von einem Textfeld in andere
Textfelder kopieren.

Ich müsste ja dafür die FormatConditions des zu kopierenden Textfeld
durchlaufen und entsprechend auf die anderen Textfelder übertragen. Hat
jemand dafür ein Codeschnipsel? Oder geht das einfacher?



Du meinst was auf diese Art hier?

Public Function copyConditionalFormat(FromControl As Control, ToControl As
Control)
Dim fc As FormatCondition
Dim I As Long
If (FromControl.ControlType = acTextBox Or FromControl.ControlType =
acComboBox) _
And (ToControl.ControlType = acTextBox Or ToControl.ControlType =
acComboBox) Then
'first delete existing format conditions
For I = ToControl.FormatConditions.Count - 1 To 0 Step -1
ToControl.FormatConditions(I).Delete
Next
'now add a new one for each in FromControl and set its attributes
For I = 0 To FromControl.FormatConditions.Count - 1
Set fc = FromControl.FormatConditions(I)
ToControl.FormatConditions.Add fc.Type, fc.Operator, fc.Expression1,
fc.Expression2
With ToControl.FormatConditions(I)
.BackColor = fc.BackColor
.Enabled = fc.Enabled
.FontBold = fc.FontBold
.FontItalic = fc.FontItalic
.FontUnderline = fc.FontUnderline
.ForeColor = fc.ForeColor
End With
Next
Else
MsgBox "Formatconditions are only available for comboboxes and
textboxes", vbExclamation
End If
End Function

Aufrufen z.B. über:

Call copyConditionalFormat(Forms!DeinForm!DeinText,
Forms!DeinForm!DeinText2)

HTH
Henry

Microsoft MVP Office Access
Keine E-Mails auf Postings in NGs. Danke.
Access FAQ www.donkarl.com

Ähnliche fragen