教えてください。
Accessで資格取得一覧を作成しようと考えています。
レコードは1レコード/社員です。
同じ資格の取得者については、名前のみ表示させようとしています。
1レコード1行では見た目も良くないですし、スペースももったいないので
1行に複数のレコード(氏名)を表示させたいのですが、その方法が
わかりません。
仕事で期限もあるので結構あせっています。
どなたか詳しい方、お力添えを宜しくお願いします。
バージョンはAccess97です。

このQ&Aに関連する最新のQ&A

A 回答 (1件)

メニューの「ファイル」→「ページ設定」を選択し、


「レイアウト」タブで「列数」を2以上に設定して下さい。
    • good
    • 0
この回答へのお礼

ありがとうございます。
ページやレポートのプロパティの設定ばかりを探していました。
思った通りのレポートができました。感謝します。

お礼日時:2002/04/10 18:48

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

このQ&Aと関連する良く見られている質問

QAccess 97 VBAについて

Access VBAについて教えてください。
初心者ですが、レポートに表示されるテキストボックスの”項目名”と”内容”プロパティーに重複データ非表示にしています。そして、非表示となった部分に”〃”を表示するため別のテキストボックス、”隠しオブジェクト1”及び”隠しオブジェクト2”を配置しています。???にどんな記述が必要かわかりません。”項目名”だけであれば問題なく表示されるのですが”内容”についても同様に処理したいのです。
どうぞ宜しくお願いいたします。


Option Compare Database
Option Explicit
'値を保持するために外側に変数を定義します。
Dim varA As Variant
---------------------------------------------------
Private Sub 詳細_Print(Cancel As Integer, PrintCount As Integer)
  If Me.項目名 = varA Then
   Me.隠しオブジェクト1.Visible = True
Else
Me.隠しオブジェクト1.Visible = False
End If
varA = Me.項目名

????

If Me.内容 = varA Then
Me.隠しオブジェクト2.Visible = True
Else
Me.隠しオブジェクト2.Visible = False
End If
varA = Me.内容
End Sub

Access VBAについて教えてください。
初心者ですが、レポートに表示されるテキストボックスの”項目名”と”内容”プロパティーに重複データ非表示にしています。そして、非表示となった部分に”〃”を表示するため別のテキストボックス、”隠しオブジェクト1”及び”隠しオブジェクト2”を配置しています。???にどんな記述が必要かわかりません。”項目名”だけであれば問題なく表示されるのですが”内容”についても同様に処理したいのです。
どうぞ宜しくお願いいたします。


Option Compare Database
Option Expl...続きを読む

Aベストアンサー

VBAもなにも要りません
="〃"
としたテキストボックスの上に重複データ非表示としたテキストボックスを重ねておくだけでOKです

QACCESSマクロ、Me![氏名] その他について

ACCESSの勉強をしています。temp = Me![氏名] その他がわかっていません。
わかりやすく教えていただけますか?

(1)下記のマクロにて、temp=Me![氏名]ではOK,
   temp=DataTable![氏名]、temp=DataTable!氏名、temp=DataTable.氏名ではNG
   この理由?
(2)下記のマクロにて、DoCmd.GoToControl "氏名"のラインが無くても正常に動きます。
   これの理由?

基本情報:
 テーブル名:「データテーブル」--フィールド「氏名」,「通番」を持つ
 フォーム名:「DataTable」--「データテーブル」をソースとし、フィールド「氏名」,「通番」を持つ。
 フォーム上のボタン名:「実行」(on click)
        
Private Sub 実行_Click()
DoCmd.GoToRecord acForm, "DataTable", acFirst
Do While [NewRecord] = False
DoCmd.GoToControl "氏名" '----このラインがなくても正常に動く
temp = Me![氏名]
' temp = DataTable![氏名]----これではうまく行かない
' temp = DataTable!氏名 -----これでもうまく行かない
' temp = DataTable.氏名 -----これでもうまく行かない

'うまく行くとは、tempにきちんとデータが取りこまれる。うまく行かないとは、 Object Requiredとしかられます。

Me![通番] = 1
DoCmd.GoToControl "氏名" '----このラインがなくても正常に動く

DoCmd.GoToRecord acForm, "DataTable", acNext
Loop

