title image


Smiley ungültige Bereichsnummer
Hallo



in einer A2000-Anwendung möchte ich über die folgende Funktion die Hintergrundfarbe aller Formate von Farbe x auf Farbe y ändern. Wenn ich nur .section(acDetail) definiere, geht das auch ganz sauber über die Bühne. Wenn ich das aber mit .section(acHeader) durchführen will, kommt der Laufzeitfehler: 2462: die von Ihnen eingegebene Bereichsnummer ist ungültig



Was mache ich denn hier falsch?

Vielen Dank





Private Sub TestButton_Click()

Dim DB As DAO.Database

Dim doc As Document



Set DB = DBEngine(0)(0)

For Each doc In DB.Containers!Forms.Documents



DoCmd.OpenForm doc.Name, acDesign



If Forms(doc.Name).Section(acHeader).BackColor = -2147483633 Then

Forms(doc.Name).Section(acHeader).BackColor = 16758429

End If



If Forms(doc.Name).Section(acDetail).BackColor = -2147483633 Then

Forms(doc.Name).Section(acDetail).BackColor = 16758429

End If



DoCmd.Close acForm, doc.Name, acSaveYes

End If

Next

End Sub





geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: