セロハン
2020/10/26 (月) 15:42:48
0029a@1c915
ごめんなさい…
VBAに間違いがあります。修正します。
Private Sub btn取込_Click()
Dim 取り込みデータ As String
If IsNull(Me.txtデータ) Then
MsgBox "テキストボックスが空です。"
Else
取り込みデータ = Me.txtデータ
取り込みデータ = Replace(取り込みデータ, vbCrLf, vbTab)
Call AddData2(Me.txtテーブル名, 取り込みデータ, 列数)
End If
通報 ...