説明不足ですみません。
DataのプロパティのDataBaseNameでファイルを指定して、TextBoxで入力した値をExcelファイルに反映させるというものです。
Data部分のソースは以下です。
Private Sub Data1_Reposition()
If Data1.Recordset.EOF Then
Data1.Caption = "新規追加 /" & CStr (Data1.Recordset.RecordCount + 1)
Else
Data1.Caption = countText.Text & "/" &
CStr(Data1.Recordset.RecordCount)
End If
End Sub
Private Sub Data1_Validate(Action As Integer, Save As Integer)
If Data1.Recordset.EOF Then
If Save Then
countText.Text = CStr
(Data1.Recordset.RecordCount + 1)
End If
End If
End Sub
補足
説明不足ですみません。 DataのプロパティのDataBaseNameでファイルを指定して、TextBoxで入力した値をExcelファイルに反映させるというものです。 Data部分のソースは以下です。 Private Sub Data1_Reposition() If Data1.Recordset.EOF Then Data1.Caption = "新規追加 /" & CStr (Data1.Recordset.RecordCount + 1) Else Data1.Caption = countText.Text & "/" & CStr(Data1.Recordset.RecordCount) End If End Sub Private Sub Data1_Validate(Action As Integer, Save As Integer) If Data1.Recordset.EOF Then If Save Then countText.Text = CStr (Data1.Recordset.RecordCount + 1) End If End If End Sub