投稿時間：2002/12/08(Sun) 18:47
投稿者名：ぷち
Ｅメール：fwjh3682@nifty.com
ＵＲＬ ：
タイトル：Re^2: 送り側のファイルが使用中
> 具体的な、状況ややりたいことの説明がないので返答に窮しますが
> ・アプリケーションが実行中
> ・開いたファイルをクローズしていない
> など、文字通り「ファイルが使用中」の状態なのではないでしょうか？
説明不足で申し訳ございませんでした。
アプリケーションを閉じてた後、EXEを削除しようとすると「ファイルが使用中」
とエラーメッセージが表示されます。
作成したアプリケーションの内容は、フォームのテキストボックスに入力した内容をACCESSに連結させるもので
コードは以下のとおりです。
Private Sub menexit_Click()
Unload Me
End Sub
Private Sub sakusei_Click()
sousin.Enabled = True
Text1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
Text4.Enabled = True
Text5.Enabled = True
Text6.Enabled = True
Text7.Enabled = True
Text8.Enabled = True
Text9.Enabled = True
Text10.Enabled = True
Combo1.Enabled = True
Data1.Recordset.AddNew
Data1.Enabled = False
Label12.Caption = ""
End Sub
Private Sub sousin_Click()
If Text1.Text = "" Then
Label12.Caption = "全ての項目を入力してください。"
ElseIf Text2.Text = "" Then
Label12.Caption = "全ての項目を入力してください。"
ElseIf Text3.Text = "" Then
Label12.Caption = "全ての項目を入力してください。"
ElseIf Text4.Text = "" Then
Label12.Caption = "全ての項目を入力してください。"
ElseIf Text5.Text = "" Then
Label12.Caption = "全ての項目を入力してください。"
ElseIf Text6.Text = "" Then
Label12.Caption = "全ての項目を入力してください。"
ElseIf Text7.Text = "" Then
Label12.Caption = "全ての項目を入力してください。"
ElseIf Text8.Text = "" Then
Label12.Caption = "全ての項目を入力してください。"
ElseIf Text9.Text = "" Then
Label12.Caption = "全ての項目を入力してください。"
ElseIf Text10.Text = "" Then
Label12.Caption = "全ての項目を入力してください。"
ElseIf Combo1.Text = "" Then
Label12.Caption = "全ての項目を入力してください。"
Else
Data1.Recordset.AddNew
Label12.Caption = "送信しました。"
sousin.Enabled = False
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Text5.Enabled = False
Text6.Enabled = False
Text7.Enabled = False
Text8.Enabled = False
Text9.Enabled = False
Text10.Enabled = False
Combo1.Enabled = False
Data1.Enabled = True
End If
End Sub
宜しくお願い致します
|