Access VBA質問箱 IV

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

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


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

433 / 500 ﾍﾟｰｼﾞ

←次へ　｜　前へ→


	【4519】Re:なんどもごめんなさい・・・・

クロ - 05/3/8(火) 5:43 -


	引用なし

	パスワード

>DoCmd.RunCommand acCmdSaveRecordで、登録されたあと、
>単純にクリア（クリアボタンを作って、単純にフォームの
>項目に""を入れただけ）をして、もう一回登録すると、さ
>っき登録してたやつに上書きされちゃいました・・・。

これは正常な動作では？
同レコードをセーブした後、クリアして再度セーブすれば
レコードは移動していないのだから上書きされます。

>あと、た～まになんですけど、登録フォームのテキスト
>ボックスの初期で半角のスペースが入ってます。

フォームのコントロールプロパティかテーブル設計段階で
既定値に半角スペースがあるのでは？

・ツリー全体表示


	【4518】なんどもごめんなさい・・・・

カナ - 05/3/7(月) 17:53 -


	引用なし

	パスワード

DoCmd.RunCommand acCmdSaveRecord

というのは、レコードにsaveということですよね？
例えば、連続で登録したい場合ってのは、どうなんでしょうか？
DoCmd.RunCommand acCmdSaveRecordで、登録されたあと、単純にクリア（クリアボタンを作って、単純にフォームの項目に""を入れただけ）をして、もう一回登録すると、さっき登録してたやつに上書きされちゃいました・・・。

あと、た～まになんですけど、登録フォームのテキストボックスの初期で半角のスペースが入ってます。

すみません。。。よろしくです。

・ツリー全体表示


	【4517】クロさん、hatenaさん、いつもすみません...

カナ - 05/3/7(月) 16:43 -


	引用なし

	パスワード

クロさん、hatenaさん、せっかくレス頂いたのですが、インフルエンザで休んでました。
ご回答、ありがとうございました。
クロさん、hatenaさんのおっしゃるとおりで登録できるのですが、できない場合というのがあるので、また質問させてください。

できない場合の状況をもうちょっと洗い出して見ますので、またご相談に乗ってください。
とりあえずは、レス頂いたのに、ちょっと時間があいてしまったので、お礼を申し上げようかと・・・。

▼クロさん：
>横レス失礼します。
>
>コマンドボタン(登録)のクリック時のイベントでhatenaさんが提示された
>ものを以下のように書き換えたのなら
>
>Private Sub 登録_Click()
>On Error GoTo Err_登録_Click
>　DoCmd.RunCommand acCmdSaveRecord
>　MsgBox ("登録しました。")
>Exit_登録_Click:
>　Exit Sub
>Err_登録_Click:
>　MsgBox Err.Description
>　Resume Exit_登録_Click
>End Sub
>
>とした場合セーブ(格納)されているはずです。
>
>>入力したい値が入ってくれなくなっちゃいました・・・。
>はどのように確認したのでしょうか？
>テーブルを開いたままで確認したのなら一度閉じてから
>開いてみてください。

・ツリー全体表示


	【4516】dbaseへの出力が出来ない

山田 - 05/3/7(月) 13:17 -


	引用なし

	パスワード

ACCESSで作成したクエリー「Q_抽出」の結果を「dbaseIII」形式で「c:\」に「
ACOUT.db」のファイル名で出力したいのですが、[フィールドがレコードに適
合しません]とエラーが出ます。いろいろ試すのですがうまくいきません。
下記のコマンドですが、どこが問題でしょうか？
ご教授ください。

DoCmd.TransferDatabase acExport, "dBase III", "C:\", acQuery, "Q_抽出"
,"ACOUT.db"

・ツリー全体表示


	【4515】Re:アクティブなレコードの取得

らせつ - 05/3/7(月) 11:47 -


	引用なし

	パスワード

お礼遅くなりました。hatenaさんありがとうございます。
これを使用してできそうなので、やってみます。

・ツリー全体表示


	【4514】Re:レポートの横罫線を同一項目名ごとに引...

かめ - 05/3/3(木) 20:42 -


	引用なし

	パスワード

