Access VBA質問箱 IV

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

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


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

497 / 500 ﾍﾟｰｼﾞ

←次へ　｜　前へ→


	【3208】Re:文字の形態別に全半角の変換を変える

こもれび - 04/8/13(金) 11:14 -


	引用なし

	パスワード

▼べるさん：

>入力フォームの１つのフィールド内で文字の種類によって
>英字　→　半角変換
>カタカナ　→　全角変換
>ひらかな　→　全角変換

「１つのフィールド内」とありますが、これは例えば
一つのテキストボックスということなのでしょうか。
また、入力がテキストボックスだと仮定して入力される
文字列は「英字」と「カタカナ」と「ひらかな」が
混在しているということなのでしょうか？

「ひらがな」は通常全角でしか入力できないのではないか
と思いますので、「変換対象」から外してもよいのでは？

・ツリー全体表示


	【3207】文字の形態別に全半角の変換を変える

べる - 04/8/12(木) 20:27 -


	引用なし

	パスワード

初めまして。
簡単な質問で申し訳ありませんが、ご教授ください。

入力フォームの１つのフィールド内で文字の種類によって
英字　→　半角変換
カタカナ　→　全角変換
ひらかな　→　全角変換
にそれぞれ変換させたいのですが、
何か良い方法はありますでしょうか？
access2000で作成しています。
よろしくお願いいたします。

・ツリー全体表示


	【3206】Re:レコードが重複して登録されてしまう。

phoo - 04/8/12(木) 18:19 -


	引用なし

	パスワード

▼ことらさん：
>フォームに登録ボタンを設け以下のようなコードを書きましたが、
>登録ボタンをクリックすると、エラー処理:に飛んでしまい｢登録でき
>ませんでした｣のメッセージを返します。
>しかし、実際テーブルを見るとちゃんとレコードが追加されております。

>エラー処理:
>　MsgBox ("登録できませんでした。")
>
>　Exit Sub

エラー処理の前にexit sub をつければ、
エラー処理には飛びません。
二重登録は？

・ツリー全体表示


	【3205】レコードが重複して登録されてしまう。

ことら - 04/8/12(木) 15:43 -


	引用なし

	パスワード

こんにちは。行き詰まってしまいました。かなり初歩的な事ですが、
どなたかご教授頂ければ幸いです。

フォームに登録ボタンを設け以下のようなコードを書きましたが、
登録ボタンをクリックすると、エラー処理:に飛んでしまい｢登録でき
ませんでした｣のメッセージを返します。
しかし、実際テーブルを見るとちゃんとレコードが追加されております。
更にここでおかしいのは、1回しか登録ボタンをクリックしていない
にもかかわらず、まったく同じレコードが自動的に重複して追加されて
いるという点です。
どうもこの入力フォームを閉じる時にまったく同じレコードが追加され
てしまうようなのですが、原因がつかめません。
以上、この2点なのですが、宜しくお願い致します。

Private Sub 登録_Click()
On Error GoTo エラー処理

Dim cn As New ADODB.Connection
Dim Rst As New ADODB.Recordset

Set cn = CurrentProject.Connection

Rst.Open "t_main", cn, adOpenKeyset, adLockOptimistic, adCmdTableDirect

　With Rst
　
　　 .AddNew
　　
　　　 !ID = Me.ID
　　　 !エリア = Me.エリア
　　　 !サブエリア = Me.サブエリア
　　　 !全体管理番号 = Me.全体管理番号
　　　　　　　
　　 .Update
　　
　End With
　
　 Rst.Close
　 cn.Close
　　　
エラー処理:
　MsgBox ("登録できませんでした。")

　Exit Sub
　　
End Sub

・ツリー全体表示


	【3204】VBからレポートを表示

AI - 04/8/12(木) 9:20 -


	引用なし

	パスワード

おはようございます。AIです。

VBでACCESSのレポートを表示するには、どのようにすれば良いのでしょうか？
方法を教えて下さい。

・ツリー全体表示


	【3203】Re:リストボックスが「空」である場合の検...

