Access VBA質問箱 IV

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

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


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

498 / 500 ﾍﾟｰｼﾞ

←次へ　｜　前へ→


	【3185】Re:指定サイトをVBAから開きたい

たっちん - 04/8/6(金) 19:30 -


	引用なし

	パスワード

かみちゃん様

こんにちは、たっちんです。
早速有難うございました。無事解決出来ました。
今後ともよろしくお願いします。

・ツリー全体表示


	【3184】Re:指定サイトをVBAから開きたい

かみちゃん - 04/8/6(金) 18:53 -


	引用なし

	パスワード

こんにちは。かみちゃん　です。

>Shell関数でIEを開き、指定サイトに飛ばしたいのです。

以下のＵＲＬが参考になるかと思います。
http://www.ken3.org/vba/backno/vba050.html

・ツリー全体表示


	【3183】指定サイトをVBAから開きたい

たっちん - 04/8/6(金) 18:47 -


	引用なし

	パスワード

いつも皆さんにはお世話になっています。
Shell関数でIEを開き、指定サイトに飛ばしたいのです。
みなさんのお力添えをお願いいたします。

・ツリー全体表示


	【3182】Re:フィールド結合

クロ - 04/8/6(金) 15:18 -


	引用なし

	パスワード

SELECT 部品名 FROM Ａ社Table UNION ALL
SELECT 部品名 FROM Ｂ社Table;

重複は表示しないのなら

SELECT 部品名 FROM Ａ社Table UNION
SELECT 部品名 FROM Ｂ社Table;

・ツリー全体表示


	【3181】フィールド結合

まり - 04/8/6(金) 15:11 -


	引用なし

	パスワード

Ａ社Ｔａｂｌｅ

Ａ社Tableのフィールド"部品名"と
Ｂ社Tableのフィールド"部品名"を

まとめて
作成する　ＳＱＬ文を教えてください

・ツリー全体表示


	【3180】bookmarkについて教えてください

つとむ - 04/8/5(木) 15:23 -


	引用なし

	パスワード

検索結果をフォームに表示したいのですが、ｂｏｏｋｍａｒｋが正しくありませんと表示されます。どうもｂｏｏｋｍａｒｋが１０２４以上でエラーになっているようです。どうすれば正常になるのでしょうか。教えてください。

・ツリー全体表示


	【3179】Re:ネットワーク上のmdbテーブルを・・・

たっちん - 04/8/5(木) 12:43 -


	引用なし

	パスワード

有難うございます。実は、質問の内容は解決しちゃったんです・・・原因は恥ずかしながら自分のパンチミスでした。尚、ADOに書き換える理由は、Access2002以降の標準（とある解説書にありましたので・・・）だと言う事と、今後SQLServerなどに接続して運用する可能性があるため試みています。

・ツリー全体表示


	【3178】euc形式でテキストファイルを書き出す方法

yoshi - 04/8/4(水) 18:51 -


	引用なし

	パスワード

CreateTextFileでアクセスからテキストファイルを作成していますが、
euc形式で書き出す方法があれば教えていただけませんでしょうか。
よろしくお願いします。

・ツリー全体表示


	【3177】Re:ＶＢＡのエラーの意味が分からず、困っ...

[名前なし] - 04/8/4(水) 12:41 -


	引用なし

	パスワード

テキストボックスの名前を「住所」で入力し直したらエラーが解除できました。ありがとうございました。

・ツリー全体表示


	【3176】Re:ＶＢＡのエラーの意味が分からず、困っ...

クロ - 04/8/4(水) 8:39 -


	引用なし

	パスワード

まずは対象の「住所」のコントロールを確認してください。
「住所」という名の「ラベル」や「リストボックス」に対しおこなうと
同じエラーがでます。

テキストボックスの場合でも出ているのなら作り直してみては？

・ツリー全体表示


	【3175】ＶＢＡのエラーの意味が分からず、困って...

[名前なし] - 04/8/4(水) 1:38 -


	引用なし

	パスワード

フォームに「郵便番号」「住所」のコントロールを作成しました。「住所」には「郵便番号」から住所入力支援を設定しています。
そして、「郵便番号」のプロパティで、更新後処理に

Private Sub 郵便番号_AfterUpdate()

Me!住所.SetFocus
Me!住所.SelStart = Len(Me!住所)

End Sub

と記述して、「住所」コントロールにカーソルが移ったときに、カーソルが自動で入力された文字の最後に点滅するようにしたいとおもっています。

ところが、「郵便番号」にすうじをいれてエンターを押すと、

　　実行時エラー　438
　　オブジェクトは、このプロパティまたはメソッドをサポートしていません。

と表示されてしまいます。どうしたら、「住所」コントロールにカーソルが移ったときに、カーソルが自動で入力された文字の最後に点滅させることができるのでしょうか？

・ツリー全体表示


	【3174】Re:テーブルに設定した金額に対するランク...

kamonegi - 04/8/3(火) 23:48 -


	引用なし

	パスワード

ご回答有難うございます。
hatena様がご回答いただいた方法で、出来ました。
が、よろずや様の回答がとても気になります。
Dmaxを使用すれば範囲は必要ないと思ってしまうのですが･･･

>よろずや様
またまたの質問で申し訳ないですが、
どのように後の処理が楽になるのでしょう。

実は、最初はそのように設定していたのですが
運用方法が分からず終了基準値は無視しています。
hatena様がご回答いただいた方法で、出来ました。

マニュアル片手の初心者です。
よろしくお願いします。

・ツリー全体表示


	【3173】Re:テーブルに設定した金額に対するランク...

hatena - 04/8/3(火) 22:25 -


	引用なし

	パスワード

