Gin_F の回答履歴

フォームを作成したいのですが、フォームビューを開いても何も表示されないのですが。。。。レコードソースにテーブルを指定してあげると表示されるのですが、作成したクエリーを指定すると表示されません。リレーションシップはちゃんと作ってあります。基本的な質問ですが、ご回答よろしくお願いします。

フォームを作成したいのですが、フォームビューを開いても何も表示されないのですが。。。。レコードソースにテーブルを指定してあげると表示されるのですが、作成したクエリーを指定すると表示されません。リレーションシップはちゃんと作ってあります。基本的な質問ですが、ご回答よろしくお願いします。

Access2002を使っています。 データシートビューでフィールドを移動していましたが、移動できないフィールドもあります。これはどうしてでしょうか？ 数値型などはフィールドを移動できないのでしょうか？ 教えてください。

困っています。どなたかご存知の方がいらっしゃいましたらお願いしますm_ _m (1)Ａクエリ(選択クエリ)とＢテーブルを削除クエリでつなぐ(結合プロパティはＡクエリ全件から→Ｂ) (2)　(1)の削除クエリは、　Ｂ全件から(From B*) Ｂのフィールド40列ぐらい（数値列）を落とし、　（Ｗhere　条件「0」←数値ゼロをいれる） (3)削除クエリを実行すると、「複雑すぎて実行できません。」というエラーメッセージがでてきて実行できません。何か駄目なのでしょうか？ やりたいことは、 Ｂテーブルを、 Ａクエリにあるレコードは抽出し、のちフィールドの値が0のものは削除したいのです。 よろしくお願いします。

よろしくお願いします。 y年m月の月末日を求めるとき、ワークシート関数(EOMONTHを使わないとして)では、 =date(y,m+1,1)-1 　　　　翌月１日の前日 として求められますが、VBAではどのように書くのでしょうか？VBAで使えそうな日付関数を調べたのですが、よくわかりませんでしたので。

アクセスのＤＢに テーブル（Ｔ1：レコードが100件） フォーム（Ｆ1） フォーム（Ｆ2） があります。 F1、F2はT1のデータがリンクされています。 F1を開き(全部で100件)、 フィルタをかけ（20件になる） そのままF1を開いた状態でF2を開くと、 F1でフィルタをかけた状態（20件）で表示させるには どうすればよいでしょうか。

アクセスのＤＢに テーブル（Ｔ1：レコードが100件） フォーム（Ｆ1） フォーム（Ｆ2） があります。 F1、F2はT1のデータがリンクされています。 F1を開き(全部で100件)、 フィルタをかけ（20件になる） そのままF1を開いた状態でF2を開くと、 F1でフィルタをかけた状態（20件）で表示させるには どうすればよいでしょうか。

ACCESS2003でフォームを作り、時間（２桁）を入力するようにしています。 クエリーを経由していますが、基となるテーブルの型はテキスト型２桁です。 時間は01から24までで 24以上なら入力しなおし、"1"なら01、という風に簡単にエラーメッセージを出したり、内部で変換したりする方法あったら教えてください。 ちなみに現在は If Len([相談時間_開始時]) = 1 Then Me.相談時間_開始時 = "0" & Me.相談時間_開始時 End If If Len([相談時間_開始時]) > 2 Then MsgBox ("相談開始時が３桁以上です") [相談時間_開始時].SetFocus Exit Sub End If のようにフォーカス喪失時にVBでチェックをかけています。

ACCESS2003でレポートを作ろうとしています。 レポートは、いくつかの表から成り立ち、１枚のレポートに、異なるクロス集計クエリーを、そのまま表にして、いくつか印字させようと思っています。 どうすればいいか思いつきません。ご存知の方おられたらよろしくお願いします。

いつも大変お世話になっています。 この度 Access2003で作業することになったのですが、 今まで、Access2000 か 97、95 でのみ作業経験があります。 Access2000と2003では大きな違いは無いように思うのですが、 モジュールコーディングやフォームのテキストのコントロールソースの指定など 2000で出来たものが2003では出来なくなってしまいました。 例：フォームオブジェクトの値の参照 Ver.2000 If IsNull(Me!テキスト1.Value) = True Then '.ValueはつけなくてもＯＫだが、つけても問題ない End if Ver.2003 If IsNull(Me!テキスト1) = True Then '.Valueをつけるとエラーになる End if といった大きな差異とはあまり思ってないのですが、 その他になにか違いがあるなら知っておきたいと思いました。 WEBで検索しましたところ、特に見当たらず、 経験などで構いませんので教えていただけると嬉しいです。 又、Access2003 をメインにしているおすすめのサイトなどがありましたら これも教えていただけると嬉しいです。 自分なりにも実際にVer.2003をいじりながら覚えていきたいと思っています。 よろしくご教授お願いいたします。

