Gin_F の回答履歴

フォーム１から「年度」を入力してテーブルから検索結果をレポートへ表示。 その中に「フィールド１」という項目があります。 この「フィールド１」の項目の数を数えたいのですが、条件が、 ●上記のフォームから入力した年度であること ●「フィールド１」の値が「１」であるもの を数えたいのです。 2つ目の条件だけでしたら =DCount("フィールド１","T_印刷用テーブル","フィールド１=2") のようにできるのですが… 式でもモジュールでもかまいませんので教えてください。

フォーム１から「年度」を入力してテーブルから検索結果をレポートへ表示。 その中に「フィールド１」という項目があります。 この「フィールド１」の項目の数を数えたいのですが、条件が、 ●上記のフォームから入力した年度であること ●「フィールド１」の値が「１」であるもの を数えたいのです。 2つ目の条件だけでしたら =DCount("フィールド１","T_印刷用テーブル","フィールド１=2") のようにできるのですが… 式でもモジュールでもかまいませんので教えてください。

アクセスの単票フォームが１件しか表示されなくなってしまいました。 どうすれば直りますか？

フォーム１から「年度」を入力してテーブルから検索結果をレポートへ表示。 その中に「フィールド１」という項目があります。 この「フィールド１」の項目の数を数えたいのですが、条件が、 ●上記のフォームから入力した年度であること ●「フィールド１」の値が「１」であるもの を数えたいのです。 2つ目の条件だけでしたら =DCount("フィールド１","T_印刷用テーブル","フィールド１=2") のようにできるのですが… 式でもモジュールでもかまいませんので教えてください。

アクセスの単票フォームが１件しか表示されなくなってしまいました。 どうすれば直りますか？

ACCESS97を使用しています。 フォーム上のボタンで、並び替えを実行したいのです。 対象フォームは、あるデータ(テーブル名:AAA)の 項目BBと項目CCの条件を使って選択クエリーGG　を元に 帳票フォームで表示しています。 フォームFFF上には、BBと　CCの入力テキストBOX、BB,CCがあるととします。 BBとCCでフィルタをかける場合、 DoCmd.ApplyFilter "", "[GG]![BB] =[Forms]![FFF]![BB]" & _ "AND [GG]![CC]= [Forms]![FFF]![CC]" というマクロでフィルタ実行されたデータが表示されますが、 項目BB、CCで、昇順、降順にソートしたい場合、 そのようなマクロはあるのでしょうか？ 宜しくお願いします。

元となるAccessテーブルはあります。 そこに、ExcelからTransferSpreadSheetメソッドを使って、フィールド挿入という形が出来ますでしょうか。 指定したExcelデータじたいのインポートは出来てますけど、挿入となるとさっぱり分かりません。 (Win2000/Access2000/Excel2000) 現在の書き込みは以下のとおりです。 Function ExcelDataImport() On Error GoTo Err_コマンド1_Click Dim varac As Variant Dim varxls As Variant Dim strrange As string Dim strmsg As string varac = "既存テーブル" varxls = "C:\Temp\EX.xls" strrange = "(A1:A1000)" DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, varac, varxls, True, strrange (エラーメッセージ定義が続く) End Function --------------------------------------------------Private Sub Excelin_() Call ExcelDataImport End Sub

いつも色々な方々に大変お世話になっております。 今回は見積書というフォームの中に、得意先一覧というサブフォームがあり、その得意先一覧にはもちろん得意先の名前があります。 現時点では、見積書フォーム内の得意先名レコードにコンボボックスを設置して選べるようにしてあります。 これを得意先一覧サブフォームの中から、見積書フォーム内の得意先レコードに表示させたい、得意先名をダブルクリックすると転記されるようするのは可能でしょうか？ 宜しくお願いします。

元となるAccessテーブルはあります。 そこに、ExcelからTransferSpreadSheetメソッドを使って、フィールド挿入という形が出来ますでしょうか。 指定したExcelデータじたいのインポートは出来てますけど、挿入となるとさっぱり分かりません。 (Win2000/Access2000/Excel2000) 現在の書き込みは以下のとおりです。 Function ExcelDataImport() On Error GoTo Err_コマンド1_Click Dim varac As Variant Dim varxls As Variant Dim strrange As string Dim strmsg As string varac = "既存テーブル" varxls = "C:\Temp\EX.xls" strrange = "(A1:A1000)" DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, varac, varxls, True, strrange (エラーメッセージ定義が続く) End Function --------------------------------------------------Private Sub Excelin_() Call ExcelDataImport End Sub

縮小サイズのフォームでコマンドボタンを作成し、ハイパーリンクでExcelファイルを開きたいのですが、縮小サイズで、Excelファイルが開いてしまいます。どうしたらよいのでしょうか？ 試みたこと コマンドボタン→イベント→フォーカス取得時→最大化のマクロであれば、Excelファイルは最大化表示になっているのですが、閉じるとフォームまでもが最大化になってしまいます。分かる方、宜しくお願いします。

