Access VBA質問箱 IV

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

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


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

499 / 500 ﾍﾟｰｼﾞ

←次へ　｜　前へ→


	【3165】Re:コンボボックスでの２列目表示について

しろくろやぎ - 04/8/2(月) 11:31 -


	引用なし

	パスワード

▼BBQ さん：
>ｺﾝﾎﾞﾎﾞｯｸｽで選択した行の2列目の名称を表示させたいのですが
>１列目が表示されます。

表示の「列幅」プロパティを設定してみましょう。
「;」で列毎の幅を区切って指定し、表示させたくない時は
「0」cmを指定します。

例：２列のコンボボックスで、１列目を表示させたくない時
0cm;3.0cm

・ツリー全体表示


	【3164】リンクテーブルの再リンクについて

たかぽん - 04/7/31(土) 16:21 -


	引用なし

	パスワード

複数のリンクテーブルをリンクテーブルマネージャーを使って再リンクするときのことです
１０個テーブルがあって８個は同じリンク先であとの２個は別のリンク先です
８個にチェックをつけて再リンクすると
あるデータベースではひとつひとつのテーブルについてリンク先を訪ねてきます
別のあるデータベースでは一回だけリンク先を訪ねてすべて更新されます
このデータベースは両方とも他人が作ったものなのでどこの設定がちがうのかわかりません
どうしてこのような違いがおきるのですか？

・ツリー全体表示


	【3163】Re:コンボボックスでの２列目表示について

よろずや - 04/7/31(土) 13:14 -


	引用なし

	パスワード

>ｺﾝﾎﾞﾎﾞｯｸｽで選択した行の2列目の名称を画面のコンボボックスに
>表示させたいのですが１列目が表示されます。
仕様です。

>ｺﾝﾎﾞﾎﾞｯｸｽに表示されている内容は以下の様な感じです。
>AAAA 1001 あああ DDDD
>BBBB 1002 いいい DDDD
>CCCC 1003 ううう DDDD
>DDDD 1004 えええ DDDD
>
>"AAAA"の行を選択して画面のコンボボックスに"1001"と表示したいです。
>現在は"AAAA"と表示されています。
1001 AAAA 1001 あああ DDDD
1002 BBBB 1002 いいい DDDD
1003 CCCC 1003 ううう DDDD
1004 DDDD 1004 えええ DDDD
としてください。
そして、１列目の幅を０でない小さな値にします。

・ツリー全体表示


	【3162】Re:繰り返しの項目

よろずや - 04/7/31(土) 13:11 -


	引用なし

	パスワード

>　MyRs20![Controls(講習日 & i)] = MyRs10!講習日
MyRs20.Controls("講習日" & i)] = MyRs10!講習日

・ツリー全体表示


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

よろずや - 04/7/31(土) 13:09 -


	引用なし

	パスワード

▼morik さん：
>▼よろずやさん：
>>▼morik さん：
>>>現在、全角と半角の混在する15バイトのデータから先頭12バイトの文字列を取得するクエリーを作成しています。
>>>
>>>LeftB(フィールド1,12)
StrConv(LeftB(StrConv(フィールド1, vbFromUnicode), 12), vbUnicode)
１行で書いてしまいましたが、実は落とし穴があります。
12バイトめが全角文字の途中にかかる場合は、取得結果の末尾の文字が
vbNullChar になってしまいます。
そういう訳で、
>>>MidB(フィールド1,1,12)
こちらは、もっと大変です。
全角文字の片割れかどうかを、前も後ろも考慮する必要があります。

・ツリー全体表示


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

morik - 04/7/31(土) 10:19 -


	引用なし

	パスワード

▼よろずやさん：
>▼morik さん：
>>現在、全角と半角の混在する15バイトのデータから先頭12バイトの文字列を取得するクエリーを作成しています。
>>
>>LeftB(フィールド1,12)
>>MidB(フィールド1,1,12)
>>
>>上の2つで試みてみたのですが、12バイトの文字列を取得できませんでした。
>
>思いっきりバージョンに依存する話ですので、
>まずはAccessのバージョンを教えてください。

よろずやさんいつもありがとうございます。

Accessのバージョンですが、わけあって2000で作成したものを2002で使っています。

2000と2002の両方で動くと一番よいのですが。

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

・ツリー全体表示


	【3159】Re:レポートの非連結テキストボックスにつ...

よろずや - 04/7/30(金) 22:51 -


	引用なし

	パスワード

