Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

71 / 500 ﾍﾟｰｼﾞ

←次へ　｜　前へ→


	【11890】2行を1行にするには

にしもり - 10/12/27(月) 17:54 -


	引用なし

	パスワード

こんにちは。
テーブルAが、例えば、

SEQ 販売日　注文　品名　品名詳細　大タイプ　中タイプ　客層　店舗名　店舗住所　質問　応答　顧客反応　
===　====　===　==　=====　=====　====　===　====　=====　===　==　======　
11　　12/27 TEL リンゴ　富士　1_苦情　　味　　　　一般　　東京　　東京都新宿区　xx　yy　zz
11　　12/27 TEL リンゴ　富士　2_生産地　誤記載　一般　　東京　　東京都新宿区　xx　yy　zz

のようになっています。
大タイプ　、中タイプ以外は同一内容です。
これをクエリで1行にしたいです。

SEQ 販売日　注文　品名　品名詳細　大タイプ　　　　　中タイプ　　客層　店舗名　店舗住所　質問　応答　顧客反応　
===　====　===　==　=====　============　=======　===　====　=====　===　==　======　
11　　12/27 TEL リンゴ　富士　1_苦情,2_生産地　　味,誤記載　　　一般　　東京　　東京都新宿区　xx　yy　zz

クエリだけで実現可能でしょうか。
VBAを組まないとできないでしょうか。（小生には一寸厳しいです。）

・ツリー全体表示


	【11889】Re:インポートするエクセルの加工と保存

めぐたん - 10/12/22(水) 17:23 -


	引用なし

	パスワード

▼めぐたんさん：
Versionを入力忘れました。

OS:Xp
Access Version:2003

です。

・ツリー全体表示


	【11888】インポートするエクセルの加工と保存

めぐたん - 10/12/22(水) 17:10 -


	引用なし

	パスワード

いつもお世話になっております。

インポートするエクセルを加工後、保存して閉じ、
インポートを開始したいのですが、
下記だと、保存されずに閉じてしまいます。

objEXCEL.ActiveWorkbook.SaveAs FileFormat:=xlxls
objEXCEL.ActiveWorkbook.Close

ちなみに保存ダイアログを呼び出し、保存するときちんと保存されます。
何が悪いのか、教えてください。
ファイルの形式をエクセルにして保存したいだけです。
宜しくお願いします。

・ツリー全体表示


	【11887】Re:SQLサーバーからテーブルのダウンロー...

逆襲のPAPA - 10/12/22(水) 7:47 -


	引用なし

	パスワード

少し調べてみます。
ご返事ありがとうございました。

・ツリー全体表示


	【11886】Re:SQLサーバーからテーブルのダウンロー...

雅 - 10/12/21(火) 10:15 -


	引用なし

	パスワード

雅です。

>strSQL = " SELECT * INTO 新規テーブル名 IN '" & CurrentProject.Path & _
>"\在庫.mdb' FROM インポートテーブル名" & _
>" WHERE 品名 = '" & "AAA-AAA-AAA" & "'"

SQL ServerにAccessのテーブルを取り込みたいんでしょうか？
あまり詳しくないですがリンクサーバとかしないとだめじゃなかったでしたっけ？

・ツリー全体表示


	【11885】SQLサーバーからテーブルのダウンロード...

逆襲のPAPA - 10/12/16(木) 17:41 -


	引用なし

	パスワード

素人ですいません。
AccessからSQLサーバーへの接続を勉強中の者です。
SQL文でエラーになります。

Public Sub test()

Dim Cn As New ADODB.Connection
Dim strSQL As String

Cn.ConnectionString = "Provider=SQLOLEDB;" & _
　　　　　　　　　　　"Data Source=*****;" & _
　　　　　　　　　　　"Initial Catalog=*****;" & _
　　　　　　　　　　　"User ID=*****;" & _
　　　　　　　　　　　"Password=*****"

Cn.Open '接続する

strSQL = " SELECT * INTO 新規テーブル名 IN '" & CurrentProject.Path & _
"\在庫.mdb' FROM インポートテーブル名" & _
" WHERE 品名 = '" & "AAA-AAA-AAA" & "'"

Call Cn.Execute(strSQL)

↑で、【キーワード「IN」付近に不適切な構文があります】のエラーになります。
申し訳ありませんが、宜しくお願いします。

・ツリー全体表示


	【11883】Re:比較演算子について

雅 - 10/12/14(火) 23:39 -


	引用なし

	パスワード

雅です。