(マクロで何をやろうとしているかは意味がありませんので、無視してください)
End Sub

よろしくお願い致します。

ACCESSの勉強をしています。temp = Me![氏名] その他がわかっていません。
わかりやすく教えていただけますか?

(1)下記のマクロにて、temp=Me![氏名]ではOK,
   temp=DataTable![氏名]、temp=DataTable!氏名、temp=DataTable.氏名ではNG
   この理由?
(2)下記のマクロにて、DoCmd.GoToControl "氏名"のラインが無くても正常に動きます。
   これの理由?

基本情報:
 テーブル名:「データテーブル」--フィールド「氏名」,「通番」を持つ
 フォーム名:「DataTable」--「データ...続きを読む

Aベストアンサー

Rich53さんとともに、No.1575853で回答した者です。

(1)下記のマクロにて、
オブジェクト名を指定する場合(→「DataTable![氏名]」の場合)は、それがどの種類のオブジェクトであるかを明示する必要があります。
「DataTable!氏名」を「Forms!DataTable!氏名」と指定してやれば、問題は解消すると思います。
なお、Meを使用した場合は、そのイベントが起動したオブジェクト上で、指定されたコントロールを探すため、FormsやReportsといった指定は不要(無用)になります。また、その方が処理も速くなるそうです。
詳しくはヘルプを参照下さい。私のはその「うろ覚えの受け売り」なので(汗)

(2)下記のマクロにて、
特にコントロール移動を指定しない場合は、「タブストップ」がTrueに設定されたコントロールのうち、最も「タブ移動順」が早いものがフォーカスを受け取ります。
指定しなかったからと言って、エラーにはなりません。

但し、続く操作が、「貼付(Paste)」など、フォーカスを受けたコントロールに対してのものだった場合などは、話がかわります。
私がNo.1575853で出した例の場合も、サブフォームでレコード移動をさせるために、そのサブフォーム内のコントロールに移動させてから、オブジェクト指定なしでGoToRecordを実行させています。
(これは、私がサブフォームのレコード移動の方法を、他に知らないためです(汗))

Rich53さんとともに、No.1575853で回答した者です。

(1)下記のマクロにて、
オブジェクト名を指定する場合(→「DataTable![氏名]」の場合)は、それがどの種類のオブジェクトであるかを明示する必要があります。
「DataTable!氏名」を「Forms!DataTable!氏名」と指定してやれば、問題は解消すると思います。
なお、Meを使用した場合は、そのイベントが起動したオブジェクト上で、指定されたコントロールを探すため、FormsやReportsといった指定は不要(無用)になります。また、その方が処理も速くなるそうで...続きを読む

Qexcel97で1ページだけ印刷したい。複数シートで・・

こんにちは。
excel97で1シート辺り4ページの印刷数になってしまうファイルで、
1ページ目だけ印刷したいのですが、シート数がかなり多いため一括で行いたいと
思っております。
複数シート選択→メニュー→印刷→ページ指定→開始1→終了1
上記では出来ないようですが、何か方法は有りませんか?

また、複数シートの印刷範囲設定を一括で変更出来ればそれでも良いのですが・・
宜しくお願いいたします。


EXCEL97 SR-1

Aベストアンサー

マクロしか思いつきませんでした。

シートタブで、印刷したいシートを複数選択して、下のマクロを実行します。

ツール→マクロ→Visual Basic Editor でVBE画面に移り、挿入→標準モジュールで標準モジュールを挿入します。
出てきたコードウインドウに下記コードをコピーして貼りつけます。

やっている事は、質問、そのままの事です。『選択したシートを最初の頁だけ印刷する』をコード化しています。

Sub SelectedSheetPrint1pg()
  Dim ws As Worksheet 'ワークシート

  For Each ws In ThisWorkbook.Windows(1).SelectedSheets
    ws.PrintOut From:=1, To:=1
  Next
End Sub

QAccessで差分取得する方法は? LEFT JOIN エラー

Accessで差分抽出するSQLを教えてください。

【旧テーブル】t1
id, class, number, value
1, "a", 1, "aka"
2, "a", 2, "aki"
3, "a", 3, "aku"