▼あんなさん：
>初めて投稿します。レポートに表示された値を計算して、
>１行ずつ表示していきたいのですが、１行目の計算結果が、
>全リストに及んでしまいます。どなたか、よい解決方法があれば
>よろしくお願いいたします。
間違い探しのご依頼ならば、まずは作ったものを見せてください。

・ツリー全体表示


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

よろずや - 04/7/30(金) 22:49 -


	引用なし

	パスワード

▼morik さん：
>現在、全角と半角の混在する15バイトのデータから先頭12バイトの文字列を取得するクエリーを作成しています。
>
>LeftB(フィールド1,12)
>MidB(フィールド1,1,12)
>
>上の2つで試みてみたのですが、12バイトの文字列を取得できませんでした。

思いっきりバージョンに依存する話ですので、
まずはAccessのバージョンを教えてください。

・ツリー全体表示


	【3157】埋め込みオブジェクトの印刷について

桜坂 - 04/7/30(金) 21:58 -


	引用なし

	パスワード

みなさん、教えてください。

Accessの非連結オブジェクトでword文章をリンクしています。
Access2000では問題なかったのですが、Access2003で使用したところ、
印刷した際、ずれが発生してしまいました。
何が原因なのでしょうか？
対処法をご教授ください！

よろしくお願いします。

・ツリー全体表示


	【3156】繰り返しの項目

Ｄ－１ - 04/7/30(金) 19:57 -


	引用なし

	パスワード

アクセス初心者です。

テーブルの講習日という項目に、別のテーブルの講習日をセットしようとしています。
受側の項目のみ1～3の繰り返しになっています。

　MyRs20![Controls(講習日 & i)] = MyRs10!講習日

とか

　Controls(MyRs20!講習日 & i) = MyRs10!講習日

とかやってますが、全然ダメです。

基本中の基本だと思うのですが、参考書のどこに書いてあるかもわからなくて困ってます。
どなたか救いの手を…

・ツリー全体表示


	【3155】Re:MySQL（MySQLの初心者）

PHPプログラマ

- 04/7/30(金) 19:01 -


	引用なし

	パスワード

▼ビバ！ジャイアンツさん：
>ここでは少々場違いかもしれませんが、質問します。AccessとASPを使ってHPを作成しているものですが、PHP+MySQLを学ぶ必要が出てきました。ですので、学習方法として、ASPで作ったものとほぼ同じPHPのページを作ってみようと思います。MySQLに資源となるデータをAccessからエクスポートしようと思うのですが、具体的な方法がHPサイトからはなかなか見つかりません。お不法を知っている方、良い手ほどきをお願いします。

私は長年PHPとMySQLを使って開発をしております。
Accessは昔使った程度なのであれですが、
MySQLは外部CSVファイルを読み込むコマンドがあります。
最初にテーブルを作成しておき、コマンドラインからCSVを読み込んだらどうでしょう。

・ツリー全体表示


	【3154】全角と半角の混在する文字列を取得する方法

morik

- 04/7/30(金) 16:38 -


	引用なし

	パスワード

現在、全角と半角の混在する15バイトのデータから先頭12バイトの文字列を取得するクエリーを作成しています。

LeftB(フィールド1,12)
MidB(フィールド1,1,12)

上の2つで試みてみたのですが、12バイトの文字列を取得できませんでした。

対処法をご存知の方よろしくお願い致します。

・ツリー全体表示


	【3153】コンボボックスでの２列目表示について

BBQ - 04/7/30(金) 16:05 -


	引用なし

	パスワード

OS:2000
Access :2000

はじめまして、初歩的な事かも知れませんが
分からないので教えてください。

ｺﾝﾎﾞﾎﾞｯｸｽで選択した行の2列目の名称を画面のコンボボックスに
表示させたいのですが１列目が表示されます。

ｺﾝﾎﾞﾎﾞｯｸｽに表示されている内容は以下の様な感じです。
AAAA 1001 あああ DDDD
BBBB 1002 いいい DDDD
CCCC 1003 ううう DDDD
DDDD 1004 えええ DDDD

"AAAA"の行を選択して画面のコンボボックスに"1001"と表示したいです。
現在は"AAAA"と表示されています。

よろしくお願いします。

・ツリー全体表示


	【3152】コンボボックスでの２列目表示について

BBQ - 04/7/30(金) 16:02 -


	引用なし

	パスワード

OS:2000
Access :2000

はじめまして、初歩的な事かも知れませんが
分からないので教えてください。

