DexMachina の回答履歴

私は揚げ物をして油切りをするとき、 キッチンペーパーが無い場合、 よくコーヒーフィルターを代用します。 無漂白の天然パルプのコーヒーフィルターです。 今まであまり気にせずにいたのですが、 お湯の温度と油の温度は違うのに、 揚げたての食べ物をコーヒーフィルターの上に乗せて 油切りするのは良くないのかも？と気になり相談させて頂きました。 また、コーヒーフィルターに油を染み込ませ、 熱したフライパンに油ひきとして使用することもあります。 紙とはいえ、このような使用の仕方は体に良くなかったりするのでしょうか。 用途以外に使用していた私が悪いのですが、 もし問題無いならコーヒーフィルターの代用は便利なので、 この方法を使用できたらいいなと思っています。 宜しくお願い致します。

Access2003上のテーブルをExcel形式に「ワークシート変換」する際、ファイル名に処理日時（now()）をセットする記述方法をお教え下さい。VBではなく、「マクロ」の「ワークシート変換」アクション内の「ファイル名」の記述をお教え下さい。よろしくお願い致します。

失礼します。 ACCESSのテーブルのデータをVBAで編集する仕方がわからなくて困っています。 やりたいことは、フォームを作成してそこに「検索」ボタンを作り テキストボックスに入力した条件をSQLにして検索をかける。 →HITするデータの一覧が表示される。 →修正したいデータを選択する。 →修正画面が表示される。 この時に選択したデータをあらかじめEXCELで作成したフォーマットに 反映して修正できるようにしたいんですが、（フィールドをばらばらに指定したセルに代入するような感じです。）これは可能なんでしょうか？ そもそもレコードセットに格納したデータを視覚的にUSERに認識させてそこからデータを選択するという事が可能なのかもわかりません。 勉強不足で申し訳ありませんがどなたかアドバイスをいただければ幸いです。 一応自分なりに書いてみたんですがいくら調べてもここで止まってしまいます。どこが不備があれば教えてください。 お願いします。 '変数の設定 Dim myDB As DAO.Database Dim myRS As Recordset Dim strSQL As String '検索条件変数の設定 Dim Day As String Dim Sec As String Dim shaNO As String Dim User As String Dim Sis As String Day = テキスト3 Sec = テキスト7 shaNO = テキスト9 User = テキスト5 Sis = テキスト1 '検索条件をSQLに代入 strSQL = strSQL & " SELECT" strSQL = strSQL & ",SM.起票日" strSQL = strSQL & ",SM.社員番号" strSQL = strSQL & ",SM.所属部署" strSQL = strSQL & ",SM.氏名" strSQL = strSQL & ",SM.対象システム" strSQL = strSQL & ",SM.内容" strSQL = strSQL & ",SM.一日当たりの工数" strSQL = strSQL & ",SM.期待効果" strSQL = strSQL & ",SM.改修コスト" strSQL = strSQL & ",SM.改修必要時間" strSQL = strSQL & ",SM.調査開始日" strSQL = strSQL & ",SM.受付担当者" strSQL = strSQL & ",SM.受付日時" strSQL = strSQL & ",SM.調査終了日" strSQL = strSQL & ",SM.障害区分" strSQL = strSQL & ",SM.調査担当者" strSQL = strSQL & ",SM.代替案" strSQL = strSQL & ",SM.対応区分" strSQL = strSQL & ",SM.対応完了日" strSQL = strSQL & ",SM.難易度" strSQL = strSQL & " FROM" strSQL = strSQL & ",T_障害票マスタ SM" strSQL = strSQL & " WHERE" strSQL = strSQL & ",SM.起票日 = &Day& " strSQL = strSQL & ",SM.所属部署 = &Sec& " strSQL = strSQL & ",SM.社員番号 =&shaNO& " strSQL = strSQL & ",SM.氏名 = &User& " strSQL = strSQL & ",SM.対象システム = &Sis& " strSQL = strSQL & "" Set myDB = CurrentDb() Set myRS = myDB.OpenRecordset(strSQL, dbOpenTable)