評価ランクは、下記の式で取得出ます。 DMin("評価ランク","評価基準テーブル","評価基準額<=" & [売上金額]) ポイントは、 DMax("ポイント","評価基準テーブル","評価基準額<=" & [売上金額])

・ツリー全体表示


	【3172】Re:ネットワーク上のmdbテーブルを・・・

よろずや - 04/8/3(火) 22:20 -


	引用なし

	パスワード

▼たっちんさん：
>テーブルリンクさせて改めてクエリーを作成し、そこでdbの操作をしようとしてます。
>DAOでは問題なく出来たのですが、ソースをADOに変えたところ・・・この操作を
>実行するために接続を使用できません。云々・・・のエラーが出るのです。
mdbにはDAOが最適なのですが、ADOに書き換える理由は？

・ツリー全体表示


	【3171】Re:テーブルに設定した金額に対するランク...

よろずや - 04/8/3(火) 22:17 -


	引用なし

	パスワード

>フォームで売上金額に対するランクを表示させたいのですが、
>基準金額が変わる可能性を考えて、基準テーブルから基準値を
>持ってくるようにしたいので基準となるテーブルとして
>[評価ランク][評価基準金額][ポイント]
>　　A　　　　　　100000　　　　500
>　　B　　　　　　 50000　　　　400　
>といったテーブルを作成しました。

[評価ランク][評価基準金額1][評価基準金額2][ポイント]
　　 A　　　　　 100000　　　99999999　　　500
　　 B　　　　　　50000　　　　 99999　　　400　
のように、金額を範囲で持たせると、あとの処理が楽ですよ。

・ツリー全体表示


	【3170】Re:全角と半角の混在する文字列を取得する...

morik

- 04/8/3(火) 17:16 -


	引用なし

	パスワード

▼よろずやさん：
ありがとうございました。

クエリーにStrConv(LeftB(StrConv([フィールド1],128),12),64)と記述しましたら12バイトで表示することが出来ました。

あとは12バイト目に全角文字が来た場合の処理をモジュールで考えてみたいと思います。

御丁寧に教えていただきありがとうございました。

・ツリー全体表示


	【3169】テーブルに設定した金額に対するランクを...

kamonegi - 04/8/3(火) 11:54 -


	引用なし

	パスワード

OS:WIN_XP_PRO
Access Version:AC_2002

初投稿です。方法が浮かびません。よろしくお願いします。
フォームで売上金額に対するランクを表示させたいのですが、
基準金額が変わる可能性を考えて、基準テーブルから基準値を
持ってくるようにしたいので基準となるテーブルとして
[評価ランク][評価基準金額][ポイント]
　　A　　　　　　100000　　　　500
　　B　　　　　　 50000　　　　400　
といったテーブルを作成しました。

フォーム上で、売上金額を入力したら、
同じくフォーム上に設定されているランクと
ポイントを表示するテキストボックスに
売上金額が70000円だったらランクはB、
ポイントは400といったように
該当するするランクとポイントをを表示させるには
どのような記述にしたらいいでしょうか？

このフォームで入力・表示された結果は他のテーブルに
保存していく予定です。
説明がうまく出来ているかわかりませんが、
御教授お願いいたします。

・ツリー全体表示


	【3168】Re:全角と半角の混在する文字列を取得する...

よろずや - 04/8/2(月) 22:13 -


	引用なし

	パスワード

>>StrConv(LeftB(StrConv(フィールド1, vbFromUnicode), 12), vbUnicode)
>の部分ですが、クエリーで書くとパラメータの入力とでてしまいます。
失礼しました。
クエリー内部では組み込み定数が使えませんので、
vbFromUnicode, vbUnicode の代わりに、
イミディエイトウィンドウで、
?vbFromUnicode
?vbUnicode
と打ち込んだときに表示される数値を使ってください。

>これはモジュールで書くしかないのでしょうか？
12バイト目が全角文字の片割れの可能性がある場合は、
キチンとモジュールで関数として書く必要があります。
クエリーからは、その関数を呼び出します。

・ツリー全体表示


	【3167】ネットワーク上のmdbテーブルを・・・

たっちん - 04/8/2(月) 20:20 -


	引用なし

	パスワード

テーブルリンクさせて改めてクエリーを作成し、そこでdbの操作をしようとしてます。DAOでは問題なく出来たのですが、ソースをADOに変えたところ・・・この操作を実行するために接続を使用できません。云々・・・のエラーが出るのです。
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset

cn.ConnectionString = CurrentProject.Connection
rs.Open "TBL-NM", cn, adOpenKeyset, adLockOptimistic
こんな感じでやってますが、どうなんでしょうか？

・ツリー全体表示


	【3166】Re:全角と半角の混在する文字列を取得する...

morik

- 04/8/2(月) 16:00 -


	引用なし

	パスワード

▼よろずやさん：
>>>>LeftB(フィールド1,12)
>StrConv(LeftB(StrConv(フィールド1, vbFromUnicode), 12), vbUnicode)
>１行で書いてしまいましたが、実は落とし穴があります。
>12バイトめが全角文字の途中にかかる場合は、取得結果の末尾の文字が
>vbNullChar になってしまいます。

よろずやさん何度も質問して申し訳ございません。

>StrConv(LeftB(StrConv(フィールド1, vbFromUnicode), 12), vbUnicode)
の部分ですが、クエリーで書くとパラメータの入力とでてしまいます。

これはモジュールで書くしかないのでしょうか？
これ以外に方法はないのでしょうか？

初歩的な質問ばかりですみません。
よろしくお願い致します。

・ツリー全体表示


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

498 / 500 ﾍﾟｰｼﾞ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free