1

Topic: I can not find count of lines about a form field.

And again hello, at me a new problem, I can not count a line about a form field, did not find any variant.
And now in essence, it is necessary to know how many lines in the field, for the subsequent offset of other fields (above or more low) that there were no gaps in the ACT

2

Re: I can not find count of lines about a form field.

Wawan2005;
http://www.sql.ru/forum/1021031-1/kolic … tekstbokse

3

Re: I can not find count of lines about a form field.

And why not to issue the ACT in the form of the report and to set to property the extension "YES" to a field

4

Re: I can not find count of lines about a form field.

Wawan2005 wrote:

that there were no gaps in the ACT

More often certificates/contracts/.... Form, deducing the information from aksess/eksel in bookmarks WORD

5

Re: I can not find count of lines about a form field.

guest_rusimport;
Variant, I so am confused, and  by the code, for one field, I generally will forget from what began and that wanted.
Who can knows a variant on easier well type of operator Len for count of characters, the squanderer it is possible to consider as well lines.

6

Re: I can not find count of lines about a form field.

Wawan2005 wrote:

guest_rusimport;
Variant, I so am confused, and  by the code, for one field, I generally will forget from what began and that wanted.
Who can knows a variant on easier well type of operator Len for count of characters, the squanderer it is possible to consider as well lines.

You this that looked? Where is easier?

7

Re: I can not find count of lines about a form field.

guest_rusimport;

Private Sub Knopka18_Click ()
Dim pos As Integer
Dim rows As Long
Me.0.SetFocus
rows = 0
pos = Me.0.SelStart
1:
SendKeys "{DOWN}"
DoEvents
If Me.0.SelStart = pos Then '-------->>>>>>> Swears on this line does not transit button click (Aktsess 2007)'
MsgBox "the Amount of lines -" and (rows + 1)
Exit Sub
Else
rows = rows + 1
pos = Me.0.SelStart
End If
SendKeys "{END}"
DoEvents
If Me.0.SelStart <> pos Then
pos = Me.0.SelStart
End If
GoTo 1
End Sub

8

Re: I can not find count of lines about a form field.

Wawan2005 wrote:

guest_rusimport;

Private Sub Knopka18_Click ()
Dim pos As Integer
Dim rows As Long
Me.0.SetFocus
rows = 0
pos = Me.0.SelStart
1:
SendKeys "{DOWN}"
DoEvents
If Me.0.SelStart = pos Then '-------->>>>>>> Swears on this line does not transit button click (Aktsess 2007)'
MsgBox "the Amount of lines -" and (rows + 1)
Exit Sub
Else
rows = rows + 1
pos = Me.0.SelStart
End If
SendKeys "{END}"
DoEvents
If Me.0.SelStart <> pos Then
pos = Me.0.SelStart
End If
GoTo 1
End Sub

You that read this post?
The citation - "Only if will not work it is necessary that in Parameters  on the tab the Keypad there was a passage in the field beginning at an input in the field"