失礼します。 ACCESSのテーブルのデータをVBAで編集する仕方がわからなくて困っています。 やりたいことは、フォームを作成してそこに「検索」ボタンを作り テキストボックスに入力した条件をSQLにして検索をかける。 →HITするデータの一覧が表示される。 →修正したいデータを選択する。 →修正画面が表示される。 この時に選択したデータをあらかじめEXCELで作成したフォーマットに 反映して修正できるようにしたいんですが、（フィールドをばらばらに指定したセルに代入するような感じです。）これは可能なんでしょうか？ そもそもレコードセットに格納したデータを視覚的にUSERに認識させてそこからデータを選択するという事が可能なのかもわかりません。 勉強不足で申し訳ありませんがどなたかアドバイスをいただければ幸いです。 一応自分なりに書いてみたんですがいくら調べてもここで止まってしまいます。どこが不備があれば教えてください。 お願いします。 '変数の設定 Dim myDB As DAO.Database Dim myRS As Recordset Dim strSQL As String '検索条件変数の設定 Dim Day As String Dim Sec As String Dim shaNO As String Dim User As String Dim Sis As String Day = テキスト3 Sec = テキスト7 shaNO = テキスト9 User = テキスト5 Sis = テキスト1 '検索条件をSQLに代入 strSQL = strSQL & " SELECT" strSQL = strSQL & ",SM.起票日" strSQL = strSQL & ",SM.社員番号" strSQL = strSQL & ",SM.所属部署" strSQL = strSQL & ",SM.氏名" strSQL = strSQL & ",SM.対象システム" strSQL = strSQL & ",SM.内容" strSQL = strSQL & ",SM.一日当たりの工数" strSQL = strSQL & ",SM.期待効果" strSQL = strSQL & ",SM.改修コスト" strSQL = strSQL & ",SM.改修必要時間" strSQL = strSQL & ",SM.調査開始日" strSQL = strSQL & ",SM.受付担当者" strSQL = strSQL & ",SM.受付日時" strSQL = strSQL & ",SM.調査終了日" strSQL = strSQL & ",SM.障害区分" strSQL = strSQL & ",SM.調査担当者" strSQL = strSQL & ",SM.代替案" strSQL = strSQL & ",SM.対応区分" strSQL = strSQL & ",SM.対応完了日" strSQL = strSQL & ",SM.難易度" strSQL = strSQL & " FROM" strSQL = strSQL & ",T_障害票マスタ SM" strSQL = strSQL & " WHERE" strSQL = strSQL & ",SM.起票日 = &Day& " strSQL = strSQL & ",SM.所属部署 = &Sec& " strSQL = strSQL & ",SM.社員番号 =&shaNO& " strSQL = strSQL & ",SM.氏名 = &User& " strSQL = strSQL & ",SM.対象システム = &Sis& " strSQL = strSQL & "" Set myDB = CurrentDb() Set myRS = myDB.OpenRecordset(strSQL, dbOpenTable)

　OpenOffice.orgを使っています。Writerで「"」を選択してEnterを押すと、勝手に「”」や「“」に変換されてしまいます。 　打ちたい文字を打てる様に設定できないでしょうか。 　よろしくお願いします。

下記のソースを実行したところ、「パラメータが少なすぎます。2を指定してください。」というエラーが表示されました。 エラーが発生する箇所は「db.Execute strsql」です。 しかし、このstrsqlに書かれているSQL文をクエリで実行した所、問題なく動作しました。 なんとなく、クエリでは書けるものの、VBAでは書きない所があるのかなと思ったのですが、どのように修正すればよいか分かりませんでした。 その為、上記の現象について、ご教示いただける方がいらっしゃいましたら、よろしくお願いします。 【VBA】 Private Sub btn_Click() Dim db As DAO.Database Dim ws As DAO.Workspace Dim str As String Set ws = DBEngine.Workspaces(0) Set db = CurrentDb ' トランザクション開始 ws.BeginTrans strsql = "INSERT INTO T_W ( W_DAY )" strsql = strsql & "SELECT T_M.M_DAY" strsql = strsql & " FROM T_M" strsql = strsql & " WHERE (((Left([T_M].[M_DAY],4) & Mid([T_M].[M_DAY],6,2) & Right([T_M].[M_DAY],2))" strsql = strsql & " Between IIf(Nz([Forms]![F_1]![text_str])='',0,[Forms]![F_1]![text_end])" strsql = strsql & " And IIf(Nz([Forms]![F_1]![text_str])='',99999999,[Forms]![F_1]![text_end])))" strsql = strsql & " ORDER BY T_M.M_DAY" db.Execute strsql ws.CommitTrans End Sub 【フォーム：F_1】 テキストボックス：text_str テキストボックス：text_end コマンドボタン：btn 【データベース：T_M】 フィールド名：M_DAY 　　　値　　：2001/01/01 　　　値　　：2001/01/02 　　　値　　：2001/01/03 (以下略) 【データベース：T_W】 フィールド名：W_DAY 　　　値　　：なし よろしくお願いします。

accessのVBAでxls形式のファイルを既存のテーブルにインポートしたいんですが、インポートするファイルがテーブル形式になっていない状態（要望票みたいな感じなので不規則にデータが状態）なのでセルをひとつづつ指定して、テーブルに取り込んでいくことは可能なんでしょうか？ どこのサイトを探してもCSV形式からのインポートの方法しか記述されておらずこちらで教えていただければ助かります。 またセルを結合しているのでその場合でもテーブルにインポートは可能なんでしょうか？ よろしくお願いします。

accessのVBAでxls形式のファイルを既存のテーブルにインポートしたいんですが、インポートするファイルがテーブル形式になっていない状態（要望票みたいな感じなので不規則にデータが状態）なのでセルをひとつづつ指定して、テーブルに取り込んでいくことは可能なんでしょうか？ どこのサイトを探してもCSV形式からのインポートの方法しか記述されておらずこちらで教えていただければ助かります。 またセルを結合しているのでその場合でもテーブルにインポートは可能なんでしょうか？ よろしくお願いします。

