DexMachina の回答履歴

アクセスのデータ操作での質問です。住所テーブルに都道府県列と市区町村列があります。いずれもテキスト型です。その２列を結合して住所列というものを表示させることはできるのでしょうか？

ＡＣＣＥＳＳの勉強中の者です。 現在，基礎的なデータベースファイルを作成し「顧客マスター」というフォーム上に「顧客番号」，「顧客氏名漢字」，「顧客氏名ふりがな」，「顧客職業」というテキストボックス等を配置しています。 このフォーム上に新たに「顧客氏名」というコンボボックスを配置して，「顧客氏名漢字」，「顧客氏名ふりがな」に入力済みのデータからコンボボックスのデータを選択できるようにしたいと思っています（※例えば，テキストボックス「顧客氏名漢字」欄に「山田太郎」，テキストボックス「顧客氏名ふりがな」欄に「ヤマダタロウ」と入力されているのであれば，コンボボックス「顧客氏名」欄には「山田太郎」，「ヤマダタロウ」から選択させる。）。 コンボボックスのプロパティのコントロールソース（又は値集合ソース，値集合タイプ）の記述でなんとかできるものでしょうか？それともＶＢＡが必要なのでしょうか？ 方法があるのであれば，その方法は問いませんのでどなたかご教示いただければと思います。 よろしくお願いいたします。

実行時エラー '1004'「RangeクラスのPasteSpecialメソッドが失敗」 というエラーが実行時に出たり出なかったりします。 常にエラーが出てくれればそれはそれで（？）いいのですが、普通に実行できることもあるので自分には対処できませんでした。。。 ある形式に沿って保存されている大きめのファイル（4つで1組）をマクロによって数式処理させるマクロとなります。 このデータが大きく、マシンパワーもあまりないため開いたり閉じたり、またコピーペーストにと各所で処理に多少時間が掛かるので、それが問題かなとも思い処理の間に待ち時間を挿入したりしてみたのですが、その際にはエラーが出る確率は有意に低くはなりましたが、まだ出てしまいます。 エラーした際にデバッグすると下のような処理の中でのPasteSpecialにハイライトが掛かっており、4つのうちどれでも起こりうるようです。 原因とその解決策を教えて頂きたいと思います。宜しくお願いします。 ---------------------------------------- '対象のファイルを開いてコピー、その後閉じる Workbooks.Open Filename:=ActiveWorkbook.Path & "\" & ActiveCell.Offset(i, 0).Range("A1").Value Range("E1:E500000").Select Selection.Copy Application.DisplayAlerts = False ActiveWindow.Close Application.DisplayAlerts = True 'myfileに4つを貼り付け（今回は省略してますがForで回して4つ出揃った後、それらで数式処理） Workbooks(myfile).Activate If j = 1 Then 　Range("G3").Select 　Selection.PasteSpecial ElseIf j = 2 Then 　Range("H3").Select 　Selection.PasteSpecial ElseIf j = 3 Then 　Range("I3").Select 　Selection.PasteSpecial ElseIf j = 4 Then 　Range("J3").Select 　Selection.PasteSpecial End If

アクセスバージョンの違い。 　みなさん、こんにちは。いつも回答ありがとうございます。以下のように 質問しますのでよろしく教授方お願いします。 　Windows XPのもとで、メールソフト、NIFTY MANAGER メール版 for Windows V1.06を文章のメモのように使用しているのです。機能不足で、メールソフトとしては、使用できません。メール作成画面で文字を書き込んでいるときは、良いのですが、いったんキャビネットに保存して、保存した文書を呼び出すと文字化けがします。 　現象としては、エンコードやデコードに関することではないかと推量しています。 　ホームページなどでUTF-8コードで掛かれたものをshift-JISに変換すると一部文字化けすることがあります。このような現象だからです。 (●Q01)　　アクセス2002が、インストールされていると書き込みがshift-JISでも、保存するとき、UTF-8で書き込みされて呼び出されるとshift-JISに変換されて表示されるようなことがあるのでしょうか？ 　同じWindows XPの機械でも、文字化けする機械と文字化けしない機械があります。 　この機械の差異は、新しいバージョンのアクセスを入れているかどうかだと推量しています。アクセス2002以降がインストールされていると、どうも、文字化けが発生するようなのです。機械にアクセスが、インストールされていないと文字化けは、発生しません。 (●Q02)　アクセスのバージョンの違いでこのような文字化けの経験をされた方は、無いでしょうか？ (●Q03)NIFTY MANAGER メール版 for Windows V1.06は、アクセス97のデータベースを使用して文書を保存しています。ここでのバージョンの違いが原因では無いかと推量するのですが何か情報をお持ちの方は、おられませんでしょうか？　 (●Q04)何か文字化けの回避の方法を提案いただけないでしょうか？ 　一番良いのは、作成した＠Niftyが、サポートしてくれることですが、今は、サポート終了でだめです。 　Microsoft Outlook 2000なども、使っているのでこのソフトを使用する方法もありそうですが、慣れているのには、抗しがたいものがあります。 　たとえ、一つだけでも、お知りのことがありましたら、ご教授方よろしくお願いします。 　敬具