MJM さんありがとうございました。
何とか出来そうです。
本当に感謝です。

・ツリー全体表示


	【4513】Re:レポートの横罫線を同一項目名ごとに引...

MJM - 05/3/3(木) 13:32 -


	引用なし

	パスワード

こんにちは。

品目のグループフッターを表示して、
ここに罫線を配置しては如何でしょう。

・ツリー全体表示


	【4512】レポートの横罫線を同一項目名ごとに引き...

かめ - 05/3/3(木) 11:26 -


	引用なし

	パスワード

レポートの横罫線である項目同一名ごとに罫線を引きたいのですが可能でしょうか
－－－－－－－－－－－－－－－－－－－－
品目　　　価格　　　　　産地
－－－－－－－－－－－－－－－－－－－－
りんご　　400　　　　　青森
りんご　　300　　　　　秋田
－－－－－－－－－－－－－－－－－－－－
みかん　　200　　　　　高知
－－－－－－－－－－－－－－－－－－－－
なし　　　100　　　　　高知
なし　　　150　　　　　宮城
なし　　　230　　　　　岐阜
なし　　　220　　　　　富山
－－－－－－－－－－－－－－－－－－－－
このようにたとえば品目ごとに罫線をひけますか？
よりしくお願いします

・ツリー全体表示


	【4511】Re:なんでかな・・・テーブルに追加につい...

クロ - 05/3/2(水) 10:00 -


	引用なし

	パスワード

横レス失礼します。

コマンドボタン(登録)のクリック時のイベントでhatenaさんが提示された
ものを以下のように書き換えたのなら

Private Sub 登録_Click()
On Error GoTo Err_登録_Click
　DoCmd.RunCommand acCmdSaveRecord
　MsgBox ("登録しました。")
Exit_登録_Click:
　Exit Sub
Err_登録_Click:
　MsgBox Err.Description
　Resume Exit_登録_Click
End Sub

とした場合セーブ(格納)されているはずです。

>入力したい値が入ってくれなくなっちゃいました・・・。
はどのように確認したのでしょうか？
テーブルを開いたままで確認したのなら一度閉じてから
開いてみてください。

・ツリー全体表示


	【4510】Re:フォームヘッダー等の色の変更

布袋様 - 05/3/1(火) 20:37 -


	引用なし

	パスワード

うまくいきました。簡単だったんですね。
ありがとうございました。

・ツリー全体表示


	【4509】Re:なんでかな・・・テーブルに追加につい...

カナ - 05/3/1(火) 15:16 -


	引用なし

	パスワード

すみませ～ん、やっぱしできませんでした・・・。
入力したい値が入ってくれなくなっちゃいました・・・。

やりたいことは、登録フォームで入力した値をレコードに追加（登録）
したいのです・・・。なんででしょうか・・・

>
>入力したのもの登録したいだけなら、
>
>　　DoCmd.GoToRecord , , acNewRec
>
>ではなくて、
>
>　　DoCmd.RunCommand acCmdSaveRecord
>
>もしくは、
>
>　　Me.Refresh
>
>でOKかと。

・ツリー全体表示


	【4508】Re:アクティブなレコードの取得

hatena - 05/3/1(火) 11:56 -


	引用なし

	パスワード

>過去ログやググッってみても見つからないので質問させて頂きます。
>今選択又は表示してるレコードの番号かなにか自分は今どこのレコードにいるか、わかる方法はありますか？
>宜しくお願いいたします。

レコードの番号って、何番目かということ。
CurrentRecord プロパティで取得できます。

フィールドの値なら、

Me!フィールド名

ですね。

・ツリー全体表示


	【4507】アクティブなレコードの取得

らせつ - 05/3/1(火) 11:13 -


	引用なし

	パスワード

こんにちわ。こんなことできるのでしょうか。
過去ログやググッってみても見つからないので質問させて頂きます。
今選択又は表示してるレコードの番号かなにか自分は今どこのレコードにいるか、わかる方法はありますか？
宜しくお願いいたします。

・ツリー全体表示


	【4506】Re:なんでかな・・・テーブルに追加につい...