こもれび - 04/8/10(火) 14:52 -


	引用なし

	パスワード

▼ああさん：
>If IsNull(Me!～) Then

ありがとうございました　<m(__)m>

・ツリー全体表示


	【3202】Re:リストボックスが「空」である場合の検...

ああ - 04/8/10(火) 13:58 -


	引用なし

	パスワード

If IsNull(Me!～) Then

・ツリー全体表示


	【3201】Re:bookmarkについて教えてください

こもれび - 04/8/10(火) 12:16 -


	引用なし

	パスワード

若干情報が不足しているようですので確認したいのですが、

「MASTER」はメインフォームのレコードソースである顧客マスターＤＢ
レコードセット「RS」はサブフォームにある（表示されている）履歴ＤＢ
と、解釈してよいのでしょうか。
　そして、「TEL_SRC」のデータを履歴から検索して合致したものを表示
するレコードとするということでよいのでしょうか。

もし、それであるとするとブックマークの使い方としては適切ではないような
気がします。

・ツリー全体表示


	【3200】Re:バーコードについて

こもれび - 04/8/10(火) 0:14 -


	引用なし

	パスワード

>バーコードリーダーでデータを扱うにあたり、何か設定する事
>等ないでしょうか？

バーコードリーダー側の設定関係がほとんどだと思います
スタート/ストップキャラクタの「*」（アステリスク）が
そのまま出力されたかどうかは失念しました。
もし、読み取った文字列にスタート/ストップキャラクタが
残っていたらmid関数でデータのみを取り出せばよいと思います。
その他特別な設定はソフトウエア側では無いはずです。

使用するバーコードリーダーによって扱えるバーコードが異なりますので
仕様を確認しましょう。
設定としては、私が使用したものでは次の項目があったように
記憶しております（すみません、はっきり覚えているものだけです）
ディップスイッチによる設定だったと思います

・センサー電源の常時 ON/OFF　（省電力機能）
・データ読み取り後の改行 Enable/Disable
・改行の種類 CRLF/LF

・ツリー全体表示


	【3199】Re:バーコードについて

ガク - 04/8/9(月) 23:19 -


	引用なし

	パスワード

回答ありがとうございます。
バーコードリーダーでデータを扱うにあたり、何か設定する事
等ないでしょうか？

・ツリー全体表示


	【3198】Re:バーコードについて

こもれび - 04/8/9(月) 10:28 -


	引用なし

	パスワード

ガクさんこんにちは

>パソコンのどこにストックされるのでしょうか？
>また、そのデータをACCESSなどで活用したい場合、どのようなプログラムを書いて
>データを読みに行けばいいのでしょうか？（バーコードで読み取ったデータをテキストボックスなどに表示したい）

ストックというか、どこかにストアされるわけではありません。
「入力デバイスがキーボードからバーコードリーダに変わった」
と考えればわかりやすいかと思います。

Accessのフォームに設けられたテキストボックスにフォーカスが
ある状態で、バーコードリーダーでバーコードを読めばデータが
テキストボックスに入力されます。

・ツリー全体表示


	【3197】Re:バーコードについて

ガク - 04/8/9(月) 9:01 -


	引用なし

	パスワード

回答ありがとうございます。
すいません。質問を具体的にしていいですか？

まず、バーコードリーダでcode39のデータを読み取るんですが、読み取ったデータというのは
パソコンのどこにストックされるのでしょうか？
また、そのデータをACCESSなどで活用したい場合、どのようなプログラムを書いて
データを読みに行けばいいのでしょうか？（バーコードで読み取ったデータをテキストボックスなどに表示したい）

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

・ツリー全体表示


	【3196】Re:bookmarkについて教えてください

つとむ - 04/8/8(日) 21:33 -


	引用なし

	パスワード

