Schaltfläche erstellen um Import-Modul auszuführen

[DF6GL]

Hallo,


wenn Du Form_Current benutzt, wird die Einstellung jedesmal beim Anzeigen eines Datensatzes ausgeführt. Dann braucht Du nicht eine extra Schaltfläche.  Willst Du die Prozedur nur ausführen, wenn die Schaltfläche geklickt wird, dann schreib den Code in die Click-Ereignisprozedur des Buttons.


Private Sub Befehl2_Click()
    Dim ctl As Control
    For Each ctl In Me.Controls
    If ctl.ControlType = acTextBox Then
        ctl.ColumnWidth = -1
    End If
    Next
End Sub



Die vorherige Fehlermeldung kam daher, dass "Me" als Verweis auf das aktuelle Form in der Prozedur (die keine Ereignis-Prozedur ist) nicht bekannt ist. Vermutlich steht die Prozedur (Sub Current () ) in einem Standardmodul und nicht im Formular-Klassenmodul.

[hooKa]

Hi,

ich habe jetzt mal den Code in die Click-Ereignisprozedur des Buttons eingefügt. Nur leider tut sich nicht viel, die Spalten haben immer noch die ursprüngliche Breite und man muss sie manuell durch Klicken anpassen. Auch, wenn ich eine Private Sub Prozedur erstelle und auf sie verweise, passiert nichts.

[MaggieMay]

Hi,

die erstellte Tabelle hat immer noch die nicht optimierten Spaltennamen

es geht hier darum, dass du die Tabelle mit Hilfe eines Formulares zur Ansicht bringen musst, Tabellen und Abfragen werden niemals direkt geöffnet, dann da hast du ja keinerlei Kontrolle darüber.

Und in dieses Anzeigeformular gehört dann auch der Code.