AutoFill Records

  • Thread starter Thread starter John
  • Start date Start date
J

John

Hello to everybody,

To obtain a report in 4 coloumn (accross and down), I am insert a value of
"01", "02", "...", "10", "11", in a text box called "CellInfo".
Now with this code, in a new record, some value are automatically filled.
Everythinf works, expect that I am not able to obtain the "01", "02", but
only "1", "2".
How my I do this? The value of the "CellInfo" are as text.

Private Sub Form_Current()
Dim rs As Object
Set rs = Me.Recordset.Clone
If rs.EOF Or Not Me.NewRecord Then
' don't do anything if there's no records or it is not a new record
Else
With rs
.MoveLast
Me![ExpireDate] = .Fields("ExpireDate")
Me![CellInfo] = .Fields("CellInfo") + 1
Me![NicheInfo] = .Fields("NicheInfo")
End With
End If
Me.txtRecordCount.value = DCount("DefunctID", "tbl_Defunct")
Me.DefunctInfo.SetFocus
End Sub

Thanks in advance for your help.
John
 
Back
Top