K
Ken
In the below Macro, I would like to value of RowCount to be displayed in a
form.
Public Function RunRecordCount()
Dim dummy As String
Dim filename As String
Dim RowCount As Long
filename = "H:\BHTR_GREEKS.TXT"
Open filename For Input As 1
Do While Not EOF(1)
Line Input #1, dummy
If dummy <> "" Then
RowCount = RowCount + 1
End If
Loop
Close 1
End Function
Please advise.
Could you also provide some websites where I can see sample coding?
Thanks
form.
Public Function RunRecordCount()
Dim dummy As String
Dim filename As String
Dim RowCount As Long
filename = "H:\BHTR_GREEKS.TXT"
Open filename For Input As 1
Do While Not EOF(1)
Line Input #1, dummy
If dummy <> "" Then
RowCount = RowCount + 1
End If
Loop
Close 1
End Function
Please advise.
Could you also provide some websites where I can see sample coding?
Thanks