>If DCount("ID", "ﾃｰﾌﾞﾙA", "ID='" & MYCD & "'") = 0 Then
>この部分で、エラーが出ちゃいます。
>
>＝をlikeに変えると、うごくのですが、
>
>"ID='" & MYCD & "'"
>これだと、どこがいけないんでしょうか？

うーん。エラーの内容も書くべき？

データ型が正しくない。とかなら「'」をとればよいかと思います。

・ツリー全体表示


	【11882】Re:比較演算子について

ゆう - 10/12/14(火) 21:11 -


	引用なし

	パスワード

If DCount("ID", "ﾃｰﾌﾞﾙA", "ID='" & MYCD & "'") = 0 Then
この部分で、エラーが出ちゃいます。

＝をlikeに変えると、うごくのですが、

"ID='" & MYCD & "'"
これだと、どこがいけないんでしょうか？

・ツリー全体表示


	【11881】Re:「パラメータの入力」が表示されてし...

りょうすけ - 10/12/10(金) 19:32 -


	引用なし

	パスワード

YU-TANG さん

りょうすけです。
早速の回答、有難う御座いました。

>> 「パラメータの入力」のコンボボックスが表示されてしまいます。
>
>コンボボックスですか？　ダイアログじゃなくて？
>2007 から仕様が変わったのかな…。
>
>▼りょうすけさん：
>> どんな些細な事でも結構ですので、調べる手がかりを
>
>たぶん、「パラメータの入力」に表示されているパラメータ名が
>最大の手がかりになると思います。
>書かれていないので、第三者にはまったく分かりませんが。
　⇒　もう少し調べて具体的な質問をさせて頂きます。

本当に有難う御座いました。

・ツリー全体表示


	【11880】Re:「パラメータの入力」が表示されてし...

YU-TANG - 10/12/10(金) 17:15 -


	引用なし

	パスワード

こんばんは、YU-TANG です。

▼りょうすけさん：
> 「パラメータの入力」のコンボボックスが表示されてしまいます。

コンボボックスですか？　ダイアログじゃなくて？
2007 から仕様が変わったのかな…。

▼りょうすけさん：
> どんな些細な事でも結構ですので、調べる手がかりを

たぶん、「パラメータの入力」に表示されているパラメータ名が
最大の手がかりになると思います。
書かれていないので、第三者にはまったく分かりませんが。

・ツリー全体表示


	【11879】「パラメータの入力」が表示されてしまう...

りょうすけ - 10/12/10(金) 16:24 -


	引用なし

	パスワード

他のＷｅｂや過去ログを調べているのですが、わからないので
どなたか教えて下さい。

ACCESS2003（WinXP）で作成した画面（フォーム）を
ACCESS2007（WinVista)のマシンに移行して開くと
「パラメータの入力」のコンボボックスが表示されてしまいます。
（Acces2003での環境では、表示されません又、
　同時に移行した他の画面では表示されません）
表示される内容は、該当フォームをレイアウトビューで開いた時と
同じ内容です。（ACCESS2003では、レイアウトビューが無いのですが）

ＶＢＡのソースの中身も確認しているのですが、なかなか原因が
分かりません。

どんな些細な事でも結構ですので、調べる手がかりを
ご存知の方、いらっしゃりましたら教えて下さいませんでしょうか？
よろしくお願いします。

・ツリー全体表示


	【11878】Re:フォーム複数項目の値確認

Nipopo - 10/12/9(木) 13:24 -


	引用なし

	パスワード

▼雅さん：
雅さんへ
コントロール名を変数で指定して確認できるんですね。
勉強になりました。
どうも、ありがとうございました。(^^)v

・ツリー全体表示


	【11877】Re:比較演算子について

雅 - 10/12/9(木) 9:37 -


	引用なし

	パスワード

雅です。

>方法は理解できました。しかし、実行時エラーが出てしまいます。
>
>DIM　MYCD AS STRING
>
>MYCD = Me!ID!Value　　　　　←（ﾃｰﾌﾞﾙBを入力ﾌｫｰﾑで入力させた値です）
>
>If DCount("ID", "ﾃｰﾌﾞﾙA", "ID='" & MYCD & "'") = 0 Then
>
>どこが、いけないんでしょうか？

どこでエラーが出たか書くべき？

・ツリー全体表示


	【11876】Re:プログラムとデータのリンクの貼りな...

sinnji - 10/12/8(水) 19:04 -


	引用なし

	パスワード

