【I love Access】や ..
[2ch|▼Menu]
515:NAME IS NULL
08/02/19 22:03:12
>>512
オートレポートってアメリカならいざしらず罫線を使った複雑な帳票を要求される日本では使い物にならない。
ラベルとテキストの連結は便利なようで実際はじゃまにしかならない。

レポートって最初からレイアウトが一発で決まるということはまず無くて、
結局修正修正の繰り返しになることがほとんど。
経験上、簡素なやり方だと後で手直しする手間がかえってかかる。
複雑な帳票になるほど一つ一つコントロールを配置していくほうが結局近道になる。
複雑な帳票といっても良く見ると似たようなコントロールが多いので、
一つ作ってそれをコピーしてから修正すれば意外と手間はかからない。

まあ、意にそぐわない答えだと思うけど正直そう思う。

516:NAME IS NULL
08/02/19 22:07:04
似たようなものがいっぱいあるとき
全部のプロパティいじるの面倒で仕方ないんですが
コントロールの配列みたいなことは出来るんですか?


517:NAME IS NULL
08/02/19 22:37:59
>>516
> 似たようなものがいっぱいあるとき
> 全部のプロパティいじるの面倒で仕方ないんですが
いったいいくつあると言うのかな?
似たようなものならいじらなければならないプロパティはそんなにないと思うのだけどね。
例えば31個のフィールドがあるならば最初にData01を作ってコピーした先をData02とすれば1を2に変えるだけ。
最初からそういうことを念頭においてテーブル設計しておけば面倒なことはないと思う。
それからコピーしてペーストしたコントロールを移動してからさらにペーストすれば、
移動した方向にいくつでも並べられる。これを使うと配置も便利。
工夫次第でこれくらいのコントロールは簡単にできるよ。
そのくらいことで面倒なんて言っていたらVBAなんてとてもできないし、
VBAを使わないAccessなどクリープの入ってない・・・・・・(w

31個よりはるかに多いというのならそれは根本的に考え直したほうがいいと思う。
31個の例でもプレビューするのに何分もかかりました。
それよりはるかに多いのなら使い物にならないだろうし、
ハングして動かなくなる可能性も高い。

> コントロールの配列みたいなことは出来るんですか?
コントロールの配列ってまったくイメージがわかないんだが、出来ないだろうと思うよ。

518:NAME IS NULL
08/02/19 22:42:08
>>515
いや、参考になりやす
アメリカ文化の日本文化の罫線 
バカヤローです。

ただofficeの浸透力、シェアにあきらめて
やるしかないですね

519:NAME IS NULL
08/02/19 22:52:21
>>518
ここで出てきそうな言葉が「桐にしとけ」なんですが、
確かにこういう分野は桐が得意でいいんですが、
桐には桐の問題点があるんでね。
Accessでも工夫次第で大抵のことはできるんでがんばってください。


520:NAME IS NULL
08/02/19 23:05:07
>>517
コントロール配列はVBでは基本テクニックっすよ。

521:NAME IS NULL
08/02/19 23:24:24
 VB6 では、実行時に配列を振る必要はないのですが、デザイナで 1 つ、コピー元になるコントロールを配置しておく必要があります。
また、そのコピー元の Index プロパティを画面デザイナから 0 に設定しておいてください。(実行時の設定はできません)
新しいコントロールを追加するというよりは、コントロールを複製するという動きになります。
そのコピー元は Index プロパティが 0 のコントロールで、Load ステートメントを使用することで複製されます。
この時、Visible プロパティは False になっていますので、True にする必要があります。


522:NAME IS NULL
08/02/19 23:24:56
URLリンク(jeanne.wankuma.com)
' Load イベントで配列を動的に作成してフォームに加える
Private Sub Form_Load()
    Dim i As Integer
    For i = 1 To 9
        ' Load ステートメントを使用してコントロールを作成する
        Call Load(Me.Text1(i))
        ' ここで、プロパティなどを必要に応じて設定します
        Me.Text1(i).Text = "Text" & CStr(i + 1)
        Me.Text1(i).Top  = Me.Text1(0).Top + (240 * i)
        ' 初期値で False になっているので True にする
        Me.Text1(i).Visible = True
    Next i
End Sub

523:NAME IS NULL
08/02/19 23:28:14
VBAでは使えないサンプルソース乙

524:NAME IS NULL
08/02/19 23:34:43
>>516
桐には初めからファミリってのがあって、コントロールをグループ化して一括で設定できるど

525:NAME IS NULL
08/02/19 23:35:54
URLリンク(www.h3.dion.ne.jp)
URLリンク(www.moug.net)
URLリンク(okwave.jp)


526:NAME IS NULL
08/02/20 11:29:28
>>504
アドバイスありがとう

527:NAME IS NULL
08/02/20 12:09:20
>>525
アドバイスありがとう

528:NAME IS NULL
08/02/20 20:58:58
>>514
エクセルならいざしらず、まずデータをコード化しないとどうにもならないと思いますよ。
このままコード化しないまま処理しようと思っているのなら、エクセルでやったほうがいいでしょう。

それはともかく考えかたとしてはこういうことでいいと思います。
規格によって書き込む位置が変わるわけですからその規格がどの位置になるかの情報が必要です。
この場合2Lは1の位置、3Lは2の位置、Lは1の位置ということになります。
この位置情報をテーブルで保存しておきます。

そしてあらかじめ変換したい形の空白のデータベースを用意し、そこに商品マスターからデータを流し込みます。
そのテーブルに元の形式のテーブルと位置情報のテーブルをリレーションして更新をかけます。
これはSQLをつかうのが簡単で早いでしょう。

とはいうものの本当にこんなやり方でいいんでしょうか?やさいというのは単なる例なのでしょうが、
規格がある一定の範囲で収まるとは思えないのですが・・・・
印刷サイズを越えたらどうするのでしょう?
根本的に考え方を変えたほうがいいように思うのですが?


529:NAME IS NULL
08/02/20 23:10:49
衣料品の規格Lは常識的に推理できるけど野菜の2Lとか3Lとかが
どんなものかまるで想像つかないな。
もしかしたら4Lとか5Lとか99Lとかたくさん種類があってそれを50音順に、
あるいは入力順に左詰めで並べたいということだろうか?
順番は関係なく、とにかく3つが横並びになっていればいいのか?
同じ野菜で同じ規格が複数行入力されたら数量は合計するのか?
4つめの規格が入力されてしまった場合は捨てるのか?数量4を用意するのか?
それとも4つめの規格については絶対入力されない保証があるのか?

もうちょっと要件定義が必要だとオモタ

530:514
08/02/20 23:49:11 DCQNrO7Q
>>528
レスありがとうございます

詳しい説明文もかかずすいませんでした
全然説明不足でした

DATAというテーブルに下記の形で入力します
納品先 |商品名    |規格  |数量  |
-------------------------------------
A    |やさい    |2L   |50   |
A    |やさい    |3L   |30   |
A    |やさい    | L   |15   |
A    |やさい    | M   |20   |
A    |やさい    | S   |33   |
A    |やさい    |等外  |40   |
B    |衣料品   |L    | 5   |


変換後というテーブルを作成しておき以下のように
VBAなりの方法で以下のように追加したいと思います
納品先  |商品名  |規格1 |数量1 |規格2 |数量2 |規格3 |数量3 |規格4 |数量4 |
--------------------------------------------------------------------------------
A     |やさい   |2L   |50  |3L   |30  |L |15 |M |20 |
A     |やさい   |S    |33  |等外  |40  |    |     |     |     |
B     |衣料品 |L    |5   |     |    |   |   |     |     |

規格で位置が決まってるわけではありません
規格、数量とも1〜4まで交互にあり
その商品ごとの規格、数量ははかならず1からはじまります
仮にやさいで規格が6つ存在したら
次のレコードの規格1の所に入る形でやりたいです

うまく伝わりましたでしょうか?

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



531:514
08/02/21 00:04:34 Wq3um4ha
>>530
かなりずれてしまいました

>>529

>衣料品の規格Lは常識的に推理できるけど野菜の2Lとか3Lとかが
>どんなものかまるで想像つかないな。
>もしかしたら4Lとか5Lとか99Lとかたくさん種類があってそれを50音順に、
>あるいは入力順に左詰めで並べたいということだろうか?
>順番は関係なく、とにかく3つが横並びになっていればいいのか?

  やさいに限らず規格は無限と考えてもらえると助かります
  並ぶ順番などは特にないです
  上にあるものからでかまいません

>同じ野菜で同じ規格が複数行入力されたら数量は合計するのか?

  集計に使う予定で考えてますので
  クエリをつかって日付で抽出し、納品先ごとで合計します
  

>4つめの規格が入力されてしまった場合は捨てるのか?数量4を用意するのか?
>それとも4つめの規格については絶対入力されない保証があるのか?

  530を見てもらえると助かります

532:NAME IS NULL
08/02/21 00:32:42
レポートならこんな感じにサブレポートの列数を指定してやるといい。
URLリンク(nullpo.vip2ch.com)


533:NAME IS NULL
08/02/21 02:30:27
'ADO参照追加
Private Sub hoge()
Dim cn As New ADODB.Connection
Dim rstKey As New ADODB.Recordset
Dim rstData As New ADODB.Recordset
Dim rstTrans As New ADODB.Recordset
Dim count As Integer
Dim flg As Boolean

Set cn = Application.CurrentProject.Connection
cn.Execute "DELETE FROM 変換後"

rstKey.Open "SELECT 納品先,商品名 FROM DATA GROUP BY 納品先,商品名", cn, adOpenForwardOnly, adLockReadOnly
rstTrans.Open "SELECT * FROM 変換後", cn, adOpenForwardOnly, adLockOptimistic

Do While Not (rstKey.EOF)
w = 0
flg = False
rstData.Open "SELECT * FROM DATA WHERE 納品先='" + rstKey.Fields(0) _
+ "' AND 商品名='" + rstKey.Fields(1) + "'", cn, adOpenForwardOnly, adLockReadOnly
Do While Not (rstData.EOF)
If w = 0 Then
flg = True
rstTrans.AddNew
rstTrans.Fields(0) = rstData.Fields(0)
rstTrans.Fields(1) = rstData.Fields(1)
End If
rstTrans.Fields(w * 2 + 2) = rstData.Fields(2)
rstTrans.Fields(w * 2 + 3) = rstData.Fields(3)

If w < 3 Then
w = w + 1
Else
rstTrans.Update
flg = False
w = 0
End If

rstData.MoveNext
Loop
rstData.Close
If flg Then
rstTrans.Update
End If

rstKey.MoveNext
Loop
rstKey.Close
rstTrans.Close

Set rstKey = Nothing
Set rstData = Nothing
Set rstTrans = Nothing
Set cn = Nothing

End Sub


534:NAME IS NULL
08/02/21 10:56:56
規格、数量とも1〜4までって限度が決まってるなら、桐でやれば簡単じゃん

535:NAME IS NULL
08/02/21 15:05:24
>>531
>  クエリをつかって日付で抽出し、納品先ごとで合計します

Pivot使えばテーブルの変換不要
元テーブルから直接集計汁

536:NAME IS NULL
08/02/21 15:10:18
>>534
だれもそんなこと聞いてないよ。空気読めないというか、読む気が無いアホは引っ込んでろ。
俺はVer1からの桐ファンなんだけど、桐の評判落とすようなことはするな!
桐を使うか?Accessを使うかはケースバイケース。
だいたいの場合、手軽にやるなら桐、アプリケーションを作るつもりならAccessを使う。
桐しか使えないアホがなんでも桐が一番なんていうのは良い恥さらしだ。



537:NAME IS NULL
08/02/21 15:14:43
変なの来たわ

538:NAME IS NULL
08/02/21 18:04:05
>>530
上のテーブルはいいけど、下のテーブルはもはやリレーショナルデータベースである意味がない。
もちろん、VBAを使って無理矢理やればどうとでもそういうデータを作成できるけど、
それはVBAを勉強しろとしか言えない。

VBAでやるきがあるなら「レコードセット」がわかればできると思うよ。

>>  集計に使う予定で考えてますので
>>  クエリをつかって日付で抽出し、納品先ごとで合計します

ならば、上のデータを直接クエリやVBAで集計することを考えた方がいいのでは?

539:514
08/02/21 19:28:23 Wq3um4ha
>>533
できました
ありがとうございました
使わせていただきますね
自分ももっと勉強しなければ...

>>535
基本は複数行入力しないように心がけてるので大丈夫です

>>538
人から頂いたコードをカスタマイズする程度ならできるんですけど
一からとなるとちょっと自信ないんです....


  

540:NAME IS NULL
08/02/21 20:31:59
>>539
そういう なまいきな発言をするから、周りの人に教えてもらなくなって、ここで聞いているんだね。

541:NAME IS NULL
08/02/22 00:47:15
つか、こんなレコード作ってなんに使う気なんだ?

542:NAME IS NULL
08/02/22 05:22:45
いっぱい釣れたのでもういいです

543:NAME IS NULL
08/02/22 09:47:34
>>541
上のほうで出てた印刷イメージのデータを作るってことじゃないか?

544:NAME IS NULL
08/02/22 20:40:56
>>543
まあ、そうなんだろうけど正直あまり良いやり方ではないと思う。
そのまま印刷したんじゃやたら縦に長い表になるからって、
わざわざこんな面倒なことをするんだろうけど、
それなら段組印刷でもすればいいと思う。
そっちのほうがずっと見やすいしシンプルだ。
これもそう簡単に実現はできなさそうだけど
同じ努力するならそのほうが良いと思う。


545:514
08/02/23 14:47:52 BrdEtbtD
>>540
気にさわったのであればすいません
そんなつもりはありませんでした

>>541
543さんの方が言われるとおりです
今までエクセルでこの形で印刷してたんですけど
アクセスに移行しても見慣れたこの形がいいといわれまして





546:NAME IS NULL
08/02/23 15:24:51
>>545
> アクセスに移行しても見慣れたこの形がいいといわれまして
見慣れてない俺からしてみると不自然なんだけどね。
まあしょうがないか?現実にはすべて合理的ってわけには行かないものなあ。



547:NAME IS NULL
08/02/24 22:20:07 +jC5teAM
>>514
印刷目的ならテーブル(or クエリ)レベルで変換するより複数列レポート使うのがお奨め。
たぶん今後も開発や修正が出てきそうな雰囲気だから、作るなら柔軟性や汎用性を持たせておいたほうがいいと思うよ。
「見慣れた形がいい」程度の理由で決めてる相手なら、今後も「列数変えろ」とか「伝票印刷もしたい」とか言い出す可能性があるからね。

548:NAME IS NULL
08/02/25 07:56:12
要するにこういうこと。
URLリンク(www.nurs.or.jp)
実際に作って見せればこっちのほうが見やすいっていうと思うよ。

そうしてきっとこう言うんだよ。
「俺が言っていたのはこういうことだよ。やっとわかったか?」
「嘘つけ!」
www


549:NAME IS NULL
08/02/28 17:48:38 Tzp8hxPl
アクセスのコンソールクライアントを探してたのですが、ベクター探しても無かったので
WSHの練習を兼ねて作ってみました。
うっぷします。
詳細は同梱のREAME.txtを読んでくだされ。
pass:ac
URLリンク(www-2ch.net:8080)

・ac.wsf
 MSアクセスのコマンドラインクライアント
 使い始めは"/c"スイッチで環境ファイルを作成してください。
 起動すると"AC>"とプロンプトを表示するのでSQL文を入力して下さい。
 画面の表示の整形はCSVです。
 ※標準入力を使用してるので、CScript経由で無いとエラーになります。

使い方:/h (ヘルプ) /b (bachモード) /c:MDBへのパス または /d:dsn名 (最初のみ)
    /u:ユーザ名 /p:パスワード 環境ファイル名(省略時はdefault設定)

※AC>プロンプト内のコマンド
AC>プロンプト内では次のコマンドが使えます。
    AC>help;
      help;       :この表示
      quit;       :コンソールの終了
      (SQL文);    :SQLの実行
      @(ファイル名);  :ファイルの実行
      !(コマンド名);  :コマンドの実行

      注)文末記号(;)の後にリダイレクト記号(>)とファイル名で
        出力先をカレントディレクトリのファイルにします。
      例)select * from TEST;>data.csv