グループ化を利用したクエリからレポートを作成したのですが、 野菜 　 品名　　判定　　 　トマト　　優　 　レタス　　良 　　　２件←ここの件数を表示したいのです。 　　　50％←ここに「優」率も表示したいです 果物 　品名　　　判定 　メロン　　良 　すいか　　良 　みかん　　優 　　　３件←ここの件数を表示したいのです。 　　　33.3％←ここに「優」率も表示したいです 以下順にクエリのデータを表示させる 質問を理解して頂けますでしょうか？ 助けてください。お願い致します。 　　　　

元となるAccessテーブルはあります。 そこに、ExcelからTransferSpreadSheetメソッドを使って、フィールド挿入という形が出来ますでしょうか。 指定したExcelデータじたいのインポートは出来てますけど、挿入となるとさっぱり分かりません。 (Win2000/Access2000/Excel2000) 現在の書き込みは以下のとおりです。 Function ExcelDataImport() On Error GoTo Err_コマンド1_Click Dim varac As Variant Dim varxls As Variant Dim strrange As string Dim strmsg As string varac = "既存テーブル" varxls = "C:\Temp\EX.xls" strrange = "(A1:A1000)" DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, varac, varxls, True, strrange (エラーメッセージ定義が続く) End Function --------------------------------------------------Private Sub Excelin_() Call ExcelDataImport End Sub

縮小サイズのフォームでコマンドボタンを作成し、ハイパーリンクでExcelファイルを開きたいのですが、縮小サイズで、Excelファイルが開いてしまいます。どうしたらよいのでしょうか？ 試みたこと コマンドボタン→イベント→フォーカス取得時→最大化のマクロであれば、Excelファイルは最大化表示になっているのですが、閉じるとフォームまでもが最大化になってしまいます。分かる方、宜しくお願いします。

Ａｃｃｅｓｓ２００２です。フォームにコマンドボックスを作りそれにマクロを貼り付けて使用しています。このコマンドボックスの色がＡｃｃｅｓｓ特有のグレーで気に入らないのですがこれを変える方法はあるのでしょうか。よろしくお願いします。

期間の抽出マクロにおいて、入社日と退職日の年数計算をするときに、退職日が未入力の場合（現職の方）、入社日から本日までの在職年数を計算する方法を教えてください。 入社日と退職日が両方とも入っている場合は計算できるのですが、退職日が未入力の場合はエラーと表示されます。よろしくお願いします。

期間の抽出マクロにおいて、入社日と退職日の年数計算をするときに、退職日が未入力の場合（現職の方）、入社日から本日までの在職年数を計算する方法を教えてください。 入社日と退職日が両方とも入っている場合は計算できるのですが、退職日が未入力の場合はエラーと表示されます。よろしくお願いします。

次のようなクエリがあります。 ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿ 顧客ID、顧客名、生年月日、年齢、商品ID、商品名 ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿ 上記のクエリをもとに、商品名ごとで年代（10代、20代・・・・）ごとの集計を出したいのですがうまくいきません。 結果的には、下記のように表示させたいのですが。 ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿ 　　　１０代　２０代　３０代　４０代 商品Ａ　１　　１０　　　０　　　５ 商品Ｂ　０　　　０　　　０　　　０ 商品Ｃ　１　　　２　　　５　　　０　　 商品Ｄ　２　　　１　　　４　　　５ ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿　　　 クロス集計クエリを使ってみましたが、下記のようになってしまいます。 ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿ 　　　１１歳　１２歳　１３歳　２１歳 商品Ａ　１　　１０　　　０　　　５ 商品Ｂ　０　　　０　　　０　　　０ 商品Ｃ　１　　　２　　　５　　　０　　 商品Ｄ　２　　　１　　　４　　　５ ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿　 どなたか教えてください。お願いします。

イベントプロパティに提案した式エラー時でエラーが発生 しました。オートメーションエラーです。 ※マクロ名、ユーザー定義関数名、「イベントプロシージャー」 　以外の式が指定されています。 ※関数、イベント、マクロの評価でエラーが発生しました。 Praivate　sub cmdSansyo_Click() ctlCommonDialog.lnitDir = "c:\支部会計" ctlCommonDialog.fileName = "Zai30.mdb" ctlCommonDialog.Filter = "財務会計システム(Zai30.MDB")Zai30.mdb" ctlCommonDialog.Filterlndex = 2 ctlCommonDialog.ShowSave [保存先] = ctlCommonDialog.fileName End Sub access97のフォーム画面で、ボタンをクリックすると上記の エラーメッセージが出ます。他のＰＣでやるとうまくいきます。 ＰＣの環境がおかしいのでしょうか？ 教えてください

データシート形式のフォームを作成しました。 ビューした時に、各項目の表示サイズを調整したいのですが・・・。 すべて同じサイズで表示されてしまいます。 項目によっては小さくしたり、大きくしたりと調整したいのですが・・・。 よろしくお願いします。

こんにちは。 いつもお世話になってます。 サブフォームで、帳票フォームを作成して金額の合計が出るようにSUMで式を作ってます。 ここまではいいのですが、入力の時マイナスの数値を入れた時、今の式だとマイナスされます。 それを、マイナスの数値の合計　と　マイナス以外（0<=）の合計としたいのですが・・・。可能でしょうか？ マイナスの数値合計　の表示をマイナス表示にならないようにもしたいのですが・・・。 お願いします。