' (tel 1st read)
　　　　If Not IsNull(Me.TEL_SRC) And IsNull(Me.KNM_SRC) And (FLG1st = " ") Then
　　　　RS.MoveFirst
' (携帯-1 find)
　　　　CRITERIA = "TEL-H1-M LIKE '*" & Me.TEL_SRC & "*'"
　　　　RS.Find CRITERIA, 0, adSearchForward
　　　　If RS.EOF Then
' (携帯-2 find)
　　　　　　RS.MoveFirst
　　　　　　CRITERIA = "TEL-H2-M LIKE '*" & Me.TEL_SRC & "*'"
　　　　　　RS.Find CRITERIA, 0, adSearchForward
　　　　　　If RS.EOF Then
' (自宅-1 find)
　　　　　　　　RS.MoveFirst
　　　　　　　　CRITERIA = "TEL-J1-M LIKE '*" & Me.TEL_SRC & "*'"
　　　　　　　　RS.Find CRITERIA, 0, adSearchForward
　　　　　　　　If RS.EOF Then
' (自宅-2 find)
　　　　　　　　　　RS.MoveFirst
　　　　　　　　　　CRITERIA = "TEL-J2-M LIKE '*" & Me.TEL_SRC & "*'"
　　　　　　　　　　RS.Find CRITERIA, 0, adSearchForward
　　　　　　　　　　If RS.EOF Then
' (電話該当なし)
　　　　　　　　　　　　MsgBox ("該当データありません"), vbOKOnly
　　　　　　　　　　　　Exit Sub
' (自宅-2 match)
　　　　　　　　　　Else
　　　　　　　　　　　　Forms!MASTER.bookmark = RS.bookmark
　　　　　　　　　　　　BKMARK = RS.bookmark
　　　　　　　　　　　　FLG1st = "on-j2"
　　　　　　　　　　　　Exit Sub
　　　　　　　　　　End If
' (自宅-1 match)
　　　　　　　　Else
　　　　　　　　　　Forms!MASTER.bookmark = RS.bookmark
　　　　　　　　　　BKMARK = RS.bookmark
　　　　　　　　　　FLG1st = "on-j1"
　　　　　　　　　　Exit Sub
　　　　　　　　End If
' (携帯-2 match)
　　　　　　Else
　　　　　　　　Forms!MASTER.bookmark = RS.bookmark
　　　　　　　　BKMARK = RS.bookmark
　　　　　　　　FLG1st = "on-h2"
　　　　　　　　Exit Sub
　　　　　　End If
' (携帯-1 match)
　　　　Else
　　　　　　Debug.Print RS.bookmark
　　　　　　Forms!MASTER.bookmark = RS.bookmark
　　　　　　BKMARK = RS.bookmark
　　　　　　FLG1st = "on-h1"
　　　　　　Exit Sub
　　　　End If
　　End If

サブフォームを使用しています。サブフォームの部分を削除して実行した場合は
正常に動いています。顧客マスターＤＢと履歴ＤＢのリレーションが壊れているのでしょうか？

・ツリー全体表示


	【3193】Re:bookmarkについて教えてください

こもれび - 04/8/8(日) 16:09 -


	引用なし

	パスワード

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

どのようなコードを書かれているのか教えてください。

・ツリー全体表示


	【3192】Re:バーコードについて

こもれび - 04/8/8(日) 16:06 -


	引用なし

	パスワード

こんにちは、ガクさん

>パソコンとバーコードリーダーをつなげてデータ処理をしたいのですが、
>仕組みがまったくわかりません。バーコードのデータはパソコンのどこに入りどうやって
>accessやexcelで呼び出し活用すればいいのでしょうか？
>教えてください　よろしくお願いいたします。

私が以前職場で使用していたものは「キーボード入力式」でした。
キーボードケーブルの接続と分岐するアダプターがありまして、
バーコードリーダーを接続するというものです。
バーコードリーダーは読み取ったバーコードのデータをキーデータ
に変換して出力します。
例えば、code39というバーコードで

*00100012345*　（ code39では必ず前後にアステリスクが付けられる）

というデータは、左のアステリスクから右のアステリスクまで順にキーデータ
が出力されます。

データを読み取ったあと、改行を付けるかどうするかは設定によったと思います。

Accessではリポートにバーコードコントロールを付けておき、印刷して
使用するという使い方になると思います。