【新テーブル】t2
id, class, number, value
1, "a", 1, "aka"
2, "a", 2, "更新"
3, "a", 3, "aku"
4, "a", 4, "新規"
5, "b", 1, "新規"

【ダメだったクエリ】
SELECT t2.*
FROM t2 INNER JOIN t1
WHERE t1.class IS NULL OR t1.number IS NULL

【望む結果】
4, "a", 4, "新規"
5, "b", 1, "新規"

*列 id は各テーブルの主キーですが、新旧テーブル間の関連はありません(リレーションではありません)。

Aベストアンサー

また違ってましたね。

SELECT T2.*
FROM T2 LEFT JOIN T1 ON T2.number = T1.number AND T2.class = T1.class
WHERE T1.class Is Null OR T1.number Is Null

QAccess ADP テーブル 説明欄を取得したい

大変お世話になります。

Access 2007 ADPファイルにて SQL Server 2005 との接続でのシステムを運用しています。
テーブル情報のフィールド説明欄(Description) の値の一覧を取得したいと思い下記のプログラムを作ってみたのですが、Descriptionの値以外はおおむね取得できるのですが、説明欄のところがすべてエラーになってしまい説明欄の Description の取得ができません。
格納場所か、プロパティの参照の仕方が原因だと思うのですが、解決できません。

テーブルの説明欄(Description)値の参照の仕方をご存じの方がいらっしゃいましたら何卒ご教授いただければと存じます。
よろしくお願いいたします。

    Dim Cn As ADODB.Connection
    Dim Rs As New ADODB.Recordset
    Dim SQL As String
    Dim i As Integer
    
    Set Cn = CurrentProject.Connection
    
    SQL = " SELECT dbo.テーブルA.* "
    SQL = SQL & " FROM dbo.テーブルA"

    Dim MyDB As New ADOX.Catalog
    Dim MyTable As ADOX.Table
    Dim MyField As ADOX.Column

    MyDB.ActiveConnection = CurrentProject.Connection
    Set MyTable = MyDB.Tables("テーブルA")
    
    Rs.Open SQL, Cn, adOpenForwardOnly, adLockReadOnly

        For i = 0 To Rs.Fields.Count - 1
            MsgBox Rs.Fields(i).Name
                       
            'MsgBox MyTable.Columns(Rs.Fields(j).Name).Properties("Description").Value
            MsgBox Rs.Fields(i).Properties("Description").Value

            MsgBox Rs.Fields(i).ActualSize
            MsgBox Rs.Fields(i).Attributes
            'MsgBox Rs.Fields(i).DataFormat
            MsgBox Rs.Fields(i).DefinedSize
            MsgBox Rs.Fields(i).NumericScale
            'MsgBox Rs.Fields(i).OriginalValue
            MsgBox Rs.Fields(i).Precision
            
            'MsgBox Rs.Fields(i).Properties("Description")
                        
            MsgBox Rs.Fields(i).Status
            MsgBox Rs.Fields(i).Type
            'MsgBox Rs.Fields(i).UnderlyingValue
            MsgBox Rs.Fields(i).Value
        
        Next

    Set MyDB = Nothing

    Rs.Close
    Set Rs = Nothing
    Cn.Close
    Set Cn = Nothing
    Exit Sub

大変お世話になります。

Access 2007 ADPファイルにて SQL Server 2005 との接続でのシステムを運用しています。
テーブル情報のフィールド説明欄(Description) の値の一覧を取得したいと思い下記のプログラムを作ってみたのですが、Descriptionの値以外はおおむね取得できるのですが、説明欄のところがすべてエラーになってしまい説明欄の Description の取得ができません。
格納場所か、プロパティの参照の仕方が原因だと思うのですが、解決できません。

テーブルの説明欄(Description)値の参照の仕方...続きを読む

Aベストアンサー

WHERE句の条件を設定?JOINの・・?かな?と思いますが、
ごめんなさい。私にゃ無理です。
こちらを閉じて、カテゴリを技術者向け→データベース→SQLServer にて
ご相談されるか、

餅は餅屋に
http://social.msdn.microsoft.com/Forums/ja-JP/home?forum=sqlserverja
でお尋ねされては?
全否定するつもりはありませんが、マルチポストはご遠慮くださいね。


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング

おすすめ情報