アクセスのフォームからデータを入力した時に一枚一枚印刷する必要が大量にあるのですが、「印刷」　-　「ページ範囲」で「選択したレコード」を選択して印刷するより簡単な方法はありますか。

テキストファイルをAccessにリンクしたなのですが、余分な空白（スペース）があります。 クエリを使ってこの余分な空白（スペース）を削除できるような関数はありませんでしょうか。 宜しくお願いしますm（_ _）m

　ACCESS2002で会員管理を行なっております。 今回紹介者と紹介された会員をツリー表示で グループ分けしたいと思いますが、良い方法 が有りますか？ データベース初心者です。

　ACCESS2002で会員管理を行なっております。 今回紹介者と紹介された会員をツリー表示で グループ分けしたいと思いますが、良い方法 が有りますか？ データベース初心者です。

Accessを使って簡易ツールを作成したのですが、突然次のようなエラーメッセージが出てツールが起動しなくなってしまいました。解消方法を教えてください。ツールに入れたデータだけでも最悪取出したいのですがよろしくお願いします。 －　エラーメッセージ　－ オブジェクト’MSysDb’が見つかりませんでした。オブジェクトが存在していること、名前やパス名が正しいことを確認してください。

Access2002を使用しています。 ツール→OfficeLinksでWordまたはExcelに出力させた時、Accessで表示しているように出力できるようにする方法があれば、ご教授願います。 出力はできるのですが見た目が変わってしまうので、Accessで表示している通りに出力できればと思うのですが…。

社内で使っているACCESSに問題が発生しておりますが、 その対処方法がどうしても見つからず困っています。 既存のデーターベースの構造の問題点などを 見てくれる業者さんなんているんでしょうか？ おりましたら名前やホームページなどを教えてください。

現在、アクセスでテーブルを作成しました。テーブルは患者テーブルという名前でデータはID、名前、年齢です。フォームにはID、名前、年齢のフィールドを作成しました。IDのフィールドに、ID番号を入力し患者テーブル テーブルのID番号と一致すれば、名前と年齢を自動的に表示させるモジュールを作成したいのですが、どのように作成すればいいでしょうか？ご教示頂ければ幸いです。

アクセスでカラム名を変えるようなコマンドを知りたくて 今回質問させていただきました。 自分で途中まで考えたのですが ALTER TABLE テーブル名　ALTER カラム名 これ自体もあっているのかわかりませんが・・・ どなたかご存知でしたら教えていただけないでしょうか 宜しくお願いします。

この質問は、No.1575853、No.1584218をベースとします。 テーブルをソートして、特定のフィールドに通番をいれるVBAはできました。 これは、フォームにボタンを設定して、イベントプロシージャ ADO(またはDAO)を使って裏の世界で処理してしまうものです（下記VBA参照） これを、表の世界で表示させながら実現したのです。 －フォームにテーブルをもってくるには、エクセルのような「Datasheet」形式か、「Tabular」形式等がある。 －「Tabular」形式では、先頭に空間を持たせて、そこにボタンを設定できるが、 　「Datasheet」形式では、デザインビューでボタンを設定できても、実行画面ではボタンは表示されない。 －ADO(またはDAO)は裏の世界でのものであり、表の世界でリアルタイムで反映表示する方法はわかっていない。 今回の質問は、 （１）テーブルを開いて、何らかの方法で、VBAを起動して、結果を得る方法 （２）フォーム上にボタンと「Datasheet」形式でデータを表示し、裏の世界(ADO)と表の世界 (見えているテーブル)とリアルタイムでリンクさせる方法。 ２つについて、よろしくお願い致します。 -- Public Sub 実行2_Click() Dim Cn As ADODB.Connection Dim Rs As ADODB.Recordset Dim Cnt As Long MyCount = 1 Set Cn = CurrentProject.Connection Set Rs = New ADODB.Recordset Rs.CursorLocation = adUseClient Rs.Open "[データテーブル]", Cn, adOpenKeyset,adLockOptimistic Rs.Sort = "[氏名] ASC,[データ] ASC" '並べ替え temp = "" Do Until Rs.EOF If temp <> Rs![氏名] Then MyCount = 1 Else MyCount = MyCount + 1 End If temp = Rs![氏名] Rs![通番] = MyCount Rs.Update Rs.MoveNext '次のレコードに移動 Loop Rs.Close: Set Rs = Nothing Cn.Close: Set Cn = Nothing End Sub