※元々CSVを取得、投入するスクリプトを改造したので、CSVを投入する
 スクリプトも同梱します。
・acm.wsf
使い方:/h (ヘルプ) ( /i or /u:キー項目名 挿入 or
    /t:テーブル名 環境ファイル名(省略時はdefault設定)

550:NAME IS NULL
08/02/28 18:57:46
schemaとかdumpとか希望

551:NAME IS NULL
08/02/28 21:08:13
JetSQLConsoleが有名(Wikipediaにも載ってる)だけどね。
そっちは日本語化けるから、そういう点では価値あるかも。

552:NAME IS NULL
08/02/29 05:49:55
Error : 3661
[object Error] on Connection Open
アプリケーションを起動できません。システムデータベースが存在しないか、またはほかのユーザーが排他的にシステムデータベースを開いています。

553:NAME IS NULL
08/02/29 12:48:13 MrGipuX/
>>552
MDBまでのパスが正しいか確認してくれ。
途中に空白があるとダメかも知れん。
cスイッチを゛でくくってくり。
例 /c:"c:\My Document\test:mdb"

若しくは本当に裏でMDBが開いてるか。
アクセスアプリを開いてるとそんなのが出た。
その場合はアクセス側でマルチユーザーの設定をしないとダメかも。
メニューに共有ユーザーの設定があったと思う。



554:NAME IS NULL
08/03/03 18:17:09
ところでAccess2007のランタイムはどうなったのだろう?


555:NAME IS NULL
08/03/03 18:21:11
>>554
普通に使ってますが何か?

556:NAME IS NULL
08/03/03 18:25:33
>>555
あっそうなんだ。
URLリンク(www.microsoft.com)
ここにあるやつ?英語版で問題ないの?


557:NAME IS NULL
08/03/03 18:32:14
URLリンク(www.microsoft.com)
URLリンク(www.microsoft.com)

558:NAME IS NULL
08/03/03 18:47:26
>>557
両方インストールせいってこと?
現在2000なんだけど、ランタイムがまともに動くなら2007にしてもいいかなと思ったりしている。
でも英語版でふりがな入力とかちゃんと動くのだろうか?


559:NAME IS NULL
08/03/03 18:51:39
>>558
URLリンク(office.microsoft.com)

560:NAME IS NULL
08/03/03 18:52:12
>>558
URLリンク(office.microsoft.com)

561:NAME IS NULL
08/03/03 19:35:47
別に無理に答えろとは言ってないよ。
使用した人間の実体験を聞きたいのであって、調べればわかるサイトの情報なんていらないよ。
つうことで後は無視するから悪く思わんでくれ。


562:NAME IS NULL
08/03/03 19:39:09
あんた誰?

563:NAME IS NULL
08/03/03 22:16:40
基地外きたー

564:NAME IS NULL
08/03/05 02:20:14
昨日Access2007を購入したばかりです。

>>557 のランタイム及びDeveloperExtensionsを早速インストールしました。
Officeボタン?に最初「Developer」と表示されていたのに、いつの間にか消えています。
その後ランタイムやDeveloperExtensions、はたまたAccess2007本体まで
アンインストール→再インストールしたのに、一向に「Developer」が表示されません。

何が原因なのだろう・・・?
ランタイム無償というコトバに飛びついて買ったのに・・・
どなたかおわかりの方いらっしゃいませんか?

あちこちネットで見てもこの現象は出てないみたいです。
ちょっと疲れたので仮眠します。

565:NAME IS NULL
08/03/05 08:29:59
ランタイムとOffice本体は同じPCにインストールしてはいけない
あくまでOfficeの入っていないPCに入れるためのものだから
ご愁傷さま


566:NAME IS NULL
08/03/05 08:40:05
DeveloperExtensionsで、ランタイム込みのパッケージと、ランタイム別途ダウロード指示のパッケージを作れる
別途ダウン指示パッケージの配布先がランタイムダウンする
自分でランタイム入れてどうすんのよ

567:NAME IS NULL
08/03/05 12:15:51
>>564です。
>>565 >>566
レスありがとうございます。確かに自分のPCにランタイム入れてました。
アンポンタンでごめんなさい。
やりたいことは「Access2007で作成されたもののランタイム版を作成する」ことですので、
自分のPCにはDeveloperExtensionsだけ入れれば良いのですね?

ランタイムそのものはアンインストールしましたが、それでも「Developer」が
オフィスボタンから表示されません。
今回導入したのはAccess2007のみで、その他のOffice製品はOfficeXPを
使っています。この中にはAccess2002も含まれています。
つまりAccess2002と2007が共存している状況なのですが、これが良くないのかなぁ?


568:NAME IS NULL
08/03/14 02:02:15 ppdTlgN9
ACCESSに詳しい方がいらっしゃるようなので、教えてください。ACCESS2003ユーザーですがテーブルのカーソル移動が突然遅くなり、画面の左下には計算中って表示されます。動きが遅くていらいらするんですがどなたかこの現象の解決方法ご存じですか?

569:NAME IS NULL
08/03/14 05:22:39
そういう難しい話は詳しい人に聞いた方が良いな

570:NAME IS NULL
08/03/14 09:49:51
>>568
On Current イベントは削除してください

571:NAME IS NULL
08/03/14 12:17:55
>>568
関係ないが・・・

>>ACCESSに詳しい方がいらっしゃるようなので、教えてください。

Accessに詳しい方がいらっしゃらないAccessスレっていうのも見てみたいなw

572:NAME IS NULL
08/03/14 13:34:46
Accessには詳しいが、お前の環境やファイルのことなぞ知らんわ。

573:NAME IS NULL
08/03/15 07:19:11
2007で数値型フィールドだけカーソル移動がやたら遅くなる現象があったけど
SP1当てたら直ってたな

574:NAME IS NULL
08/03/16 02:12:15
Access2007の購入考えているんですが、Vista対応ってしてますか?
公式HPのシステム要件ではよくわからんかった。

575:NAME IS NULL
08/03/16 12:59:54 GiAudtrQ
>>574
もちろんだよw
XPとVistaそれとServer2003に対応。

576:NAME IS NULL
08/03/16 22:42:30
サンクス。じゃ勉強用に買うわ。

577:NAME IS NULL
08/03/25 17:16:45 B6LLrA9G
>>562
ハナテン中古車センター

578:NAME IS NULL
08/03/30 19:12:33
>>568
>On Current イベントは削除してください

と同義かどうか分からないが、一旦mdb閉じて、ldb削除すると治ったことがあるよ

579:NAME IS NULL
08/03/30 22:14:46 bRsz35Vf
既出だったらすいません

コンボボックスで数字を打ち込むようにしたのですが(1テキスト1文字)
ボックスの大きさのせいもありますが、矢印のせいで選択した数字が
見えなくなってしまいます。
アクティブにしたときまたはカーソルがあったときだけ矢印が現れ
そうでないときは非表示なるような技はないでしょうか?

よろしくお願いします。

580:NAME IS NULL
08/04/01 23:40:26
テキストorラベルと
コンボボックスを
同じ場所に重ねる
ラベルがクリックされたら
コンボボックスを手前に出す
コンボボックスが確定したら
ラベルを手前に出す


581:NAME IS NULL
08/04/05 14:45:47 LoFR07Xc
アクセスのフォームに住所・氏名を入力しているのですが、
これを一太郎の宛名ラベルに出力するにはどうすればいいのでしょうか?
フォーム1,2,3,4、、、、、とあり、連続して出力したいので、
マクロをつかえば半自動化できそうなのですが。
マクロじゃあムリでしょうか?VBA必須でしょうか?

582:NAME IS NULL
08/04/05 19:16:20
>>581

なぜフォームから?
いったんテーブルに落としてから印刷させればいいじゃん?
そうすればフォームはひとつで済む。
一太郎は持っていないので知らんが、
Wordだと落としたテーブルのデータをデータソースにすればいい。
つうか、Accessのレポートだとできないようなことなのか?


583:NAME IS NULL
08/04/06 00:44:21
ジャストシステムに電話してください

584:NAME IS NULL
08/04/06 11:28:24 tzUTMXnW
>>582
ワード(一太郎)から差し込むのではなく、アクセスのフォーム上の
コマンドボタンを押すと、ワードに出力されるようにしたいのです。
というのは、
アクセスの現在のフォームに対応したものをワードに作りたいという
のと、主にアクセスをつかって入力しているからです。

レポートだと宛名書きはいいんだけど、その他の文章はアクセスから
一太郎に出力しているので、2度で間になります。
つまり、フォームからの出力とレポートへの変換とう2作業を
1つにしたいのです。


585:NAME IS NULL
08/04/06 11:32:01
質問があります。
前のレコードに移動するボタンがあります。
先頭のレコードからは前のレコードに戻れない為、エラーゴーツーなるコマンドでエラーを拾っています。
この度、レコードを移動した際に更新前処理で更新するかを確認するようなメッセージを設定しました。
更新しませんと選ぶとキャンセルをTRUEに、ME.UNDOとして処理前の状態に戻しました。
ここで先のレコードが移動出来ない時のエラーが出てしまいます。
アドバイス下さい。

586:NAME IS NULL
08/04/06 11:58:52
アドバイス

587:NAME IS NULL
08/04/06 12:25:55
On Error Resume Next

を先頭に書いとけ

588:NAME IS NULL
08/04/06 15:08:03
>>584

@フォームの入力はアクセス
A文章の入力はアクセス


どう見ても一太郎を使うこと自体が二度手間です。

589:NAME IS NULL
08/04/06 22:17:10
「ワード(一太郎)」って時点で意味不明すぎる

590:NAME IS NULL
08/04/07 01:05:38
Wordに「一太郎」っていう名前を付けて可愛がってる。
「ウチの嫁」みたいなもの。

591:NAME IS NULL
08/04/08 09:37:18
ワードからでも一太郎のファイルが開けるから
一緒になってんじゃね?

592:NAME IS NULL
08/04/08 09:43:22
そういうもんじゃないだろ。

593:NAME IS NULL
08/04/09 19:30:00 R5oZK5Ol
accessでDB作ってるんですが質問に答えていただけると幸いです。

まず、テキストボックスに入力した値をもとに検索をかけて表示
する画面を作りました。
検索の処理はVBAで作成し、form.openとかいうコマンドで表示するクエリにフィルターかけて
検索結果を表示するフォームへ投げてます。
このクエリと検索処理に問題はないと思うのですが、結果を確認すると、
検索にひっかかったデータ以外に
新規レコード(主キーのID(数値型)0が入ってる)が表示されてしまいます。
この新規のレコードが何故表示されるのかわかりません。
このフォーム自体は、追加・削除・更新全て禁止にしております。
お助けください。

594:NAME IS NULL
08/04/09 21:03:57
[追加・削除・更新全て禁止]

ほんと?


595:NAME IS NULL
08/04/09 21:12:10
たぶんホント。
「追加・削除・更新全て禁止」と書いたラベルを貼ってあるから。

596:593
08/04/09 22:46:22 R5oZK5Ol
>>594
フォームの設定で禁止にしてます。
データ更新のフォームも同じような画面なんですが
そちらは追加禁止にすることで新規レコードは表示
されません。
ソース比べても全然わからないので一応Accessの仕様ということで諦めぎみです。
ちなみにやぶれかぶれでID=0及び、IDがNULLは持ってくるなっていう条件を指定
してみましたが駄目でした。
これについては新規のレコードなんでIDに条件加えたところで意味が無いのかも知れませんが一応。

597:NAME IS NULL
08/04/09 23:20:02
まず、日本語の勉強からだな

598:NAME IS NULL
08/04/10 00:09:23
「データ更新のフォーム」とやらをパクってきてVBA部分だけ移植すればいいじゃない

599:596
08/04/10 00:58:37 CzUi+X9O
>>598
やっても駄目なんです。

600:NAME IS NULL
08/04/10 01:28:59
駄目なやつってホントに何をやらせても駄目なんだな・・・

601:NAME IS NULL
08/04/10 02:57:06
>ソース比べても全然わからないので一応Accessの仕様ということで諦めぎみです。

そんな仕様はない。

つくりの問題としか思えないが、こちらはソースを見れないので、話だけではどうにも。

ローカルテーブルなら、MDBのコピーとって、全レコード削除したらどうよ。
本当にそれが新規レコードなら、それでも出てくると思うけど、もし出てこなかったら
それ新規レコードじゃないと思われ。

602:NAME IS NULL
08/04/10 18:42:18 wWHoh7J7
こんにちは。
アクセスの初心者の質問はここで良いですか?スレ検索しましたが、見つからなかったので…

603:NAME IS NULL
08/04/10 19:32:43
>>602

ビジネス板にもACCESSスレがあるが
正直こことの使い分け方がよう解らん。
とりあえず、質問をしてみるのが吉。

604:NAME IS NULL
08/04/10 19:55:31 wWHoh7J7
ありがとうございます。
かなりあほな質問かもしれませんが、ご容赦ください。

例えば、社員一覧テーブルがあるとします。それとは別に、部署一覧テーブルがあります。

部署一覧は、部と課の二つで構成されます。例えば
ーーーーーーーーーーーーーー
A部   人事課
A部   総務課
A部   経理課
B部   営業1課
B部   営業2課
C部   企画1課
C部   企画2課
C部   企画3課
ーーーーーーーーーーーーーー

ここで、社員一覧のテーブルで、社員の部と課を入力するときに、部署一覧テーブルのデータから入力したいのですが、

1.[部]列には、部署一覧の部のみ表示(ただし重複はさせない。この場合、A部、B部、C部と表示)させて選択できるようにする。

2.一方[課]列は、もし[部]にA部が入力されていたら、それに付随する人事課、総務課、経理課のみが選択できるようになる。

こういうことをしたいのです。

ルックアップとか、クエリとかいろいろやってみても分かりません。たぶん、かなり初心者な話だと思いますが…

よろしくお願いします。 

605:NAME IS NULL
08/04/10 21:32:18
俺だったら部だけのテーブルも作る。
で、フォームを使う。
この辺の仕様変更はできるの?


606:NAME IS NULL
08/04/10 22:46:19 r1j6EY9K
604です。

部だけのテーブルを作るとかいうのもありです。
基本的に、社員一覧テーブルに情報を打ち込むときに、打ち込みやすく間違えがないように
すればいいのであって、仕様はシンプルであればどのようでも良いです。

部は確かにそれだけのテーブルを持つか、値から選ぶようにすればいいのですが
2.についてはどうでしょうか。

似通った課名もあるので、できれば入力の際に
  B部|営業1課
  B部|営業2課

と2列を出して、選んだらセルには「営業1課」と2列目が入力される、とかできればいいのですが。
C部 → 営業1課 という部と課が一致しない入力を避けたいという気持ちです。

この辺だけできれば、あとは単なる社員情報一覧だけのテーブルで、プリントするものを
自動で作ったり(名前を差し込んだりして)したいだけで、特段難しいことはする予定ないです。


607:NAME IS NULL
08/04/10 23:45:52
部テーブル  →部ID、部名
課テーブル  →課ID、部名、課名(部名は部テーブルよりルックアップ)
社員テーブル →社員ID、部名、課名、社員名…etc(部名は部テーブルより、課名は課テーブルよりルックアップ)

なんて構造にして、ウィザードで社員テーブルを元にフォームを作ればいい。
そうすれば部名、課名はコンボボックスになっているはずだから
部の更新後処理で課を絞り込めばOK。


608:NAME IS NULL
08/04/11 00:15:07
例えば電算部がシステム部とかに名称変更された時、
部テーブルの1行だけ修正すればおkな設計にしといたほうがよくないか?

609:NAME IS NULL
08/04/11 00:20:52
ID使ってルックアップ列だから
多分大丈夫じゃないか。

610:NAME IS NULL
08/04/26 21:58:57
Video ActiveX 入れると、youtubeで国別視聴制限が掛ってるオランダの16歳金髪ポルノが見れる件
自動的に選択メニュー出るし

611:指定数分のレコードコピー
08/05/02 00:27:04
VBAにて指定した分だけのレコードコピーの仕方がわかりません
お知恵貸していただけませんか?

テーブル「DATA」は
発注日=日付型
納品日=日付型
得意先CD=テキスト型
得意先名称1=テキスト型
得意先名称2=テキスト型
商品=テキスト型
件数=テキスト型
以上のフィールドがあります。

発注日で抽出したものを「DATA」に新規追加してます
その後に件数に入力した数だけそのレコードをコピーしたいんですけどどうすればいいでしょうか?
よろしくお願いいたします



612:NAME IS NULL
08/05/02 06:42:18
いまいち何がしたいか分からんから的はずれかもしれないけど
データ追加クエリを使えばいいんじゃないの?


613:NAME IS NULL
08/05/02 09:30:38
何をどこからどこへコピーしたいのか、もう一回整理して書き込んだらいい
あの説明でわかる人間は皆無だ

614:NAME IS NULL
08/05/02 12:49:58
同じテーブルないでコピーしたいと思っています

615:NAME IS NULL
08/05/02 13:24:15
for i=1 to rs("件数")
sql="insert ....... "
cn.Execute sql,,adExecuteNoRecords
next

616:NAME IS NULL
08/05/05 06:48:03
特定の条件に合致したテーブルのデータを修正するvbaを作って動かしてたんですが、凄い時間が掛かることが分かって悩んでます

do until rs.EOF
if ○ and ○ then
end if
rs.movenext
loop

ってやってるんですが、もっと高速化するやり方ってありますか?

617:NAME IS NULL
08/05/05 07:14:42
一軒づつポインタをあてて処理していく方法はとても時間が掛かります。
インデックスを再検討することで速くなったりしますが大抵は焼け石に水という感じでしょう。
クエリによりwhere節でデータを絞り込んで該当件数に対して一括処理していく方法が
取れないものか、考え直してみましょう〜

いやこれはどうしようもないんですよ、、、って思われるかもしれませんが
本処理の前に前処理や後処理を加えても良いのですから、考え方を変えるつもりで。
ガンガレ

618:NAME IS NULL
08/05/05 15:18:06
where節というのは知りませんでした
なんか速くなりそうですね!ありがとうございます

619:NAME IS NULL
08/05/05 18:33:20
やりたい事によっては使えないかもだけど
UPDATE ステートメント、更新クエリもチェックしてみたら?

それと、どれくらい遅いか客観的に分かるデータ=
レコード数、処理時間、おおまかなマシンスペックは
有った方が回答を得やすいんじゃないかな
>>617 さんの回答で解決したならいいんだけど


620:NAME IS NULL
08/05/05 19:16:21
すいません。まだwhereも試してないのですが
スペックはpentiumD 2.80GHtz メモリ512MB
レコード数はおよそ2000万くらいで、条件式が6000あってそれを順に代入していく感じです
試しに条件式を一つだけにしてみたら10分くらいかかったので、たぶん40日くらい掛かる計算でした

621:NAME IS NULL
08/05/05 21:21:14
質問の内容から察するに当の本人の力量はレコード数2000くらいのDBを扱うのが
一杯一杯ぽいけど・・・ なんという無茶な

622:NAME IS NULL
08/05/05 21:47:03 vthO5f4T
>>620
2000万件 条件6000!
学生さんで、実験データか何かかしらね
Access でやる範囲を超えてると思いますよ

2000万件もあると、Access で入力や変更してないでしょ?
データを出力するプログラムがあるなら、これを変更してしまうとか
データがファイルで有るなら、Access に入れずに
直接読み書きするプログラムを書いた方がいいですよ キット


623:NAME IS NULL
08/05/05 22:34:39
まずテーブルに[不一致]フィールドをYes/No型で追加して
インデックスを作成しておいて…

次のクエリを6000回繰り返す。
UPDATE テーブル名 SET [不一致]=True
WHERE ([不一致]=False) AND (条件nに該当しないもの)

※繰り返す際、条件nがなるべく厳しいものから実行する。
極端な話、1回目のクエリで2000万件が1件に絞られる可能性もある。


最後に[不一致]=Falseのレコードに対して必要な修正を行う。

※この方法なら40日はかからないはず…1〜2日ジャマイカ?
と条件の内容も知らないオレが無責任に言ってみるw

624:616
08/05/06 04:39:22
>>621
ここまで時間が掛かるものだと思わなかったもので…

>>622
そうです。アクセスで入出力はしてません。フリーのデータ取得ソフトを使って、そのソフトがMDBで出力してます。
プログラミングはよく分からないので…

>>623
やや違う形ですが、参考にさせてもらって速度が上がりました。ありがとうございます。

まだ結構日にちが掛かりそうですけど、これでやってみます。皆さんありがとうございました。

625:NAME IS NULL
08/05/06 06:39:34
>>623 さんをちょっと変形するともうちょい速くなるんじゃないかな

WHERE の条件に、自作関数を指定出来るから
そこで複数条件を一度にチェックすれば
繰り返し回数(6000)を少なく出来る

こんな感じ 気が向いたらお試しを
WHERE ([不一致]=False) AND ((check_val([フィールド1],[フィールド2],[フィールド3]))=True)

Function check_val(fld1 As Variant, fld2 As Variant, fld3 As Variant) As Boolean

(fld1 = 1 And fld2 = 2 And fld3 = "OK") Then
check_val = True
Else
check_val = False
End If

End Function


626:616
08/05/06 09:38:29
>>623さんのでやったら3時間ちょいで処理がおわっちゃいました。
あっけなさ過ぎて笑ってしまった。616のでやったときは4日動かしても1/3の位置にあるレコードさえ更新されなかったのに。
最初のコードがいかに効率が悪かったかってことですね。ありがとうございました。

627:623
08/05/06 16:05:44
良かった、良かった。
Accessに限ったことではないけれど

・WHERE句で絞り込めるならWHERE句を使う
(→処理対象となるレコードを絞り込む)

・WHERE句で絞り込む場合はインデックスを持たせる
(→絞り込み速度が向上する)

というのが今回みたいに総レコード数が多い場合には
効果が現れやすいってことで。

628:NAME IS NULL
08/05/06 22:05:24 sxz7Jblq
失礼します。あほなアクセス初心者ですが、質問させてください。

別に入力した数字と5ケタの数字を組み合わせた識別番号を表示させていきたいのですが、
5ケタの数字はオートナンバーのような形式で自動的に表示させることはできないでしょうか。
そしてできれば別入力の数字ごとに、それぞれ番号が順番に出てくるようにしたいのです。
例えば、1件目に『28413』と入力したら『2841300001』、
2件目に『59647』と入力したら『5964700001』
3件目に『28413』と入力したら『2841300002』という感じです。

うまく説明できなくてすみません。


629:NAME IS NULL
08/05/06 22:09:00
できますよ

630:NAME IS NULL
08/05/06 22:19:53 sxz7Jblq
そういうのもできるんですね!
かなり難しそうな気もしますが、やり方を教えていただけないでしょうか。

631:NAME IS NULL
08/05/06 22:22:45
入力値でselectして件数数えたら良いんジャマイカ

632:NAME IS NULL
08/05/06 22:43:27
>>631

それだと削除されたりすると番号が重複するかもしれないよ。
この程度ならDmaxあたりでいいんじゃないか?
削除等により番号抜けが生じ、それが許せないというのなら
もう一工夫必要だが。

633:NAME IS NULL
08/05/06 23:16:19
>>という感じです。

てくらいだからいいんじゃね?

634:NAME IS NULL
08/05/06 23:29:34 sxz7Jblq
>631
>632
アドバイスありがとうございます。
だんだんわけわからなくなってきて、へこんでたのですが
やる気出てきました^^

635:NAME IS NULL
08/05/07 10:54:31
サブフォームに表示するレコードが無い場合のイベントを拾いたいのですが
どのようにしたらよいのでしょうか?

はじめはCurrentRecord=0で判断しようとしたのですが、
レコードが無い場合でも1になるときがあるようで、
うまいこと動作してくれません。

636:NAME IS NULL
08/05/07 16:50:46
>>635

開く時イベント辺りでrecordcount拾った見ては?
Dcountでもいいかもしれない。

637:NAME IS NULL
08/05/08 09:45:53
>>636
レスありがとうございます。

結局要所要所で、サブフォームのRecordSourceに突っ込んだ
SQLと同じものをRecordsetで開いてRecordCountみることで解決してましたが
全部Dcountで置き換えられそうです。

638:NAME IS NULL
08/05/09 00:52:19
.RecordCountの値は.MoveLastしないと信用できない。
でも最初から.EOFだった場合に.MoveLastするとエラーになる。

.RecordCountを気軽に紹介している入門書の類は多いけど
上記の点まできちんと言及してるものは見たことないな・・・

639:NAME IS NULL
08/05/09 10:39:25
>>638
信用できないってどういうこと?
接続先のDBの種類によってRecordCountが取得できないこともあるけど、
取得できるなら間違った数は返さないんじゃない?

640:NAME IS NULL
08/05/09 11:49:32
.RecordCountはカーソルまたはキーセットの状態によって
返す値が変わってくるはず。信用ならないってわけじゃないと思う。

これがわからないで結構悩んだことがある。

-----以下MSDNからコピペ
レコード数を算定できるかどうかには、Recordset オブジェクトのカーソルの種類が
関係します。RecordCount プロパティは、前方スクロール タイプのカーソルの場合
は -1 を返し、静的カーソルまたはキーセット カーソルの場合は実際の数を返し、
動的カーソルの場合はデータ ソースに応じて -1 または実際の数を返します。
------


641:NAME IS NULL
08/05/09 13:07:50
638ではないけれど、
本来ADOはデータソースの種類を意識することなく
同じコードで動作することを目標としてたはず。
その意味でRecordCountプロパティを使うことは避けた方が
望ましいと思うのだけれど。
少なくとも自分は積極的には使う気がしない。

642:NAME IS NULL
08/05/09 13:23:30
>>641
では、レコード数をカウントしたいときに代わりに何を使っているのでしょうか?
1レコードずつループしてカウント?

643:641
08/05/09 14:08:28
SELECT Count(主キー) FROM テーブル WHERE 〜 で
素直にクエリ句を投げてます。

Recordsetの操作は、静的カーソルやキーセットより
前方スクロールの方が圧倒的に処理速度が速いので
もっぱら前方スクロールで開いているのも理由の1つ。
>>640にあるように.Recordcountが使えません。

ましてや.MoveLastメソッドなんかはレコード数が
多くなればなるほど遅くて使い物になりませんし・・・
DCountを使う手もあるのですが、DLookupのバグで
痛い目を見てからは使っていません。

644:NAME IS NULL
08/05/09 15:58:37
DLookupのバグって何?

645:641
08/05/09 17:34:25
Access2000だったと記憶していますが、DLookupで文字列フィールドを取得する際に
取得した文字列が途中で途切れてしまう症状があったのです。(再現性あり)

意外とMSが提供する関数にはこの手の見えない制約?バグ?があったりするので
油断ならんなぁ・・・という感じですよw

646:NAME IS NULL
08/05/12 16:35:37
ここって初心者が質問してもおk?

647:NAME IS NULL
08/05/12 18:21:16
>>646
別に問題はない。
言っておくが、参考本すら読んだことのないやつは
初心者とは言わない。

648:NAME IS NULL
08/05/12 20:47:57
エロ本すら読んだことのないやつは
童貞とは言わない。

649:NAME IS NULL
08/05/12 23:42:54
歴戦の勇士が昔の自分に答えてやっている感じがする

650:NAME IS NULL
08/05/13 00:40:50
そんなに変なこと書いたかなぁ。
話しが通じるだけの最低限の知識は
必要だと言いたかったのだが。

651:NAME IS NULL
08/05/13 13:37:53
レベルは低いが多少のエスパー能力ならあるから心配するな

652:NAME IS NULL
08/05/28 20:28:01
>>645
そうだね
リストの要素が65535個までだったりw
少なくとも自分は積極的には使う気がしない


653:NAME IS NULL
08/06/01 01:16:09
使ってみないと挙動が分からないのばかり

654:NAME IS NULL
08/06/01 08:08:42
Accessってスキルとして認められますか?

655:NAME IS NULL
08/06/01 10:01:17
認めざるを得ないスキルを見せつけてる

656:NAME IS NULL
08/06/01 10:19:18
認められると思うよ

657:NAME IS NULL
08/06/01 15:53:13
>>654
マジレスすると
「お前がACCESSで何が出来るか」
に掛かってるだろ。

658:NAME IS NULL
08/06/01 15:57:46
現場によるけどな。

659:NAME IS NULL
08/06/01 19:43:19
職場になにかとaccess使うやつ(上司)がいるが
わりと出来るやつということになってる
だが、嫌い俺は

勉強して抜いてやる


660:NAME IS NULL
08/06/01 22:20:39
部下が使えるようになり上司も喜ぶ事だろう
がんばりたまえ

661:NAME IS NULL
08/06/02 23:53:28
Access使える香具師よりもExcel使える香具師の方が価値が高いと思うこのごろ

662:NAME IS NULL
08/06/03 02:24:29
Excel使える香具師よりも日本語使える香具師の方が価値が高いと思うこのごろ

663:NAME IS NULL
08/06/03 20:19:37
Accessだけ使えるのも珍しいだろ

664:NAME IS NULL
08/06/03 20:25:57
Accessだけ使えるやつなんて信用しない。なぜならば本当に
Accessがどのようなものかを知っている人間はAccessを
使わないからだ!

665:NAME IS NULL
08/06/03 20:26:52
>>664
ワロタ

666:NAME IS NULL
08/06/03 22:33:06
なこと言っても、Excelとの親和性を考えたらAccess以上の物ないし

667:NAME IS NULL
08/06/04 10:54:47
Excelとの親和性なら桐のほうが高いと思うけどなあ?


668:NAME IS NULL
08/06/04 11:21:01 dxyYnNU/
>>667

わしも、そーおもう

669:NAME IS NULL
08/06/04 20:45:33
初歩の初歩を聞いてスマンコだけど、100万レコードとかって耐えられる?(個人的な使用だけど)


670:NAME IS NULL
08/06/04 21:04:24
個人的な使用なら糞遅くてもいいだろ。だから耐えられる。

671:NAME IS NULL
08/06/04 21:59:17
百万レコード単位になると、
一時テーブルを作った時とかに2ギガ制限に引っかかることがある。
あと大量データの時だけ発生するエラーが結構あった気がする。
でも気を遣えば大丈夫。

672:NAME IS NULL
08/06/04 22:10:51
全レコードに1メガの画像データ埋め込んだら100万どころか2000レコードでも限界だよ

673:NAME IS NULL
08/06/04 22:13:41
レコードに画像を埋め込むのってどういう用途なんだ?
想像できん…

674:NAME IS NULL
08/06/04 22:24:15
お手本中のお手本であるNorthWind.mdbからして
商品の写真をマスターテーブルに埋め込んでなかったっけ・・・?

675:669
08/06/04 23:04:51
レス、thxです。株価データを貯めこもうかと考えてる最中でして、そんなに増やそうとは思ってないんだけど、
年度単位とかに分けて作っておいた方が良いかな。


ま、ちょぼちょぼと作っていきますw

676:NAME IS NULL
08/06/04 23:07:14
年度単位じゃ株価データの意味ないと思うぞ
銘柄単位とかセクター単位とか

677:NAME IS NULL
08/06/04 23:17:41
株価データなら、MDBで600万件(700MBほど)管理してるけど、全然平気。
2GB超えるようなら、対策考えるけどね。





678:NAME IS NULL
08/06/04 23:48:17
対策って何よ

679:NAME IS NULL
08/06/05 05:48:29
MDBなら年度ごとにテーブル分けてても
リンクテーブルにしてUNIONかければ対応可能だろ

680:NAME IS NULL
08/06/06 09:57:39
UNIONかけたら2GB超えても大丈夫なん?

681:NAME IS NULL
08/06/06 10:12:16
>>680
ムリポ

682:NAME IS NULL
08/06/06 19:55:44
それぞれのmdbが2G超えなければ合計2G以上も行けるって事だべ

683:NAME IS NULL
08/06/06 19:59:34
2007でも2GB制限あるの?

684:NAME IS NULL
08/06/06 20:07:20
うん

685:NAME IS NULL
08/06/06 20:08:49
mdbじゃなくてtblだけどな

686:NAME IS NULL
08/06/06 20:11:05


687:NAME IS NULL
08/06/06 20:13:55
データベースの仕様
次の表は、Microsoft Office Access 2007 データベース特有の仕様の一覧です。

全般
属性 最大値
Access データベース (.accdb) ファイルのサイズ 2 GB からシステム オブジェクトに必要な領域のサイズを引いた値
データベースのオブジェクトの数 32,768
"HasModule/レコード保持" プロパティが [はい] に設定されたフォームおよびレポートを含むモジュールの数 1,000
オブジェクト名の文字数 64
パスワードの文字数 20
ユーザー名やグループ名の文字数 20
データベースを同時に使用できるユーザーの数 255


次ページ
最新レス表示
スレッドの検索
類似スレ一覧
話題のニュース
おまかせリスト
▼オプションを表示
暇つぶし2ch

4204日前に更新/259 KB
担当:undef