Extreme Veteran
Beiträge: 566
| Hallo,
Du kannst das maschinell erledigen. Beispiel:
Dim Frm As Form
Dim Rpt As Report
Dim Ctr. As Control
For Each Frm In CurrentProject.AllForms
DoCmd.OpenForm Frm.Name, acViewDesign
For Each Ctrl In Frm.Controls
Select Case Ctrl.ControlType
Case 108 'Textbox
'If Ctrl.Top = Ctr.Parent.Top Then
'Hier musst du deine Logik einbauen
'End If
End Select
Next Ctrl
Docmd.Close acForm, Frm.Name, acSaveYes
(Luftcode)
Das gleiche gilt für Reports. Evtl. musst du da noch Sections durchlaufen. Fehlerbehandlung nicht vergessen. ;-)
Viel Erfolg.
----- Gruss - Peter |