Accessでマスタのテーブル１があります。 その中には ID　　　名前　　グループ 1　　　Aさん　　　555 2　　　Bさん　　　555 3　　　Cさん　　　666 4　　　Dさん　　　666 IDはオートナンバーで主キーにしています。 ただ単純に上記のテーブル１に下記のようにチェックボックスを追加したいと思っています。 ID　　　名前　　グループ　　チェック 1　　　Aさん　　　555　　　　　　□ 2　　　Bさん　　　555　　　　　　□ 3　　　Cさん　　　666　　　　　　□ 4　　　Dさん　　　666　　　　　　□ チェックはYES/NO型 仕様としてテーブル1がマスタなので変更できない事が条件。 本題ですが、上記の状態でグループCさんにチェックを入れ、コンボボックスでグループが666 and チェックが付いているデータのみ表示するように出来ないでしょうか？ クエリで簡単に出来ると思ったのですが、チェックを追加するところでつまづいています・・・。 クエリの抽出条件でグループを666にし、グループの絞込みは出来ると思うのですが・・・。 わかりにくいかと思いますが、よろしくお願いします。

図のようにテーブルのデータのあ～おを検索したいのですがヒットしません。 クエリでlikeを使って条件抽出する場合は[あ-お]でヒットするのに テーブルに対してはだめなのでしょうか？ [あーお] [あ-お] でもだめでした。 よろしくお願い致します。

ACCESS2007のデータベースを利用しています。 テキストボックス１、コンボボックス１、テキストボックス２が上から順に並んでおり、コンボボックス１で表示されるリストから一つを選ぶと、カーソルがテキストボックス２に遷移します。 (ACCESS2007のオプションの詳細設定のところで、フィールド移動時の動作をフィールドの先頭に移動)に設定しています。 コンボボックス１の選択後、コンボボックス１の先頭にカーソル移動するには、どのような処理をVBAに追加すればよいでしょうか? Private Sub コンボボックス１_AfterUpdate() テキストボックス１.SetFocus コンボボックス１.SetFocus With Me!コンボボックス１ .SelStart = 0 .SelLength = 0 End With End Sub ではうまく動作しませんでした。どうぞ宜しくお願い致します。

ACCESS2007のデータベースを利用しています。 テキストボックス１、コンボボックス１、テキストボックス２が上から順に並んでおり、コンボボックス１で表示されるリストから一つを選ぶと、カーソルがテキストボックス２に遷移します。 (ACCESS2007のオプションの詳細設定のところで、フィールド移動時の動作をフィールドの先頭に移動)に設定しています。 コンボボックス１の選択後、コンボボックス１の先頭にカーソル移動するには、どのような処理をVBAに追加すればよいでしょうか? Private Sub コンボボックス１_AfterUpdate() テキストボックス１.SetFocus コンボボックス１.SetFocus With Me!コンボボックス１ .SelStart = 0 .SelLength = 0 End With End Sub ではうまく動作しませんでした。どうぞ宜しくお願い致します。

お世話になります。 アクセス超初心者なのですが、 仕事で使っているアクセスのデータで、 いくつかあるクエリを選ぶときに、間違ってデリートキーを押して クエリを削除してしまうことがあります。 デリートを押しても削除できないようにできたらいいなと思ったのですが、 そういった設定は可能なのでしょうか？ どうぞ、よろしくお願いいたします。

