VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[過去ログ]
[管理用]
> 具体的な、状況ややりたいことの説明がないので返答に窮しますが
> ・アプリケーションが実行中
> ・開いたファイルをクローズしていない
> など、文字通り「ファイルが使用中」の状態なのではないでしょうか？
説明不足で申し訳ございませんでした。
アプリケーションを閉じてた後、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
宜しくお願い致します
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）