ｺﾝﾎﾞﾎﾞｯｸｽで選択した行の2列目の名称を表示させたいのですが
１列目が表示されます。

ｺﾝﾎﾞﾎﾞｯｸｽに表示されている内容は以下の様な感じです。
AAAA 1001 あああ DDDD
BBBB 1002 いいい DDDD
CCCC 1003 ううう DDDD
DDDD 1004 えええ DDDD

"AAAA"の行を選択して画面のコンボボックス"1001"と表示したいです。

よろしくお願いします。

・ツリー全体表示


	【3151】Re:更新フォームで閉じる時に確認メッセー...

お初 - 04/7/30(金) 10:25 -


	引用なし

	パスワード

▼hatena さん：
▼クロさん：
▼Homes さん：

お初です。いろいろとご指導ありがとうございました．
更新前処理欄でイベントを行った所、できました。
大変助かりました．ありがとうございます．

・ツリー全体表示


	【3150】Re:更新フォームで閉じる時に確認メッセー...

hatena - 04/7/29(木) 18:02 -


	引用なし

	パスワード

更新前処理に記述します。
更新を保存したくないときは、Me.Undo で元に
戻します。

Private Sub Form_BeforeUpdate()
　UpdateFlg = True
　　 If MsgBox("更新されました。変更しますか？", vbYesNo + vbQuestion) = vbNo Then
　　　　 Me.Undo
　　 End If
End Sub

・ツリー全体表示


	【3148】Re:更新フォームで閉じる時に確認メッセー...

クロ - 04/7/29(木) 13:35 -


	引用なし

	パスワード

▼お初さん：
>▼クロさん：
>ご回答ありがとうございます。
>
>>更新後では既に更新した後のイベントなので、書くのなら更新前処理の
>>イベントでは？
>
>更新前処理で同じようなコードで記入しても
>何も反応がありませんでした。
>確認メッセージも出ず、閉じてしまう状況でした。
>コードの書き方が違うのでしょうか？

フォームウィンドウのクローズボタンはそれ自身にフォームを閉じる
アクションがあり、どのようなコードを書こうが最終的には閉じてし
まいます。
フォームを閉じる処理はコマンドボタンを配置してそれで閉じるよう
にしては如何でしょうか？
※フォームウィンドウのクローズボタンを不用意に操作しないように
　フォームプロパティの「閉じるボタン」を「いいえ」にするか、ま
　たは「コントロールボックス」を「いいえ」にしてください。

とそうなると、どのタイミングでレコードが更新されているかを判断
しましょうか？
できれば、どんな操作手順が教えていただけるといいのですが...

それから「UpdateFlg」のチェックボックス(？)は連結ですか？

・ツリー全体表示


	【3147】解決済:アクセスVBAを使用してエクセルの...

羅刹

- 04/7/29(木) 13:26 -


	引用なし

	パスワード

>意味がよくわかりませんが・・・
>とりあえず、見ました。

他の掲示板でも同じ内容の質問をしたので，『マルチポスト』になってしまったので，
質問は解決しました。

やりたかったことは，ファイルをダイアログで開いて，エクセルファイルを指定し，
テーブルにインポート
(DoCmd.TransferSpreadsheet acImport, 8, "INPORT_TBL", varGetFile, True, ""）するです。エクスポートもこの方法でできるのですね。
またなにかわからないことありましたらお願いします。

・ツリー全体表示


	【3146】Re:更新フォームで閉じる時に確認メッセー...

Homes - 04/7/29(木) 13:19 -


	引用なし

	パスワード

▼お初さん：
▼クロさん：
横から失礼します。
If MsgBox("只今から更新します", vbOKCancel + vbInformation, "更新確認") = vbCancel Then
　 'キャンセルを押したときの処理
　　Exit Sub
else
　 '更新処理
End If

これの事でしょうか？

・ツリー全体表示


	【3145】Re:更新フォームで閉じる時に確認メッセー...

お初 - 04/7/29(木) 11:23 -


	引用なし

	パスワード

▼クロさん：
ご回答ありがとうございます。

>更新後では既に更新した後のイベントなので、書くのなら更新前処理の
>イベントでは？

更新前処理で同じようなコードで記入しても
何も反応がありませんでした。
確認メッセージも出ず、閉じてしまう状況でした。
コードの書き方が違うのでしょうか？

・ツリー全体表示


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

499 / 500 ﾍﾟｰｼﾞ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free