access２００３を使用しています。 画像はテーブルですがフォームのデータシートビューで 画像のようにフォールド２を一番左に移動するvbaコードを知りたいです。 vbaで可能なのでしょうか？ ご教授よろしくお願い致します。

お世話になります。 条件付き書式で住所が "東京都" で始まるレコードには、その住所だけを赤い文字色にしたいと思います。 フォームをレイアウトビューで開き、「住所」フィールドのテキストボックスを選択します。 ダイアログボックスに　「フィールドの値」・・・・「次の値に等しい」・・・・「Like "東京都*"」　 フォントの色　「赤」　を設定しました。 結果は、駄目でした。 どこが不備なのでしょうか。 よろしくお願いします。 Access 2007 　SP-2 　

ACCESS2007のデータベースを利用しています。 テキストボックス１、コンボボックス１、テキストボックス２が上から順に並んでおり、コンボボックス１で表示されるリストから一つを選ぶと、カーソルがテキストボックス２に遷移します。 (ACCESS2007のオプションの詳細設定のところで、フィールド移動時の動作をフィールドの先頭に移動)に設定しています。 コンボボックス１の選択後、コンボボックス１の先頭にカーソル移動するには、どのような処理をVBAに追加すればよいでしょうか? Private Sub コンボボックス１_AfterUpdate() テキストボックス１.SetFocus コンボボックス１.SetFocus With Me!コンボボックス１ .SelStart = 0 .SelLength = 0 End With End Sub ではうまく動作しませんでした。どうぞ宜しくお願い致します。

小説を読んでいたら「樹々はまた鬱蒼としげりかわしているものだから、憂暗にとざされるとまではいわぬとしても」と載っていたのですが、読みはなんとなく（ユウアン）なのかとは思うのですが、辞書に載っていないので確証はもてません。意味は全くわかりません。漢字に詳しい方で知っている方教えてください。お願いします。

親しい友人と時々夕食を共にしますが、相手は、いつも梅酒オンザロックを注文します。日本食レストランや居酒屋なら良いのですが、イタリアンなどでは、困ってしまいます。そこで、質問ですが、イタリアンやフレンチレストランでオーダー出来る様な梅酒に味が近い洋酒系のカクテルはあるでしょうか。

テーブルA　　　name code one 1 two 2 テーブルB　　　Bname Bcode 上記のようなテーブルが有り、テーブルBを使用したフォームを作成しています。 Bname へ入力する値は、テーブルA name にある値と一致します。 フォームで Bname を入力すると、一致したテーブルA name の code を Bcode　へ自動反映したいのですが、やり方が解りません。。 どのようにすれば反映させることが出来るでしょうか？ よろしくお願い致します。

普段はリボンを使用しないDBで、レポートが開いたときにだけリボンを表示させています。 その際、リボンが常に開いた状態にしたいのですが、 DoCmd.ShowToolbar "Ribbon", acToolbarYes SendKeys "^{F1}", True この記述だと、レポートを開き直すごとにリボンが閉じたり開いたりします。 常にリボンが開いた状態でレポートを開きたいのですが、 どうすればよいでしょうか？ ちなみにレポートを閉じるときに下記コードでリボンは非表示に戻しています。 DoCmd.ShowToolbar "Ribbon", acToolbarNo

普段はリボンを使用しないDBで、レポートが開いたときにだけリボンを表示させています。 その際、リボンが常に開いた状態にしたいのですが、 DoCmd.ShowToolbar "Ribbon", acToolbarYes SendKeys "^{F1}", True この記述だと、レポートを開き直すごとにリボンが閉じたり開いたりします。 常にリボンが開いた状態でレポートを開きたいのですが、 どうすればよいでしょうか？ ちなみにレポートを閉じるときに下記コードでリボンは非表示に戻しています。 DoCmd.ShowToolbar "Ribbon", acToolbarNo

普段はリボンを使用しないDBで、レポートが開いたときにだけリボンを表示させています。 その際、リボンが常に開いた状態にしたいのですが、 DoCmd.ShowToolbar "Ribbon", acToolbarYes SendKeys "^{F1}", True この記述だと、レポートを開き直すごとにリボンが閉じたり開いたりします。 常にリボンが開いた状態でレポートを開きたいのですが、 どうすればよいでしょうか？ ちなみにレポートを閉じるときに下記コードでリボンは非表示に戻しています。 DoCmd.ShowToolbar "Ribbon", acToolbarNo

