This shows you the differences between two versions of the page.
Next revision | Previous revision | ||
vba:tutorials:form_row_nr [23.06.2017 12:23:49] yaslaw created |
vba:tutorials:form_row_nr [24.08.2017 14:41:16] (current) yaslaw |
||
---|---|---|---|
Line 1: | Line 1: | ||
====== [VBA][Access] flexible Zeilennummern in einem Form anzeigen ====== | ====== [VBA][Access] flexible Zeilennummern in einem Form anzeigen ====== | ||
- | //Dieses kleine Tutorial zweigt, wie man in einem Datensheet oder einem Endlosform eine Zeilennummer anzeigen kann// | + | //Dieses kleine Tutorial zeigt, wie man in einem Datensheet oder einem Endlosform eine Zeilennummer anzeigen kann// |
- Ein ungebundenes Textfeld erstellen. Ich nenne es mal ''tbxRowNr''. | - Ein ungebundenes Textfeld erstellen. Ich nenne es mal ''tbxRowNr''. | ||
- | - Dem neuen Textfeld die Control Source ''=rowNr()'' mitgeben. | + | - Dem neuen Textfeld die Control Source ''=rowNr()'' mitgeben. {{:vba:tutorials:2017-08-24_143132.png?linkonly|Bild}} |
- | - Für das Formular das Code-Modul aktivieren (Parameter HasModule = True) | + | - Das Textfeld auf disabled und loocked setzen {{:vba:tutorials:2017-08-24_143913.png?linkonly|Bild}} |
- | - Das Textfeld auf disabled und loocked setzen | + | - Für das Formular das Code-Modul aktivieren (Formular-Parameter HasModule = True) {{ :vba:tutorials:2017-08-24_143329.png?linkonly |Bild}} |
- Den untenstehenden Code dem Formular hinterlegen. | - Den untenstehenden Code dem Formular hinterlegen. | ||
- die Konstante C_ROWNR_CONTROL anpassen und den Namen des Steuerelementes eingeben | - die Konstante C_ROWNR_CONTROL anpassen und den Namen des Steuerelementes eingeben | ||
- | <code vb>Option Compare Database | + | {{:vba:tutorials:2017-08-24_143439.png?direct&400|}} |
- | Option Explicit | + | |
+ | <code vb>Option Explicit | ||
'------------------------------------------------------------------------------- | '------------------------------------------------------------------------------- |