・ツリー全体表示


	【3191】Re:バーコードについて

よろずや - 04/8/8(日) 15:55 -


	引用なし

	パスワード

▼ガクさん：
>よろしくお願いします。
>VBとはちょっと放れてしまうかもしれませんが、質問したいと思います。
>パソコンとバーコードリーダーをつなげてデータ処理をしたいのですが、
>仕組みがまったくわかりません。バーコードのデータはパソコンのどこに入りどうやって
>accessやexcelで呼び出し活用すればいいのでしょうか？

一般的なものは、キーボードインターフェイスを採用しています。
バーコードリーダーでピッとやると、キーボードで数字を桁数分打ち込んで
Enterキーを押したのと同じ動きになります。
うまく読み取れなかった場合は、代わりにキーボードで打ち込みます。

・ツリー全体表示


	【3190】バーコードについて

ガク - 04/8/8(日) 14:20 -


	引用なし

	パスワード

よろしくお願いします。
VBとはちょっと放れてしまうかもしれませんが、質問したいと思います。
パソコンとバーコードリーダーをつなげてデータ処理をしたいのですが、
仕組みがまったくわかりません。バーコードのデータはパソコンのどこに入りどうやって
accessやexcelで呼び出し活用すればいいのでしょうか？
教えてください　よろしくお願いいたします。

・ツリー全体表示


	【3189】Re:レポート印刷の怪

こもれび - 04/8/8(日) 13:35 -


	引用なし

	パスワード

>「印刷用テーブル」はボタンを押した際にデータを全削除しているにも
>かかわらず動作していないように見えます。
>ソースを載せますのでご教授いただければ幸いです。

次の記述ではいかがでしょうか。
（変数宣言等は省略しています）

　　CnAcc.ConnectionString = CurrentProject.Connection

　　rsAcc.Open "印刷用テーブル", cn, adOpenKeyset, adLockOptimistic

　　For Each varItm In Me.lstMain.ItemsSelected
　　　　RsAcc.AddNew
　　　　RsAcc("A").Value = Me.lstMain.Column(1, varItm)
　　　　RsAcc("B").Value = Me.lstMain.Column(2, varItm)
　　　　RsAcc("C").Value = Me.lstMain.Column(3, varItm)
　　　　RsAcc("D").Value = Me.lstMain.Column(4, varItm)
　　　　RsAcc.Update
　　　　
　　　　DoEvents
　　Next varItm
　　DoCmd.Requery "lstmain"

　　RsAcc.Close:Set RsAcc = Nothing
　　CnAcc.Close:Set CnAcc = Nothing

　　DoCmd.OpenReport "データ発行", acViewNormal

　　 SQL01 = "DELETE * FROM 印刷用テーブル"
　　 CnAcc.Execute SQL01

・ツリー全体表示


	【3188】Re:フォーム上のラベルにデーターを表示

こもれび - 04/8/8(日) 13:15 -


	引用なし

	パスワード

>社員番号などのデータをフォームのラベルに表示させたいのですが可能ですか？

Form作成の時は、Caption（標題）プロパティに適当な文字列を入れておき、
必要に応じて[ラベル名].Captionで変更してはいかがでしょうか。

・ツリー全体表示


	【3186】リストボックスが「空」である場合の検出...

こもれび - 04/8/8(日) 9:31 -


	引用なし

	パスワード

はじめまして

初歩的な質問で大変恐縮ですが、ご存知の方教えてください。

レコードセットのデータをリストボックスに入れる前に、リストボックス
のデータが一つもない（「空」である状態）場合は、所定の処理を行わず、
データが空であるメッセージを出力したいと考えております。
listcountを使用すると「空」である場合も１となり、使えないように
思えます。

姑息な手段としては、リストボックスに入れるデータのグループが選択
（入力）される前はデータが空であるとメッセージを出力することは
できますが、この方法はリストボックスの状態を見ているわけではあり
ません。

リストボックスの状態を見て空であるか否かを判定する方法はあるもの
でしょうか？

・ツリー全体表示


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

497 / 500 ﾍﾟｰｼﾞ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free