ShowDataForm

[Jan Liekens]

De functie ActiveSheet.ShowDataForm is beperkt tot 32 velden. Heeft er iemand ervaring mee om meer dan 32 velden te gebruiken ?

Hierna de code :
-----------------------------------------------------------------------------------------------------------------------------------
Sub mcrInvoerZaakvoerder()
'
' mcrInvoerZaakvoerder macro
' Macro recorded 01/08/2008 by Liekens Jna
'
'
On Error Resume Next

Sheets("Zaakvoerder").Select
Application.Goto reference:="R1c1:r50c32"
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.Offset(1, 0)).Select
ActiveWorkbook.Names.Add Name:="Database", RefersTo:="=Zaakvoerder!" & Selection.Address
Range("A1").Select
ActiveSheet.ShowDataForm
Application.Goto reference:="R1C1", scroll:=True


End Sub
---------------------------------------------------------------------------------------------------------------------------------
In bijlage eveneens een .xls testbestandje.

Groetjes
JL

 

[Roncancio]

Op de site van Walkenbach staat een oplossing voor dit probleem.


En een kort overzicht.

Met vriendelijke groet,


Roncancio

 

[Wigi]

Zie hier: http://www.j-walk.com/ss/dataform/index.htm

 

[Jan Liekens]

Bij J-Walk (Walkenbach) was ik ook al eens gaan kijken, maar dat helpt mij niet echt verder (zonder betaling althans).
Maar aan beide Senior Members alvast bedankt.