▼sinnji さん：
>会計というデータベースを作り、プログラムとデータを分割し、PG側（名前:会計_Pg)をドキュメント、データ側（名前:22年度会計_be)をドライブDに置いてリンクし使用しています。
>現在この使用で支障はないのですが、たまにドライブDに保存しているデータ（名前:21年度会計_be）にリンクし使用したい場合があります。
>この時は、手動でツールからユーティリティ・リンクテーブルマネージャーでリンクの貼り直しをしています。
>手動も面倒なので、Pg側のフォームに21年度会計というコマンドボタンを作り、ボタンクリックだけで22年度会計_beから21年度会計_beにリンク仕直しができないかということで21年度会計のコマンドに下記のコードを作ってみました。
>結果は上手くいきませんでした。
>Private Sub ctl21年度会計_click()
>Dim db As DAO.Database
>Set db As = Currentdb()

よろずやさんへ
ありがとうございました。
テーブル名
データのある場所と名前
リフレッシュリンクでできました。
>db.Connect = ";DATABASE = D:\21年度会計_be.mdb;"
>db.Close : Set db = Nothing
>End Sub
>どなたか教えて下さい。

・ツリー全体表示


	【11875】Re:フォーム複数項目の値確認

雅 - 10/12/8(水) 17:14 -


	引用なし

	パスワード

雅です。 >テキストボックス名は、txt01～txt16としています。 >登録の際に、テキストボックス内の値の有無を確認したいのですが、If文でいちいち確認を行うのではなく、For文などを使って一気に確認できないのでしょうか？連番であれば For i = 1 To 16 　　If IsNull(Me("txt" & Format$(i, "00"))) = True Then 　　　　'はいってまへん　　End If Next i とか、コントロール全部見たいんであれば For Each ControlObject In Me.Controls 以下略とかですかね。

・ツリー全体表示


	【11874】フォーム複数項目の値確認

Nipopo - 10/12/7(火) 13:40 -


	引用なし

	パスワード

いつも拝見させていただいております。
質問です。
Accessのフォーム内に、テキストボックスを16個用意しています。
テキストボックス名は、txt01～txt16としています。
登録の際に、テキストボックス内の値の有無を確認したいのですが、If文でいちいち確認を行うのではなく、For文などを使って一気に確認できないのでしょうか？

ご存知の方、いらっしゃりましたら教えて下さいませんでしょうか？
よろしくお願いします。

・ツリー全体表示


	【11873】Re:比較演算子について

ゆう - 10/12/1(水) 10:29 -


	引用なし

	パスワード

ありがとうございます。
方法は理解できました。しかし、実行時エラーが出てしまいます。

DIM　MYCD AS STRING

MYCD = Me!ID!Value　　　　　←（ﾃｰﾌﾞﾙBを入力ﾌｫｰﾑで入力させた値です）

If DCount("ID", "ﾃｰﾌﾞﾙA", "ID='" & MYCD & "'") = 0 Then

どこが、いけないんでしょうか？
おしえてください。

・ツリー全体表示


	【11872】Re:比較演算子について

よろずや - 10/11/30(火) 23:47 -


	引用なし

	パスワード

>IF(テーブルAの主キー配列の値にﾃｰﾌﾞﾙBのﾌｫｰﾑ入力値が含まれていなければ)

If DCount("id", "テーブルA", "id='" &『ﾃｰﾌﾞﾙBのﾌｫｰﾑ入力値』& "'") = 0 Then

・ツリー全体表示


	【11871】Re:比較演算子について

ゆう - 10/11/30(火) 23:00 -


	引用なし

	パスワード

配列というのは、
フィールドのidの値という意味で使いました。

分かりづらくてすみません。
どなたか教えてください

・ツリー全体表示


	【11870】比較演算子について

ゆう - 10/11/30(火) 17:45 -


	引用なし

	パスワード

思いつきません。教えてください。

ﾃｰﾌﾞﾙBのﾌｫｰﾑで入力したレコードを、別テーブルAに書き出します。

その際に、別テーブルAの主キーの配列に、ﾌｫｰﾑで入力した値が、
重複していた場合は、
書出し処理を中止し、別処理をしたいのです。

比較演算子を用いて、
IF(テーブルAの主キー配列の値にﾃｰﾌﾞﾙBのﾌｫｰﾑ入力値が含まれていなければ)THEN
　書出し処理
END IF

こんな感じにしたいのですが、
比較演算子の方法がわかりません。

だれか、詳しい方教え下さい。

・ツリー全体表示


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

71 / 500 ﾍﾟｰｼﾞ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free