■アクセスのフォームにて、複数の条件を入力し、合致するリストをエクセルで出力する 　　データベースを構築しようとしています。 　⇒この複数の条件を入力する件に関し質問です。 ■目的は、顧客からのアンケート回答結果をDBから取出し、エクセルにて解析を行う事です。 　情報量が膨大であるため、セグメントした形で出力し効率を上げたいと考えています。 ○テーブルのフィールド構造： 　　支店（テキスト型）、顧客No（数値型）、顧客名（テキスト型）、質問１（数値型）、質問２、・・・ 　 ○フォーム「データ抽出」の構造： [支店名１][支店名２] [顧客No１][顧客No２] [顧客名１][顧客名２] 　　　　　　【出力ボタン】 ※上記テキストボックスいずれかに入力された条件に合致するデータが 　　　　　　　　　【出力ボタン】を押すとエクセルに出力されるという構造です。　　 　　　　　　　※ボタンのイベントに「抽出マクロ」を設定。 ○抽出クエリ： 支店 [Forms]![データ抽出]![支店名１]　 Is Null [Forms]![データ抽出]![支店名２]　 Is Null 顧客No [Forms]![データ抽出]![顧客No1]　 Is Null [Forms]![データ抽出]![顧客No2]　 Is Null 企業名 like "*" &[Forms]![データ抽出]![顧客名１]& "*" Is Null like "*" &[Forms]![データ抽出]![顧客名２]& "*" Is Null 　　　　　　　　　　　　　 ○マクロ（抽出マクロ）： 　クエリを開く　（抽出クエリ） 　コマンドの実行（エクセルに出力） 　閉じる　（抽出クエリ） と設定しました。そこで実行確認すると・・・・ 　（例） 　　　　(1)支店名１だけに入力して、他は空欄で出力ボタンを押下。 　　　　⇒条件セグメントされず、全てのデータがエクセル出力されてしまう。 　　　　(2)全ての項目に入力して出力ボタンを押下 　　　　⇒条件セグメントされたデータがエクセル出力される。 　という現象が起こりました。 　例示(2)は良いとして、(1)の様な空欄がある状態でも、条件にマッチした出力をしたいのですが上手くいいかず困っています。 　　　尚、クエリの抽出条件を支店フィールドだけにした所・・ 支店 　[Forms]![データ抽出]![支店名１]　 　Is Null 　[Forms]![データ抽出]![支店名２]　 　Is Nul 支店名１に入力して支店名２は空欄であっても条件にマッチした出力結果が得られました。 長文恐縮でございますが、どなたか解決法をご教授いただきたく存じます。よろしくお願いいたします。

いつもお世話になっております。 Windows XP(SP3) 上でAccess 2003 SP3を利用しているのですが クエリで"\"(半角円マーク)をWhere句に指定した際に 半角・全角とも抽出してしまい困っています。 回避策をご存知であれば教えてください。 ■サンプルデータ テーブル名を「テーブル1」登録データは次とします。 番号　　名前(テキスト型)　　　　説明 ----　---------------------　　----------------- 　１　ああああ￥ああああ　　　#全角の円マーク 　２　ああああ\ああああ　　　　#半角の円マーク ■作成したクエリ SQLビューでいうと次になります。 SELECT 番号,名前 FROM テーブル1 WHERE 名前 Like "*\*" 【結果】 番号　　名前(テキスト型)　　　　説明 ----　---------------------　　----------------- 　１　ああああ￥ああああ　　　#全角の円マークもヒットする 　２　ああああ\ああああ　　　 ■他に試したSQL (1)全角を明確に除外 SELECT テーブル1.番号, テーブル1.名前 FROM テーブル1 WHERE (((テーブル1.名前) Like "*\*" And (テーブル1.名前) Not Like "*￥*")); ＞＞【結果】該当件数０件となりいずれもヒットしない (2)円マークをchrで指定 SELECT テーブル1.番号, テーブル1.名前 FROM テーブル1 WHERE 名前 Like ("*" & chr(92) & "*") ＞＞【結果】２件ともヒット