5ちゃんねる ★スマホ版★ ■掲示板に戻る■ 全部 1- 最新50  

■ このスレッドは過去ログ倉庫に格納されています

ACCESS総合相談所 その6

1 :名無しさん@そうだ選挙にいこう:02/11/21 14:23
質問される方へ
・OS、ACCESSのバージョンを明記してください
・質問内容は具体的に書いてください
 テーブル/フォームの構成、クエリの内容など差し支えない
 範囲で公開すると、早く回答が得られるかもしれません
・事前にヘルプ等で調べられる範囲は調べてください

回答される方へ
・わかる人は回答されるよう協力お願いいたします
・煽り、叩きの類は個々人の判断におまかせします(なるべく穏便に)

前スレッド - ACCESS総合相談所 その5
http://pc.2ch.net/test/read.cgi/bsoft/1033182163/
過去スレッドリンクは>>2-10

91 :その2:02/11/28 21:37
フォームCのコマンドボタンでも
ちなみに下記のように一度閉じるて開くと問題ありません。

Private Sub コマンド_Click()
Dim lngX As Long
DoCmd.SelectObject acForm, "フォームB", False
DoCmd.Minimize
lngX = InputBox("削除するIDを指定")
DoCmd.RunSQL "DELETE Test.id FROM Test WHERE ((Test.id)=" & lngX & ")"
Forms!フォームB!サブフォーム.SetFocus
DoCmd.Close acForm, "フォームB"
DoCmd.OpenForm "フォームB"
end sub


92 :訂正:02/11/28 21:40
>フォームA:TサブフォームBとコマンドボタンが組み込まれている
↓訂正
フォームA:「サブフォームB」がサブフォームとして
       「コマンドボタン」がコマンドボタンとして組み込まれている

93 :訂正2:02/11/28 22:36
すみません…再度、作り直してやってみたらAccess2000では下記で問題ありませんでした。
Private Sub コマンドボタン_Click()
Dim lngX As Long
DoCmd.SelectObject acForm, "フォームA", False
DoCmd.Minimize
lngX = InputBox("削除するIDを指定")
DoCmd.RunSQL "DELETE Test.id FROM Test WHERE ((Test.id)=" & lngX & ")"
DoCmd.SelectObject acForm, "フォームA", False
DoCmd.Restore
DoCmd.Requery "サブフォームB"
End Sub

それから91は
「フォームB」→「フォームA」、「コマンド」→「コマンドボタン」、「サブフォーム」→「サブフォームB」
Forms!フォームB!サブフォーム.SetFocusは不要です。

311 KB
■ このスレッドは過去ログ倉庫に格納されています

★スマホ版★ 掲示板に戻る 全部 前100 次100 最新50

read.cgi ver 05.04.00 2017/10/04 Walang Kapalit ★
FOX ★ DSO(Dynamic Shared Object)