テーブル１があり、 マクロの新規作成で アクション：再クエリ コントロール名：テーブル1 を作り、 テーブル1を開き、マクロ１を実行しても 「コマンドまたはアクション'再クエリ’は無効です。」 となります。 コントロール名を"テーブル1" にしても同じです。 テーブルに対して再クエリは出来ないのでしょうか？アクセス2003です。 よろしくお願い致します。

WebページをコピーしEXCELワークシートにペーストをすると、図形とともにチェックボックスやテキストボックス等のオブジェクトも貼り付けられました。図形オブジェクトは削除できるのですがその他のオブジェクトの削除方法がわかりません。 ご存知のかたご教授お願いします。

右クリックしても「再クエリ」はありません。 データシートビューから一度デザインビューに切り替え 再度データシートビューにすると再クエリされています。 データシートビューで再クエリしたい場合はこうするしかないですか？（2003）

クエリ１とクエリ２が開いている状態で DoCmd.Requery を実行した場合、 どちらが実行されるのでしょうか？ 実験してみたのですがイマイチよくわからなかったです。

アクセス2003において テーブル名やクエリ名、フィールド名に 【】をつけた場合、（Ｔ【支払】テーブルなど） どういう不都合が起こりますか？ （ｖｂａでエラーになるなど） これから名前づけをするにおいて参考にさせてください。

クエリのデータを変更し、保存ボタンを押さずに DoCmd.Requery を実行するとデータ保存されているようですが Requery は保存もするのでしょうか？ というのは いろいろなコート゛が書かれていて 保存はRequeryの所為なのか、 他のコート゛の所為なのか 正確に知ることが困難です。 よろしくお願い致します。

AccessVBAでテーブル上のレコードを索引する方法を教えて下さい。 テーブルの項目の中に会社コード（文字形式）と個人番号（長整数型）が登録してあります。（他にも項目が登録されています。） 選択クエリで個人番号、会社コードの順に指定してあります。 　 この２つの項目をキーにして検索したいのですが、その具体的な方法を 教えていただけますでしょうか？。（具体的な記述） よろしくお願いします。

WinsowsXP アクセス2007 mdbを立ち上げた時に「ナビゲーション」が非表示になるようにしたいと思います。どうしたらいいでしょうか？ よろしくお願いいたします

初めまして。 仕事にて、EXCELに工程遅延の原因を記入しているのですが、 同じ理由(約50種類あります)を何度も記入する必要があるため、 理由ごとに番号を割り振って、ボタン一つで記入できるようにしたいと思っています。 そこで、下記のようにマクロを作成してみたのですが、 現状では、例えばCells(1, 1)に何かを特記していた場合、 記入後にこのマクロを実行してしまうと、Cells(1, 1)の特記が、 上書きにより消えてしまいます。 そこで、Cells(num, 1)が空白であれば、Cells(num, 1)に上書きする、 という条件を付加したいのですが、可能でしょうか。 EXCELマクロの本を参考に作成しているのですが、 組み合わせの方法が分かりません。 お時間がある方いらっしゃいましたら、 ご検討よろしくお願い致します。 Sub 理由挿入() Dim num As Integer For num = 1 To 100 Select Case Cells(num, 2).Value Case 1 Cells(num, 1).Value = "理由１" Case 2 Cells(num, 1).Value = "理由２" Case 3 Cells(num, 1).Value = "理由３" Case 4 Cells(num, 1).Value = "理由４" End Select Next End Sub

http://oshiete1.goo.ne.jp/qa5082418.html の続きです。よろしくお願いします。 クエリで今日の日付の個数を求めることができました。 今回は、「今日の日付の個数」を をフォーム上のテキストボックスに表示したいです。 コントロールソースにはどのように記載すればいいのでしょうか？ そもそも「Count」なのか「DCount」を使うのかわかりません。 クエリで作ったＳＱＬ文をそのままコントロールソースに貼り付けてみましたが、「#Name?」が表示されてしまいました。 ご教授よろしくお願い致します。

アクセスのＤ○○関数 （DCountなどDから始まる関数） は、(expr, domain, [criteria]) となっていますが、 expr→フィールド名 domain→テーブル名 で フィールド名は[]と""で囲わなくてはならなくて （"[日付]"など） フィールド名は[]は付けちゃいけないけど""で囲わなくちゃいけない。 という認識で合っていますか？ よろしくお願いします。

access初心者です。 先生が生徒の成績を入力するツールを作っています。 フォーム上で、生徒の学籍番号を入力すると、 自動的に学科と生徒の名前が表示されるようにしたいです。 （入力時、生徒の名前が表示されれば、解答の名前との チェックが出来る） 構成としては ☆Ｔ学生名簿（学籍番号・学科・氏名） ☆Ｔ成績入力（学籍番号・1-1解答・1-2解答・・・） です。 フォーム上で入力したデータは、[Ｔ成績入力]に 表示されます。 とても困っています。 教えて下さい(>_<)