hatena - 05/3/1(火) 10:58 -


	引用なし

	パスワード

>Private Sub 登録_Click() >On Error GoTo Err_登録_Click > >　　DoCmd.GoToRecord , , acNewRec >　　 >　　MsgBox ("登録しました。") >　　 >Exit_登録_Click: >　　Exit Sub > >Err_登録_Click: >　　MsgBox Err.Description >　　Resume Exit_登録_Click >　　 >End Sub > >ってかくと、なぜか、２件テーブルに追加されてしまいます・・・ >（１件目はちゃんと値が入る。２件目は空白で。。。）空白の２件目というのは、新規レコード入力行のことではないですか。データが有るわけではないです。そこで新規レコード入力するためのものです。入力したのもの登録したいだけなら、　　DoCmd.GoToRecord , , acNewRec ではなくて、　　DoCmd.RunCommand acCmdSaveRecord もしくは、　　Me.Refresh でOKかと。

・ツリー全体表示


	【4505】Re:フォームヘッダー等の色の変更

クロ - 05/3/1(火) 8:28 -


	引用なし

	パスワード

Me.詳細.BackColor = RGB(255, 0, 0)
Me.フォームヘッダー.BackColor = RGB(255, 0, 0)
Me.フォームヘッダー.BackColor = RGB(255, 0, 0)

こうでいいのでは？

・ツリー全体表示


	【4504】フォームヘッダー等の色の変更

布袋様 - 05/2/28(月) 20:52 -


	引用なし

	パスワード

フォーム上にCheck1というチェックボックスを貼り付け、それにチェックを付けたとき、フォームの詳細の色を変えるという操作を作りました（以下のとおり）。

Private Sub Form_Current()
　　If Me!Check1 Then
　　　　Me.Section(acDetail).BackColor = RGB(255, 0, 0)
　　Else
　　　　Me.Section(acDetail).BackColor = RGB(0, 0, 255)
　　End If
End Sub

この場合は詳細の色が変わりますが、フォームヘッダー、ページヘッダー、フォームフッダー、ページフッダーの色をそれぞれ変えるときは、acDetailのところをどのように変えればいいのでしょう？

・ツリー全体表示


	【4503】Re:テーブルのデータ型について

もも - 05/2/28(月) 19:22 -


	引用なし

	パスワード

ありがとうございました。

・ツリー全体表示


	【4502】Re:テーブルのデータ型について

クロ - 05/2/28(月) 16:50 -


	引用なし

	パスワード

▼ももさん：
>金額フィールドのデータ型を　数値・長整数型　にしていますが
>5,000,000,000　と入力すると

ですから、
長整数型　　　　-2,147,483,648 ～ 2,147,483,647
と書いたように正では「2,147,483,647」が上限です。
別のフィールドタイプを選ばないと....

もしくはデータ型を「通貨型」にしてみては？
書式を標準にすれば「\」が付かないと思います。

・ツリー全体表示


	【4501】Re:テーブルのデータ型について

もも - 05/2/28(月) 15:59 -


	引用なし

	パスワード

金額フィールドのデータ型を　数値・長整数型　にしていますが
5,000,000,000　と入力すると
　
　このフィールドに入力した値が不正です。
　たとえば、数値型のフィールドに文字列を入力しました。

という警告が出ます。
入力できるようにするにはどうしたら宜しいですか？

・ツリー全体表示


	【4500】なんでかな・・・テーブルに追加について...

カナ - 05/2/28(月) 14:16 -


	引用なし

	パスワード

こんにちは、すみません、また、お願いします。

Private Sub 登録_Click()
On Error GoTo Err_登録_Click

　　DoCmd.GoToRecord , , acNewRec
　　
　　MsgBox ("登録しました。")
　　
Exit_登録_Click:
　　Exit Sub

Err_登録_Click:
　　MsgBox Err.Description
　　Resume Exit_登録_Click
　　
End Sub

ってかくと、なぜか、２件テーブルに追加されてしまいます・・・
（１件目はちゃんと値が入る。２件目は空白で。。。）

なんででしょうか？？？

・ツリー全体表示


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

433 / 500 ﾍﾟｰｼﾞ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free