Access使い集合！ Ver2.0
■ このスレッドは過去ログ倉庫に格納されています
0001デフォルトの名無しさん
NGNGhttp://pc3.2ch.net/test/read.cgi/tech/1005078204/
0002デフォルトの名無しさん
NGNGこれからACCESSで開発をはじめようと思っています
フォームは非連結で行う個所があるので、
プログラム上でＤＢ接続の記述をしないければいけないわけですが、
これからやるなら、ＡＤＯですよね？
ＤＡＯは過去の産物と聞きましたが・・・
皆様の参考意見を聞かせてほしいです。
0003デフォルトの名無しさん
NGNG0004デフォルトの名無しさん
NGNG0005デフォルトの名無しさん
NGNG北海道も余計なものに金使ってしまった。
0006デフォルトの名無しさん
NGNG何か面白いこと言ってるんだろうけど、
俺にはよく分からないな。
0007デフォルトの名無しさん
NGNG「行う個所があるので・・・」と書いてるから仕事なんだろうけど
そんな事じゃ先が思いやられるなあ（藁
二つ試してみて開発と配布の両面から自分で判断しなよ。
0008デフォルトの名無しさん
NGNGAirDoかなぁ？
0009デフォルトの名無しさん
NGNGで、ここは何のためのスレだ？厨房向け質問スレなのか？
それくらい書いとけよ、アホ
0010デフォルトの名無しさん
NGNG>>2
「これからやるなら、ＡＤＯ」は否定しないが、
ACCESSにはDAOこそが相応しいと漏れは思う。
00112
NGNG今回質問したのは、手持ちのVBA参考書には今後はADOと書いてあるのに、
いろんなスレではDAOも使ったほうが・・というのをチラホラ見たからです。
それでどちらを使えばいいのか迷ってしまって。
>>７
仕事です。まぁ、個人企業の社内システム担当者が社内向けに作るシステムというか。
設計から全部自分のみでやっています。
だから、「行う個所」、というか、「行おうと思っている個所」、が正しいですね。
前5年ほどいたソフト会社が、参考書に「ADOいい！」ってあれば、それ使えばいいや！
という会社で、現在もそのスタンスでやってるもので・・・・。
一応ADOで進めてますが、時間があればDAOも試してみます。
>>1
書いて無かったですね。すみません、
まぁ厨向けというか、初心者向け質問スレでいいのでは？
>>10
ありがとうございます。参考にします。
0012デフォルトの名無しさん
NGNGADO使えないんだる
0013デフォルトの名無しさん
NGNG00147
NGNG小規模なLANを考えているなら、ADOがいいと思うよ。
データベース自身を他のもの（SQLServerとか、MYSQLとか）に変えたときでも
対応が楽。
スタンドアロンでワープロ文書みたいに使いたいならDAOのほうが
むしろ楽かもね。
0015デフォルトの名無しさん
NGNG0016デフォルトの名無しさん
NGNG0017デフォルトの名無しさん
NGNG0018デフォルトの名無しさん
NGNG>>ADO→（略
漏れは拡張性考えてADOだがな。
0019デフォルトの名無しさん
NGNGVBとVCを同じ土俵で勝負させてどっちが優れてる劣ってるって言ってる厨房と同レベルだ。
0020デフォルトの名無しさん
NGNG日付を＃で囲まなければなりませんが、
日付をnullでinsertするときはどのように
したらいいのでしょうか？
0021デフォルトの名無しさん
NGNG> insertするときはどのように
> したらいいのでしょうか？
女の同意を得てからinsertする。(同意なしに強引にinsertすると、タイーホされる)
insertする前に、ちゃんと濡れさせておく。前戯なしにいきなりinsertするのは×
- 以上 -
0022デフォルトの名無しさん
NGNGどうなってんの？
0023デフォルトの名無しさん
NGNG> ビジネスソフト板の「ACCESS総合相談所 その５」スレが無くなってるけど
> どうなってんの？
削除依頼出すますた
0024デフォルトの名無しさん
NGNG暇な時いつも見てて自分の知り得る範囲なら
教えてやれてたのに。
0025デフォルトの名無しさん
NGNGつぅかあるべよ
0026デフォルトの名無しさん
NGNGNullとは、「何も入れた事が無い」って事を表す値だって事はわかる？
0027デフォルトの名無しさん
NGNG0028デフォルトの名無しさん
NGNGをコード上で再現したいんですが、どうやったら可能なんでしょうか？
というのも今作ってるのはADP＋MSDEなので、
オートコレクト機能がないのです；；
何かご存知の方、よろしくです
002920
NGNGDim rs As New ADODB.Recordset
Dim sql as string
sql = "insert into DB1" _
& "(依頼番号, 依頼日)" _
& " values ('" & rs![依頼番号] & "' ,'" & rs![依頼日] & "' );"
のようにするとまず日付は
"#" & rs![依頼日] & "#" のようにして文字列で囲まないと
いけないですよね？
もしレコードに日付のデータが無かったときは
##とかになってエラーが起きるのでレコードに日付がないときは
nullをいれたいというか、フィールドになにもいれたくないんです。
if文やCase文でSQL文の場合わけをすれば解決するかも知れませんが、
日付のフィールドがたくさん合った場合に凄く面倒になるのでなるべ
く日付型のフィールドにnullをいれたいのです
0030デフォルトの名無しさん
NGNG>ここも教えて君が集うスレになるの？
スレ建ての主旨に沿うとそういうことになるなぁ
まぁ>>1が責任もって面倒みりゃいいんだが、逃げたもよう（ｗ
# ム板にまで初心者向けスレはいらないと思う
0031デフォルトの名無しさん
NGNGINSERTするのにSQLじゃなくRecordset使ってみるﾄｶ。
0032デフォルトの名無しさん
NGNG性能下げてどーする。
0033デフォルトの名無しさん
NGNG今のところ、速度は問題になってないんだし。
0034デフォルトの名無しさん
NGNG判定文くらいかけるだろう？
0035デフォルトの名無しさん
NGNG0036デフォルトの名無しさん
NGNGいちいちコントロールパネルのODBCで設定するのが
面倒なので自動でやる方法ってありませんか？
0037デフォルトの名無しさん
NGNG0038デフォルトの名無しさん
NGNG0039デフォルトの名無しさん
NGNGオートナンバー用意して主キーにしとくぐらいかな。
ま、mdbはユーザーが主キーの設定しなくても、内部で用意しちゃうけど。
それがROWIDと言えなくもない。
004038
NGNGやっぱりそうですか。
別スレで紹介されていた、重複行を削除するSQL
delete from tbl a
where a.rowid > (
select min(b.rowid)
from tbl b
where b.value = a.value
)
って奴をAccessでも使えないかなと思ったのですが。
今回はテーブルレイアウト変更不可という前提があるので無理ﾎﾟですね。
残念。
0041デフォルトの名無しさん
NGNG個人マスタに会社コードと社員コードの項目があります。
で、社員コードは複数の会社でだぶってしまうことがあるので、
会社コードを社員コードの二つを主キーにしようかと思っているんですが、
二つを主キーにするのって、管理上いかがなものなんでしょうか？
それとも、別途会社コード＋社員コードのフィールドを別途設けて
それの項目のみを主キーにしたほうがいいんでしょうか？
ACCESSというより、データベース管理的な質問になってしまいましたが、
詳しい方のアドバイスをヨロシクお願いします。
0042デフォルトの名無しさん
NGNGまぁ、データベースの入門書でも読みなされ。
0043デフォルトの名無しさん
NGNGttp://www.mahoutsukaino.com/ac/ac97/basic/mainkey.htm
0044デフォルトの名無しさん
NGNGACCESSのレポートをそのままの表示で保存（データ化）したいんですが、
何か方法はありますか？
004544
NGNGお騒がせしました
ただ、サブレポートまで出力してくれない・・・（；´Д｀）
0046デフォルトの名無しさん
NGNGちなみに環境はwindowsXP + Access2002
GetTickCount()を呼び出すらしいけど、Win32API使ったこと無い。
Access97 + Windows95で問題なく動いていたマクロがXP+2002になったとたん処理が激遅になったので・・
0047デフォルトの名無しさん
NGNGゲーム系のサイトでも当たって見ぃ。
0048デフォルトの名無しさん
NGNG0049デフォルトの名無しさん
NGNGTimer関数じゃだめなのか？
0050デフォルトの名無しさん
NGNGmdb時にはサブフォームを多様してたんですが、
先輩からあまりサブフォームは好ましくないと聞きました。
便利なのでadpでも使おうかなと思ってるんですけど、
あまり多様すると問題があるんでしょうか？
0051デフォルトの名無しさん
NGNG0053デフォルトの名無しさん
NGNG見出しをメイン、明細をサブとかあまりお勧めしない。使ってる人多いと思うけど。
つーか気にするならVBで作れよと思った。
0054デフォルトの名無しさん
NGNGVBAロジックにコメントと共に書いてくれるならともかく、プロパティの設定だけで
ゴチャゴチャやられちゃうとメンテする人は地獄を見る可能性高し。
0055デフォルトの名無しさん
NGNGExcelシートにAccessのクエリをエクスポートしたいのですが、
どうすればよろしいでしょうか。
最初は
DoCmd.TransferSpreadsheet acExport, , "クエリ名", FileName, True
でやろうとしていましたが、同じファイル名の同じシートが存在していると
オブジェクトがかち合ってしまいエクスポートできません。
で、CreateObjectを使ってExcelを操作し、
Excel側からAccessのクエリを参照する方法を探しているのですが…。
ご存知の方はいらっしゃいませんでしょうか。
0056デフォルトの名無しさん
NGNGどうしてファイル名を変えようとは思わないの？
0057デフォルトの名無しさん
NGNGドロップダウンリストボックス使えないんですね。
で、いろいろプロパティをいじって代用方法を考えてるんです。
コンボボックスで選択は出来るが
キー入力はできないようにするだけなんですけど…。
うーん。やっぱダメなのかな？
005957
NGNGえーと、ヘルプによると正式な「ドロップダウンリストボックス」なるものは
データアクセスページにしか存在しないとのことです。
それで、キー入力できないようにするにはどうすればいいかと。
Locked/編集ロックをYesにすると選択が出来なくなってしまいますし。
テーブルをレコードソースとして用意し、コンボボックスで選択させ、
そして選択された文字列（textプロパティ）の値を変数に入れる。
というのをやりたいんです。
ものすごーく基本的なとこで躓いてるのはわかるんですが…。
未熟者にご教授くだされ。ちなみに、Access2000です。
006157
NGNGご返事どうもです。
テーブルを直にレコードソースに指定するのではなく
RowSourceTypeを値リストにして、値集合ソースをいじる方向でやってみてるのですが…。
やはりキー入力を受け付けないようにするには何かが足りない…？
すみません、もう少しヒントを下さい。
0062ななし
NGNGオートナンバであるかどうかをチェックしようとしています。DAOを使用しています。
オートナンバーのフィールドのプロパティである
NewValuesプロパティ の Increment はどのようにしたら取得できるのでしょうか？
フィールドのプロパティで、NewValuesプロパティが取得できないので
Attributesプロパティ の、定数 16(dbAutoIncrField)でオートナンバかどうかが
判るかと思ったのですが、オートナンバのフィールドであっても違う値が返って来ます。
オートナンバのプロパティの取得方法について、どなたかお解りになる方
いらっしゃいませんか？
006362
NGNG-----------------------------------------------------------
Function test()
Dim db As DAO.Database, tbf As DAO.TableDef, fld As DAO.Field
Dim pro As DAO.Property, idx As DAO.Index
Set db = CurrentDb()
Set tbf = db.TableDefs("T_test")'1列目にオートナンバ型のフィールド有
'テーブルのフィールドを取得
For Each fld In tbf.Fields
Debug.Print fld.Name
Debug.Print fld.Type
'フィールドのプロパティを取得
For Each pro In fld.Properties
Debug.Print pro.Name
Debug.Print pro.Type
Next pro
'インデックスを取得
For Each idx In tbf.Indexes
Debug.Print idx.Name
Debug.Print idx.Unique
Next idx
Next fld
Set idx = Nothing:Set pro = Nothing
Set tbf = Nothing:Set db = Nothing
End Function
-----------------------------------------------------------
0064デフォルトの名無しさん
NGNG↓こんな感じでできる。
Public Const vbShiftMask As Integer = 1 'キーコードマスク定数。
Public Const vbCtrlMask As Integer = 2 ' 〃
Public Sub cboKyDwn(ByRef KeyCode As Integer, _
ByRef Shift As Integer, _
Optional ByVal blnAlowDelete As Boolean = True)
'blnAlowDelete引数が指定されている場合、[Delete],[BackSpace]による削除を禁止する。
If Not blnAlowDelete And (KeyCode = vbKeyDelete Or KeyCode = vbKeyBack) Then
KeyCode = 0
Exit Sub
End If
'クリップボードへのCopyができるように。
'[Ctrl]+[C], [Ctrl]+[Insert]
If Shift And vbCtrlMask Then
If (KeyCode = vbKeyC) Or (KeyCode = vbKeyInsert) Then Exit Sub
End If
(改行が多過ぎてカキコできないｗので、次の発言に続く)
0065デフォルトの名無しさん
NGNG'[↑][↓]、特殊キー以外のキーを入力させない。
Select Case KeyCode
Case vbKeyUp, _
vbKeyDown, _
vbKeyTab, _
vbKeyEscape, _
vbKeyReturn, _
vbKeyF11, _
vbKeyDelete, _
vbKeyPrint, _
vbKeyShift, _
vbKeyBack, _
vbKeyPageUp, _
vbKeyPageDown, _
vbKeyRight, _
vbKeyLeft
Case Else
KeyCode = 0
End Select
End Sub
注意点 ：
(1) vbShiftMask、vbCtrlMask はVBにしかない定数。(Accessでも同等の機能を使うため、ユーザー定義)
(2) すべてのキーコードを無効化すると使い勝手が悪くなる。要求仕様に応じて、無効にするキーコードを
適宜選択すること。
006657
NGNG大変ありがとうございます。
勉強させていただきます。
0067デフォルトの名無しさん
NGNG書き忘れたが、>>64のユーザー定義関数は、各コンボボックスの
ComboBox_KeyDown イベントから呼び出す必要がある。
サブクラス化やSendMessageが使用できれば、もっとエグイ技も
使えると思うが、残念ながらAccessのコントロールは、Window
ハンドルを隠蔽しているので、これはムリ。
- 以上 -
0068デフォルトの名無しさん
NGNGデータベース(mdb)が起動された時に
渡されたコマンドラインを取得するにはどうすればいいでしょうか？
また、起動されたファイル名の絶対パスを得るにはどうすればいいでしょうか？
ヘルプをあさったのですが、それらしい記述を見つけることができませんでした。
よろしくお願いします。
0069デフォルトの名無しさん
NGNG>>68
> 渡されたコマンドラインを取得するにはどうすればいいでしょうか？
Command を調べろ。
> また、起動されたファイル名の絶対パスを得るにはどうすればいいでしょうか？
CurrentDb().Name
> ヘルプをあさったのですが、それらしい記述を見つけることができませんでした。
努力不足。氏ね。
それから、バージョンもちゃんと書け。
007068
NGNGありがと。
参考になったよ。
>バージョンもちゃんと
バージョンにも依存するような関数なんだ。
へぇ。
0071デフォルトの名無しさん
NGNG0072デフォルトの名無しさん
NGNGこれをAccessVBAから取得することって可能でしょうか？
DaoのTableDefオブジェクトでは無理そうなので
他をあたっていますが見つかりません。
もし取れればテーブル定義ドキュメント楽に作れるんですが・・・
0073デフォルトの名無しさん
NGNGVer2.0では 無理かも（ｗ
0074デフォルトの名無しさん
NGNGhttp://www.ruriplus.com/msaccess/faq/faq_002.html
こちらのでどうですか？
0075デフォルトの名無しさん
NGNG>なんと、Ａｃｃｅｓｓ２０００のテーブルには、ＶＢからアクセスできないのである
違うよね?
0076デフォルトの名無しさん
NGNG元記事ではODBCのみでしか接続できないとか書いてるが、
DAOもADOも使える。アホVB厨だろ
0077デフォルトの名無しさん
NGNG0078デフォルトの名無しさん
NGNGありがとうです～！おかげでできました。
これでドキュメントもラクチンです。
0079デフォルトの名無しさん
NGNGDim dbsNorthwind As Database
Dim rstTemp As Recordset
Set wrkJet = CreateWorkspace("", "admin", "", dbUseJet)
Set dbsNorthwind = wrkJet.OpenDatabase("C:\Documents and Settings\XXX\My Documents\幼稚園\YYY.mdb")
Set rstTemp = dbsNorthwind.OpenRecordset("テーブル", dbOpenDynaset, dbReadOnly)
とHelpにあるままやったのですが、最後の行で型が違いますといわれます
VBAから他のDatabaseのレコードセットを取得させたいのですが・・・
他にも色々回避方法はあると思いますがこの形で取得できるやりかたをご教授願いﾏｽ
0080デフォルトの名無しさん
NGNG> 最後の行で型が違いますといわれます
Dim rstTemp As Recordset
↓
Dim rstTemp As Object
0081デフォルトの名無しさん
NGNGDim rstTemp As DAO.Recordset
と宣言するか、
または参照設定でDAOをADOより上位にする
008279
NGNGありがとうございます
もうちょっと考えればわかりそうなものですよね、思慮がたりませんでした
精進しﾏｽ
0083デフォルトの名無しさん
NGNGDoCmd.OpenTable "テーブル名"
RunCommand acCmdColumnWidth
じゃできませんでした。
0084デフォルトの名無しさん
NGNGDoCmd.SetWarnings False
DoCmd.DeleteObject acTable,"テーブル名"
DoCmd.SetWarnings True
0085デフォルトの名無しさん
NGNGテーブルが消えてしまうので要注意！
0086デフォルトの名無しさん
NGNG「OLEオブジェクトのプロパティまたはメソッドにアクセスするときにエラーが発生しました」と出て動いてくれません
ADPではDfirstはできないのでしょうか？
0087デフォルトの名無しさん
NGNGどこで使おうとしてんの?
フォーム、レポート、マクロ、コードなんかだと普通に使えてるけど。
テーブル定義、ビュー、ストアド、関数なんかでは当然使えない。
008886
NGNG関数の中では使えないですね。自分で相応のものを作らないとダメかな
0089デフォルトの名無しさん
NGNGSelect Top 1 .... From .... Order by ....
じゃだめなん？
0090デフォルトの名無しさん
NGNG0091デフォルトの名無しさん
NGNGADPからmdbのテーブルをODBCを使わずにリンクさせることってできませんか？
0092デフォルトの名無しさん
NGNGDoCmd.TransferDatabase acImport, "Paradox 4.x", _
"C:\PLIB.db", acTable, , "PLIB"
とすると、
パス'C:\PLIB.db'は正しくありません。パス名に間違いないことと、
ファイルが置かれたサーバーに接続していることを確認してください。
というエラーが出てしまいます。
Paradoxからのインポートは出来ないんでしょうか。
0093デフォルトの名無しさん
NGNGどうすればできるでしょうか？
ご指導よろしくお願いします
0094デフォルトの名無しさん
NGNGニホンゴ、ワカリマスカ？
0095あ
NGNG同じテーブル名同士？
アクセスに同じ名前のテーブルは置けない。
よって意味不明。
009693
NGNG不適切な書き込みですみません。再度書き込ませていただきます。
たとえば、日付、数量、単価、合計を管理しているテーブルで
日付 数量 単価 合計
2002/11/05 4 500 2000
2002/11/06 2 500 3000
2002/11/07 5 500 5500
というふうに表示させたいんです。合計は前日のデータと今持っているデータ
の和を求めて表示させいのですが、どうすればいいでしょうか？
0097デフォルトの名無しさん
NGNGんじゃまずこの言葉の意味を調べて。
その後は適当にぐぐってみればいくらでも答えは見つかる。
0098デフォルトの名無しさん
NGNG>>96
SELECT t1.日付, t1.数量, t1.単価, Sum(t2.合計?) AS 合計
FROM テーブル AS t1, テーブル AS t2
WHERE t2.日付 <= t1.日付
GROUP BY t1.日付, t1.数量, t1.単価
ORDER BY t1.日付;
009993
NGNGアドバイスのおかげでうまくできました。
ありがとうございます。
0100デフォルトの名無しさん
NGNG0101デフォルトの名無しさん
NGNGかなり前の話ですみませんが、私も疑問に思ったのでおしえてください。
日付型にNullを入れるとき判定文で分けてたのですが、
一度日付を登録した後、修正のときにフィールドを消してNullにすると
条件文で登録をかけなくしてしまっているのでデータの修正ができなくなってしまいました。
このような場合はどうしているのですか？
（意味分かっていただけたでしょうか？）
0102デフォルトの名無しさん
NGNGレコードの数だけ流し込む（レコードの数だけ行が増える）のは
フォームのデータコントロールにクエリー等をセットして、
各テキストボックスのデータコントロールにフィールド名を
指定してやればできますが、これを非連結で処理したいのですが
可能なのでしょうか？
もしくは非連結ではなく、DBサーバー上のものを非連結でなく、フィールド指定できるのでしょうか？
Access2002では簡単に上記のことができるらしいのですが
開発環境はAccess97なのです。。
ご存じのかたいらっしゃったらご教授願います。
0103デフォルトの名無しさん
NGNG枠だけ印刷したいとかって意味？
なんか意味不明なんですが・・・。非連結でないと駄目な理由は？
レポートだと、VBAで制御すれば非連結でも可能ですが、
そもそも、非連結で何をしたい？計算のみ？
一番簡単な方法は、ワークのテーブルを作成して項目を連結させた
らいいんじゃないかな。
0104デフォルトの名無しさん
NGNG日本語がヘタクソ。
小学校からやり直してこい。
[宿題]
つぎのことばのいみをこくごじてんでしらべなさい
・わかりやすい
・具体的
・論理的
0105デフォルトの名無しさん
NGNG0106101
NGNGうまく説明できなくてすみません。まず、下のような形で登録したものを・・・
' 見積ヘッダー部の追加登録（見積日がNullかどうかで処理を分ける。）
If Me.見積日 = "" Or IsNull(Me.見積日) then
strSQL = "INSERT INTO T_見積 (見積番号,見積者,見積日,顧客コード,顧客名,担当,"
strSQL = strSQL & "合計,消費税)"
strSQL = strSQL & " VALUES ('" & Me.見積番号 & "','" & Me.見積者 & "',CONVERT(datetime,'" & Me.見積日 & "'),"
Else
strSQL = "INSERT INTO T_見積 (見積番号,見積者,顧客コード,顧客名,担当,"
strSQL = strSQL & "合計,消費税"
strSQL = strSQL & " VALUES ('" & Me.見積番号 & "','" & Me.見積者 & "'"
End If
strSQL = strSQL & "'" & Me.顧客コード & "', '" & Me.顧客名 & "', '" & Me.担当 & "'"
strSQL = strSQL & "CONVERT(money,'" & Me.合計& "'),CONVERT(money,'" & Me.消費税 & "') ;"
cn.Execute strSQL, , adCmdText
0107101
NGNG' 見積ヘッダー部の更新登録（見積日がNullかどうかで処理を分ける。）
If Me.見積日 = "" Or IsNull(Me.見積日) then
strSQL = "UPDATE T_見積"
strSQL = strSQL & " SET 見積者 = '" & Me.見積者 & "',見積日 = '" & Me.見積日 & "',"
Else
strSQL = "UPDATE T_見積"
strSQL = strSQL & " SET 見積者 = '" & Me.見積者 & "',見積日 = '" & Me.見積日 & "',"
End if
strSQL = strSQL & "顧客コード = '" & Me.顧客コード & "',顧客名 = '" & Me.顧客名 & "',"
strSQL = strSQL & "担当 = '" & Me.担当 & "',"合計 = CONVERT(money,'" & Me.合計 & "'),"
strSQL = strSQL & "消費税 = CONVERT(money,'" & Me.消費税 & "')"
strSQL = strSQL & " WHERE 見積番号 = '" & Me!見積番号 & "' ;"
cn.Execute strSQL, , adCmdText
最初に見積日を入れてINSERTして、変更があったときに見積日を
フォーム上で消してUPDATEすると、条件分岐で見積日がNullのときは
更新されないので、当然前に登録した見積日が残ってしまいます。
こういう場合どうすればいいかなぁと・・
（これでも分かってもらえないのだろうか?）
0108102
NGNGレスありがとうございます。
説明がかなり変でスミマセンでした。。ｗ
＞一番簡単な方法は、ワークのテーブルを作成して項目を連結させた
＞らいいんじゃないかな。
上記のでバッチリいけました。
DBサーバーからテーブルデータをクライアントマシンのワークテーブルに持ってきて
帳票フォームでデータ内容を一覧表示することができました。
ありがとうございます。
0109デフォルトの名無しさん
NGNGCONVERT 関数があるということは、DBはSQL Server または MSDE ってこと？
Connection.Execute とか、adCmdText という記述があるってことは、ミドル
ウェアはADO + OLEDB？
その辺も書いといた方がいいんじゃないの？
どうでもええけど、If節とElse節の記述が反対と違うの？
>>107
If節とElse節がおなじだけど、アホちゃうの？
条件分岐の意味わかってる？
(数10行のSQL文の1箇所か2箇所違うだけなのに、If節とElse節に全文コピペ
するアホがようけおるけど、ホンマ鬱陶しいから早死んで欲しいわ・・・)
0110101
NGNGまったくおっしゃるとおりでお恥ずかしい・・
' 見積ヘッダー部の追加登録（見積日がNullかどうかで処理を分ける。）
If Me.見積日 = "" Or IsNull(Me.見積日) Then
strSQL = "INSERT INTO T_見積 (見積番号,見積者"
strSQL = strSQL & " VALUES ('" & Me.見積番号 & "','" & Me.見積者 & "'"
Else
strSQL = "INSERT INTO T_見積 (見積番号,見積者,見積日"
strSQL = strSQL & " VALUES ('" & Me.見積番号 & "','" & Me.見積者 & "',CONVERT(datetime,'" & Me.見積日 & "')"
End If
cn.Execute strSQL, , adCmdText
' 見積ヘッダー部の更新登録（見積日がNullかどうかで処理を分ける。）
If Me.見積日 = "" Or IsNull(Me.見積日) Then
strSQL = "UPDATE T_見積"
strSQL = strSQL & " SET 見積者 = '" & Me.見積者 & "'
Else
strSQL = "UPDATE T_見積"
strSQL = strSQL & " SET 見積者 = '" & Me.見積者 & "',見積日 = '" & Me.見積日 & "',"
End if
strSQL = strSQL & " WHERE 見積番号 = '" & Me!見積番号 & "' ;"
cn.Execute strSQL, , adCmdText
すみません、全文コピペじゃなくて、適当にあったコードあわてて直してかいたもんで。
ちなみに、確かにDBはMSDEでミドルウェアはADO+OLEDBです。
条件分岐のことなんで、DB等の説明はあまり関係ないかと思いまして書きませんでした。
ただ、私の言いたかった事は理解していただいたけたみたいですね。
0111デフォルトの名無しさん
NGNGIf Me.見積日.Value = "" Or IsNull(Me.見積日.Value) Then
strSQL = "UPDATE T_見積"
strSQL = strSQL & " SET 見積者 = '" & Me.見積者.Value & "',見積日 = Null,"
Else
strSQL = "UPDATE T_見積"
strSQL = strSQL & " SET 見積者 = '" & Me.見積者.Value & "',見積日 = '" & Me.見積日.Value & "',"
End if
strSQL = strSQL & " WHERE 見積番号 = '" & Me!見積番号 & "' ;"
cn.Execute strSQL, , adCmdText
Call MsgBox("厨房は逝ってよし！", vbAhoBakkari + vbDemmpa, "(-_-;")
0112デフォルトの名無しさん
NGNG0113101
NGNG私に言ってるんですか？使ってますよ Nz(見積日,"Null")とかやって。
でも結局Null入れても1900/01/01が入るんでいまいちなぁ？と思ってたんですよ。
最終的にNzでやってんですけど、あなたはどうやって使ってるんですか？
0114デフォルトの名無しさん
NGNG日付の場合、ゼロは「特定の値」を意味するため、未入力の扱いとしては
不適切。
日付以外の場合なら問題ないとは思うが。
0115デフォルトの名無しさん
NGNGネタですか？
Nz関数はゼロに変換するためだけにあると思ってる？
0116デフォルトの名無しさん
NGNGどうしても101がむかつく。なぜだろう。
0118デフォルトの名無しさん
NGNG仕様を見直せ！
0119101
NGNG誰ですか？わたしじゃないんですけど・・
0120デフォルトの名無しさん
NGNGていうか、おまえ何やりたいの？
例でも言いからその判定文書けよ。
nullの意味分かってるの？
0121デフォルトの名無しさん
NGNGていうか、例でもいいからその判定文書けよ。
何を判定したいのかわからん。nullの意味わかってるの？
0122デフォルトの名無しさん
NGNG問題、次の違いを簡潔に述べよ。
１．Null値 と Empty値
２． Nz(見積日, "Null") と Nz(見積日, Null)
３． "SET 見積日 = Null" と "SET 見積日 = 'Null'"
0124デフォルトの名無しさん
NGNG1レコードに100のフィールドがあり、それを10000レコード入力するとした場合、
入力ミスが発生しないようにするにはどのようにするのが効果的なのでしょうか？
会社の方からは1つのフィールドに対して同じ内容のものを2回ずつ入力させる
ようにしたらどうかと言われているのですが、確かにこの方法ならミスは
ほとんどなくなりますが実質20000レコード入力している
ようなものなので非常に時間がもったいないと思うのです。
しかもこれは入力者に多大なストレスになりますし……
なにかいい方法はないでしょうか？
0125もまずにパピコ
NGNG入力するのが何の規則性もない32ビットの数値データとかなら、2回ずつ入力してもらうしかないだろうな。
ちょっとでも規則性があるならその規則性を利用してミスを防ぎ入力を支援するのが普通君の仕事だ。
0126デフォルトの名無しさん
NGNGAccess の問題ではない。
UIはどうあるべきか、フールプルーフな仕組みはどうあるべきか、という話題。
0127デフォルトの名無しさん
NGNG同じ内容を２回ずつ入力させるようにしたらと会社が言っているのならそうすれば?
但し、同じヤツに２回入力させたってダメだね。別の人間２人以上に入力させて
データをコンペアすべきだね。
でも、２回入力しようが１０回入力しようが、ミスが起る可能性はゼロにはできない。
入力されたデータを正しく検証する方法をまず考えるべきだ。
データが正しく検証できるなら、１回で入力して、エラーを訂正してクリーンデータを
作ればそれですむ。逆にデータが検証できないなら、何回入力しようが、それは
「確立的にエラーが少ない筈」なデータというだけで、正しい事にはならない。
＞1レコードに100のフィールドがあり、
この時点で仕様が間違っているニオイがぷんぷんだ（笑）
＞なにかいい方法はないでしょうか？
入力作業を外注に出す。もちろんミスがあったら巨額損害賠償な契約書を作成。
0128デフォルトの名無しさん
NGNGどこぞのエンジニアが「遅すぎる」「データ壊れやすい」とかのたまってたけど、
そんなに馬鹿DBなの？
0129デフォルトの名無しさん
NGNG今更こんなところで訊くまでもない、既知な問題。
無名ベンダのマイナな製品ならともかく、Googleででも調べれば、情報は
いくらでも転がっている。
0131129
NGNG具体性に欠けるね。スマソ
翔泳社のWEBサイトにVBマガジン(現・.NETマガジン)のバックナンバー
記事の一部が公開されており、その中に、秋月巌氏の連載記事もある
はず。
それを読めば、参考になるのでは？
0132デフォルトの名無しさん
NGNG今となってはJetは有能なDBであるとは思わない。
が、救いようの無いものであればこんなに普及せんよ。
速度に関しては、ローカルで使う限りは早い。あたりまえだが。
データ破損もシングルユーザならそうそう発生しない。
スタンドアロン・シングルユーザでﾏﾀｰﾘ使うならお気軽でいいと思うけど。
0133デフォルトの名無しさん
NGNG初心者的質問ですみません
0134デフォルトの名無しさん
NGNG検索エンジンってなんですか？
初心者いじめ的嫌がらせですみません
0136デフォルトの名無しさん
NGNG0137デフォルトの名無しさん
NGNGおまえ馬鹿か？
ACCESSはDBMSか？
アクセス形式？なんだそれ。
初心者以下だな。
マ板でこんな書き込みを見るとは。
ネタな事を祈るよ。
0139133
NGNGはあ、勉強になりました
要は DAO は Jet を利用して DB にアクセスする為の機能を提供するものだと、
そういうことになるんですかね
だとしたら ADO は
Jet 等を使わずに直に DB にアクセスするから高速だということか
0140デフォルトの名無しさん
NGNG0141デフォルトの名無しさん
NGNGDBエンジンとユーザアプリケーションの間にいるのがDAOやADOだ。
ってかMDB扱うのであればDAOの方が早いんじゃなかったっけ?
0142デフォルトの名無しさん
NGNGｿﾀﾞﾈ
DAOは早いけどACCESS依存
ADOは遅い（といってもDAOより少し？）けど、汎用性があり、いろんなDBにつなぎやすい
と認識してます。
違ったらｽﾏｿ。
俺はADOが便利なので、もっぱらそれをつかっちゃってますが。
0143デフォルトの名無しさん
NGNGDAOはレガシーだが、ユーザ人口が多過ぎて、MSの立場としては捨てるに捨てられない(泣)心境。
0144デフォルトの名無しさん
NGNGま、ISAM Library の類かな？(とか言うと石を投げられそうだが)
0145デフォルトの名無しさん
NGNG売り物として開発するのに、DAOが適切な選択肢かどうかはさておき、操作性が高く、コーディングも
直感的にわかりやすく記述が容易なので、プログラミング入門者の教育には最適。
0146デフォルトの名無しさん
NGNG0147デフォルトの名無しさん
NGNGつか、ネットの事例もDAOが多いし。
0148デフォルトの名無しさん
NGNG若干その数が減っている
DAOで実現できた処理がADOでは不可能になっちゃったなんてケースに
遭遇したことってある？ ・・・と、さりげなく誘導尋問してみる
0149デフォルトの名無しさん
NGNG参考書なんかみてもADOから解説してるものが多いよね。
0150デフォルトの名無しさん
NGNG初期のADO(2.1頃)って、Recordset.GetRowsメソッド(Variant型の配列を返す)がなかったのでは？
今は実装されてるけど。
0151デフォルトの名無しさん
NGNG定義関係だなあ、ADOXつかえばいいんだろうけど
MDBならDAO使うし、他のRDBMSならSQL投げるし
0152デフォルトの名無しさん
NGNGMDEでもSetPrinter()APIで、用紙サイズの変更、用紙の向き等を変更できますか？
0153デフォルトの名無しさん
NGNGAccess2002ならPrinterオブジェクトで変更可
つーか環境書け
0154デフォルトの名無しさん
NGNGﾌﾟ
0155デフォルトの名無しさん
NGNGどうすればいいのでしょうか？
とりあえず思いついたのがmdbの横にディレクトリを作って
そこへ保存。
ハイパーリンク型フィールドへ
画像やHTMLのindexへの相対パスを入れる。
という方法なのですが、
相対パスの文字列を入れても
実際ジャンプする時には
先頭に自動的に｢http://｣を入れられてしまい、上手く飛べません。
絶対パスを使いたくない理由は他の環境などへ持っていった時に
飛べなくなるからです。
いい方法あれば教えてもらえませんか？
アクセス2000です。
0156デフォルトの名無しさん
NGNG0157155
NGNGハイパーリンク型にすると
自動でリンクを貼ってくれると思ったからです。
テキスト型でも構いませんが、見る時
即座に画像などを表示するのが難しいのでは？と思ったからです。
ハイパーリンク型にこだわる必要はないです。
いい案あればください。
0158デフォルトの名無しさん
NGNGどう動くのか予想がつきにくいハイパーリンク型に比べ、必要に応じてアプリを
Shellしてやればいいだけなのだから、String型でパス文字列を持っておくほうが制御が楽でわ？
0159デフォルトの名無しさん
NGNG下のように業者番号ごとに累計して画面に表示しようと思うのですが
業者のレコードに関係なくすべての業者の累計になってしまいます。
業者ごとに累計させたいのですが、どうしたらいいでしょうか？
レコード１
1 株式会社 壱
日付 数量 単価 合計
2002/11/05 4 500 2000
2002/11/06 2 500 3000
2002/11/07 5 500 5500
レコード2
1 株式会社 弐
日付 数量 単価 合計
2002/11/11 4 500 7500
2002/11/16 6 500 10500
2002/11/17 5 500 13000
0160デフォルトの名無しさん
NGNGどういう作りになってるのかわからないのでコメントのしようがない。
ただもしその「レコード」がテーブル構造そのままだとしたら
正規化から始めんとだめでしょう。
0161デフォルトの名無しさん
NGNGまずは自分なりに考えてみれ。
なんでもかんでもSQL一発でやろうとするな。
0162デフォルトの名無しさん
NGNG>>93＝>>159？
0163155
NGNG何型でもかまいません。
テキスト型でもいいです。
一番聞きたいのは
レコード単位で画像やHTMLファイルなどの
ファイルを管理する必要がある時、
最適を思われる方法を知りたいのです。
アドバイスいただけませんか？
みなさんだったらどうしますか？
0164デフォルトの名無しさん
NGNG先日、ビジネスソフト板で同じようなことを聞いたら>>158の方法でいいといわれましたよ
systemテーブルのような物をつくってそこにデータディレクトリへの絶対パスを、
各レコードにそこからのパスを持たせてviewerへsendmessageさせてます。データはjpegイメージです
同じようにShellExcuteさせればいいのでは？
0165164
NGNG非連結の帳票ビューを使って、VBAでRecordSet、ControlSourceを動的に生成（WHERE区の置き換え）させているのですが、
フォームオープン時に一項目だけ空の帳票項目が表示されてしまいます。
そこで、OpenイベントハンドラでRecordSetに
SELECT ～ WHERE autoNumID = 0
として空のレコードセットを指定して上手く動いている様ですが、もう少しスマートな方法はないのでしょうか？
それと勝手に前提としてますが、オートナンバーって絶対に非ゼロなのでしょうか？
よろしくｐねがいします。
0166デフォルトの名無しさん
NGNG○RecordSource
0167デフォルトの名無しさん
NGNG自動的に固有の数値が格納される"仕様。
書き込まれる値 = 連続値、乱数、レプリケーションIDのいずれか。
オートナンバーフィールドの初期値に"初期値<0"が設定できれば
0スタートが可能だわな。
オートナンバーのデータ型がunsignedだったら無理だけど。
オートナンバーフィールドを"-1"でリセットできるか確認してみれば
答えは自ずと導きだされるんじゃねえの？
0168デフォルトの名無しさん
NGNGプログラム内で、現在連結フォーム上に表示されているレコードが何件目なのか取得するには、
なんて関数（メソッド？）を使えばいいでしょうか？
連結フォーム上では下に表示されている数です
５／１０ みたいな感じで ＜１０件あるうちの５件目
よろしくお願いします。
0169デフォルトの名無しさん
NGNGバージョンを明記していないんで Access2002 を前提にして書くけど
"カレント"をキーワードにヘルプを引くと"CurrentRecordプロパティ"
なるものが見つかるけどね。
0170sakura
NGNG2000を使っています。
半角全角混合のtxtファイルのインポート（リンク）をしたいのですが、
全角文字のトコロで参ってます。
”あ”や”Ａ”は２バイトで認識してくれるのに
”☆”や”×”などは１バイトで認識しちゃいます。
で、以降の項目で桁ずれが起きてしまいます。
何とか上手い方法はありませんか？
おねがいします。
おわり。
0171デフォルトの名無しさん
NGNGまあバイト数調べてるとこのソースでも出せや。
0172デフォルトの名無しさん
NGNGうーん。とりあえず自分が管理するので非ゼロでいきます。
デフォルトでなにかSELECTする(例えば今日の日付とか)仕組みのほうがいいかもしれませんね。
ありがとう。
0173デフォルトの名無しさん
NGNGオートナンバーの初期値は'1'からだね。（テーブル生成時/テーブル最適化による初期化時）
ただし、SQL（Insert文）でオートナンバーフィールドに値'0'を追加できるので、"絶対に
0である"保証はない。ま、意図的に混入させない限り、オートナンバーフィールドに値'0'を
持つレコードが存在することはないと考えていいと思うですよ。
0174デフォルトの名無しさん
NGNG?LenB(StrConv("☆×", vbFromUnicode))
0175155
NGNGアドバイスありがとうございます。
参考になりました。
そのように実装したいと思います。
感謝してます。
0176アクセス太郎
NGNGhttp://chart.yahoo.co.jp/c/3m/8/8002.t.gifの画像をフィールドに
表示させるとかできるのでしょうか？
２段階の質問になりますが よろしくお願いします
0177困っている学生
NGNG＜１つ目＞
あらかじめ作成されたテーブルに、データ（レコード）を次々と入力・編集（作成）するWebブラウザ上で動作するソフトウェアです。
出来れば、レコードの一覧表も表示されて、その中から選択して編集するという形式のほうが好ましいです。
開発ソフトウェアにVC++を採用して、DAOを用いて、一つずつ作成・編集するソフトウェアは自力で作成しました。
しかしながら、それをブラウザ上で起動させるように改良させるということが出来ません。
ActiveXを利用しようとしたのですが、それだとCDaoRecordViewクラスが使用できないため困っています。
（ActiveXを利用するとViewクラスをCOleControlクラスとリンクできないため困っています）
何か良いアドバイスをください。
＜２つ目＞
.mdbファイルを自動で、レコードを一覧表で表示する.htmファイルに変換するソフトウェア。
ユーザは対象となる.mdbファイルのパスを指定するだけで、.htmファイルに変換するソフトウェアはないでしょうか。
アドバイスの程、よろしくお願いします。
0178デフォルトの名無しさん
NGNGAccess2000と仮定して・・・
1)「データアクセスページ」でヘルプを検索
2)「エクスポート」でヘルプを検索
あとAccessのバージョン書けや。
0179デフォルトの名無しさん
NGNG設計段階での情報収集と知識獲得って大事です。
１＞ADOとDAOについて調べるとよい。
２＞当てにはできんが、AC2KからDAPなるものも加わった。
ところで、なにゆえHTMLで表示せにゃならんのか。
そーゆー大きなところを悩み苦しむときにスキルはアップする。
0180デフォルトの名無しさん
NGNGまず、
とりあえず、DAOでアクセスできて、
クライアントアプリはできてるんだろ？
もし、今まで作成したアプリ（のコード）を
活かしたいのなら、今までのコードを
変更して、VCでcgiを作りなさい。
データを表示、編集できるように標準出力に
html形式で出力すればOK。
更新もhtmlのフォームからpostし、それを
環境変数から編集データを持ってこればいい。
まぁ、その辺もぐぐればざくざくでてくる。
WEBでACCESSのDBアプリをつくるなら
IIS+ASPで作るのが一番簡単。
多分、今から（0から）作り始めても、
同じくらいの工数でできると思う。
下手したらこっちの方がはやい。
0181困っている学生
NGNG＞ところで、なにゆえHTMLで表示せにゃならんのか。
先生がそう望むからです（悲笑）
使用しているAccessのバージョンは、Access2000です。
言い忘れてごめんなさい。
僕は皆さんが挙げられたキーワード、IIS，ASP，cgiについて調べてみます。
光が見えてきて、少しホッとしています。
178～180さん、どうもありがとう。
そしてこれからも、
引き続き何かアドバイスお願いします。
0182デフォルトの名無しさん
NGNGpublic withevents txtHoge as TextBox
private sub txtHoge_KeyPress...
txtHogeにAccessのテキストボックスを入れて、
VBのクラスでテキストボックスのイベントを取得したいのですが
できないのでしょうか。
0183デフォルトの名無しさん
NGNG0184デフォルトの名無しさん
NGNG0185デフォルトの名無しさん
NGNG0186デフォルトの名無しさん
NGNG0187デフォルトの名無しさん
NGNG0188デフォルトの名無しさん
NGNG0189デフォルトの名無しさん
NGNGACCESS2000のVBAで、
?"1"="１"
が
True
になってしまいます。同様に英字・カタカナも同一視されるんですが、
なにかいい方法ありませんか？
0190デフォルトの名無しさん
NGNG今考えている手法として、
１．メンテ画面を開くと同時に、サーバ上のデータをローカルにあるワークテーブルにコピー
２．ワークテーブルをメンテナンス
３．ワークテーブルをマスタに反映
という手法を取ろうとおもっています。
ですが、参考書をみたら、
BeginTransやCommitTransを使って行うとあります。
内容を良く見たら,データのコピーをローカルにコピーするか、内部変数上にもってくるかの違いだけらしいのですが・・・
もしくは、上記のワークテーブルを使う手法で、3番のマスタに反映時にこのBeginTrans等をつかってトランザクション処理を
するとよいのでしょうか？
見当違いの質問かもしれませんが、詳しい方、よろしくお願いします。
0191デフォルトの名無しさん
NGNGVBAだけなら、モジュール宣言部の
Option Compare Database を外せばいい。
または文字列比較にStrCompを使うようにする。
0192デフォルトの名無しさん
NGNGAccessのバージョンとSQLServerへの接続手段を書いた方がいいかもね。
0193189
NGNGモジュールの先頭にそんなヒントが隠されていたとは...(恥)
0194190
NGNGああ、すみません、そうでしたね。
OSはWin2k
Accessは2000です
SQLServerへはADOをつかって接続しています
PROVIDER=SQLOLEDB.1;
PASSWORD=user1;
PERSIST SECURITY INFO=TRUE;
USER ID=user1;
INITIAL CATALOG=xxdatabase;
DATA SOURCE=SQLSvr;
こんな文字列を渡して接続しています。
よろしくお願いします。
0195デフォルトの名無しさん
NGNG途中でコケて困るのは３番だけかな。
ってことで、トランザクション処理が必要なのは３番！！！どーん！
0196デフォルトの名無しさん
NGNG・シングルユーザ環境なんで同時更新は有り得ない、かつ、SQLServerへの
書き込み結果が正しく反映されることを期待する
・新規データのバッチ登録
空のワークテーブルを用意 -> 新規データの追加 -> SQLServerに一括で追加
以上の様な目的なら、その考え方でかまわないんじゃないでしょうか
マルチユーザ環境、かつ、同時更新が起こりうるような場合は
1.トランザクション開始の宣言
2.データの読み込み
3.データ変更作業
4.データの書き込み
5.コミットorロールバックでトランザクションの終了
みたいに処理を封じ込めるってのがセオリーじゃないかなぁ・・・?
0197190
NGNG回答有難うございます。
一つ忘れていました。
ワークテーブルには、追加、更新、削除の三つのフラグがあり、
クライアント側でそれぞれの処理を行うと各フラグたたちます。
3番の反映時には、各フラグが立っているレコードのみを抽出し、それぞれの処理を行う方式です。
ちなみに、同一レコードの同時更新はありえません。
これも踏まえてアドバイスなぞありましたら、お願いします。
0198190
NGNGローカルテーブルを使ってデータを更新する方法とBeginTransを使う方法って、
物理テーブルを使うか、サーバ内のメモリ領域を使うか、って違いだけなのかな・・・・？
間違ってます？
0199デフォルトの名無しさん
NGNGあのさ、まずBeginTransやCommitTransが何なのかって所からしっかりヘルプ読んだほうがいいよ。
チャラチャラしたHowTo本じゃなくて、しっかりとしたデータベースの基礎が書かれてるヤツな。
そうすればそんな発想は出てこないはず。
で、>196が指摘してるようにシングルユーザなのかマルチユーザなのか、
マルチユーザなら同時更新は起こりうるのか、って所をはっきりさせてくれ。
0200190
NGNGマルチユーザーで、
同一レコードに対しての同時更新は起りえません。同一テーブルならもちろん起りますが
とりあえずデータベースの専門書調べてみます。あとヘルプも。
４年前にORACLEでやったんですけどね・・・すっかり忘れてしまった・・（涙）
その時にはBeginTransやCommitTransを使ったんですけど。
しばらく現役はなれていたんでもう・・・・
0201初歩的な質問で申し訳ないです
NGNGACCESSだと何故だか上手く行かなくて困っています。
ORDER BY 句で下記の様にソートしたいのですが
1
2
A
A
a
a
何故だか下記のようにソートされてしまいます。
1
2
A
a
A
a
Option Compareとかでバイナリ指定しても駄目だし
StrCompとかだとソートしたいだけなのに、抽出を行う事になってしまうし…
0202デフォルトの名無しさん
NGNG0203201
NGNG早速有難うございます。実は…
そのＵＲＬは、私もGoogleで見つけていましたが、採用しませんでした。
何故なら6000行程を処理するのですが、ソートすべき列がcharの12桁あり
少々遅くなり過ぎるので、なるべく簡潔なロジックにしたかったものですから…
…う～ん、やはりソレしか方法は無いのでしょうか
他の方法を御存知の方いらっしゃいましたら、御教示頂ければ幸いです。
0204デフォルトの名無しさん
NGNG16進ASCIIコードの文字列にする関数を作ればいいじゃん。
その程度のデータ量なら一瞬で終わるぞ。
0205201
NGNG有難うございます。
やはりＳＱＬメインでは出来ませんか…
とりあえず関数作って処理時間を計測してみます。
0206201
NGNG有難うございました。
0207デフォルトの名無しさん
NGNG詳細希望します。
0208デフォルトの名無しさん
NGNG0209デフォルトの名無しさん
NGNG関連付けるためのクラス作ったんですが、
似たようなの作った人いませんか？
0211デフォルトの名無しさん
NGNGSQLServer側でユーザ定義関数を作ろうかと思ったのですがさっぱりです
何かいい方法はないでしょうか？
0212デフォルトの名無しさん
NGNGバーコードの下の数字は消したいんです。
プロパティあれこれいじってるんですが、どなたか方法知ってたら
教えてください。
0213デフォルトの名無しさん
NGNGcase when
0214名無しさん（新規）
NGNGＨＴＭＬのページをACCESS(2002)で読み込みたいんですが、
やり方は
http://www.microsoft.com/japan/enable/training/kblight/T005/0/12.htm
に書かれてるのでわかったんですが、
どうやってもこの通りにならないんです。
症状としては
http://www.akj.co.jp/aug/qa/ans0001-0050/1153.html
（これは別人の報告です）
・・・に書かれてるのとほぼ同じ症状でどうやってもエラーが出てしまう
んですね。
どなたかわかりませんか？
ちなみにサーバー上のファイルではなく、パソコンの中のファイルの
読み込みには成功しました。
どうかお願いします。
0215デフォルトの名無しさん
NGNG0216デフォルトの名無しさん
NGNG必要性とか別にいいじゃん。何で技術を聞いているのに
そういう能書きたれるのかな。
お前もpins'sの知ったか厨房か？
>>214
Accessのその機能はSMBで認識できるファイル
簡単にいうとc:\***とか\\マシン名\で開く
ことができるhtmlファイルのみ。
だからPCの中のファイルは成功する。
説明のページのIE画像もマイコンピュータの
絵がついているだろ。あれはローカルファイルの証拠。
ファイルにアクセスするプロトコルが違うわけよ。
逆のexportも同じ。
0217デフォルトの名無しさん
NGNG既存のEXCELファイルをOpenする方法はヘルプにもあり分かったのですが、
新規でEXCELを起動する方法がわかりません。
どのような記述をすればいいですか？
HELPの探し方が悪いのかな・・？
ちなみに
Dim objxl As New Excel.Application
というのを変数で作っています。
0218デフォルトの名無しさん
NGNG起動するだけならShellでいいのでは？
0219デフォルトの名無しさん
NGNGdim wb as excel.workbook
set wb = objxl.workbooks.add
0220デフォルトの名無しさん
NGNG0221デフォルトの名無しさん
NGNG0222217
NGNG起動できましたー
有難うございました！
0223214
NGNGう～ん、一応ftpサーバーにはアクセスできて、サーバーの中の
フォルダとかは覗けるんですけどね。
http://www.akj.co.jp/aug/qa/ans0001-0050/1153.html
の報告のように・・・。
つまり、Accessからftpサーバーにログインできているにも
かかわらずインポートができないんです。
インポートも出来ないのにログインだけ出来るというのは
腑に落ちません。それではログインする意味がないですから。
ヘルプをどう読んでも出来るようにしか思えないし。
もし、興味がおありでしたら実験して見て下さい。（皆さんも）
ヘルプのキーワードから"html"と打つとログインの方法とか詳しく
出てきます。
0224214
NGNGHTMLページをACCESSで読み込む必要性ですか？
私の場合は、あるサイトの情報をVBAで自動的に読み込んでテーブルに
蓄積したりその情報を元に処理をしたいからですね。ビジネス用途です。
そのためにもまずは手動でも何でもインポートに成功する必要がある
んですが、それが出来ず困っています。
ちなみにエクセルでは簡単にインポート出来ました。
0225デフォルトの名無しさん
NGNGごめん、漏れの認識不足ﾀﾞﾀｰﾖ。
あやまるよ。
あとは、ftpのログインユーザで
インポート対象のhtmlファイルの
読み込み権限はあるのか調べて見れ。
0226214
NGNG読み込み権限は確認しましたがやはり問題ありません。
普通にブラウザでも表示されてますし。
http://www.akj.co.jp/aug/qa/ans0001-0050/1211.html
その後、こちらでも同様な問題が報告されてました。こっちは
htmlではcsvファイルの読み込みですけどね。
で、こちらは回答付で、回答の中に対処法とソースのリンクが書かれて
ました。
こちらの方がやや敷居が高そうですが、汎用性がありそうですね。
(htmlが読み込めるのかどうかは不明ですが）
WinInet.dllの機能を使うとのことですが、何でしょうWinInet.dllとは？
いずれにしても、これを使いこなせば、色々とおもしろいことが出来
そうです。
0227214
NGNG>htmlではcsvファイルの読み込みですけどね。
htmlではなくcsvファイルの読み込みですけどね。
0228214
NGNGちょっとも釣ります。
0230デフォルトの名無しさん
NGNG0231名無しさん
NGNG釣られてるﾌﾟ
0232214
NGNG張型ケツにぶちこまれ腰振ってました。俺もくわえさせられて浣腸食らい無様に
排便さらしました。バリカン出されたときは一瞬引いたけど、兄貴の「いやなら
止めていいんだぜ！」の一言で覚悟決め、生まれて初めて丸刈りになりました。そ
の後、脇・チンゲも刈られてビンビンのマラ、思いっきりしごかれ派手にガチムチ
兄貴の顔に飛ばしました。スッゲー男らしく気持ちよかったです。また行くとき
カキコして下さい！帰ってから丸刈りの頭見て、また感じまくってます！
0233デフォルトの名無しさん
NGNG／ ヾ ＼
/ / ヾ ＼
/ |ヽ ヽ
| / | ＼ |
/ // / /／/丿 | | | |ヾ＼|
| | /_/_/_/_/／ __|_|_.|_|_|＼ |
| | | ヽ-=・=| ヽ-=・=- | ||||
| | | | | | ||| ／￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| | ￣￣￣/ ￣￣￣ ||| ＜ 無職童貞３５歳守本浩司です。よろしく
| | | （ _⌒_ ） | || ＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿
.| | ＿,..､＿ / |
.| ヾ |＼ `ー～' /| | .| http://psycho_boge.tripod.com/index.htm
| ゝ＼ ／| | | |
| | ゝ ~`ー､＿__／ | | ||
////.∧| / | | | | |
0234デフォルトの名無しさん
NGNG0235デフォルトの名無しさん
NGNG0236546
NGNGaccessのVBAから、同じフォルダ内にあるエクセルをGetObjectなどで
呼び出そうと思うのですが、そのフォルダがサーバ上にある場合、
\\から場所を指定しないといけないですか？
0237デフォルトの名無しさん
NGNG問：
「同じフォルダ内にあるエクセル」とは、"*.xls"ファイルの事か。
「そのフォルダがサーバ上にある場合」とは、ネットワークドライブ経由でなのか、
あるいはWeb経由なのか。
注意：
"546"←こういうハンドルは紛らわしいのでわめてくれ。
0238236
NGNG*.xlsのことです。それで、ネットワークドライブ経由です。
サーバのフォルダ内に、
*.mdbと、"ａ"というフォルダがあります。
"a"の中に.xlsファイルがいくつかあり、その中の特定のファイルを
*.mdbのVBAから指定したいのです。
0239デフォルトの名無しさん
NGNG\\必要。
Mid(CurrentDb.Name, 1, Len(CurrentDb.Name) - Len(Dir(CurrentDb.Name))) & "a\" & "hoge.xls"
でOK。
0240236
NGNGありがとうございます。これでいちど作成してみます。
0241236
NGNGシート名が日本語の場合、エラーが出てしまいます。
というふうにしています。シート名をアルファベットに変えるとうまく開きます。
xls.Application.activeworkbook.sheets _
("シート名").select
日本語のシートは指定できないのでしょうか。
過去ログを見ると、初歩的な質問をしている人は「死ね」とか
暴言を吐かれていますが、ここは初心者は来たらいけないスレですか？
それとも暴言を吐いた人が田舎者なのですか？
0242236（ログ修正）
NGNGAccess2000のGetObjectで開いたエクセルのファイルの、シートを指定したいのですが、
シート名が日本語の場合、エラーが出てしまいます。
xls.Application.activeworkbook.sheets _
("シート名").select
というふうにしています。
シート名をアルファベットに変えるとうまく開きます。
日本語のシートは指定できないのでしょうか。
0243デフォルトの名無しさん
NGNGオブジェクトを得たら
Set tempobj = MyXL.Application.sheets.Item("ダミーデータ").cells(10, 1)
こんなふうにデータを取れる。
>暴言を吐かれていますが、ここは初心者は来たらいけないスレですか？
変に煽るな。質問者が荒らしを招いてどうする？
0244236
NGNGありがとうございます。
頭は働くのですが、目が疲れてズキズキするので
休憩してから数時間後にトライしてみます。
煽ったつもりは無かったんですが・・。素朴な疑問です。
他のスレ行くと、もっと酷い暴言が飛び交ってますね。（美容の巨スレなど）
顔を出さずに済むならここまで言えるんか。と呆れます。世も末ですね。
0245デフォルトの名無しさん
NGNGあなたも街中で「ここは暴言を吐く人達の集まりか？ 世も末だな」なんて
大声で言わないでしょ。
顔を出さず言いたいこといってるのはあなたも彼らと同じわけです。
0246デフォルトの名無しさん
NGNG街中でいえないことはここでも言わない。
こういう人間だっているんです。
どっちがまともかはわかりませんけれど。
スレ違いですみません。
0247デフォルトの名無しさん
NGNG街中には暴言を吐く人はいないでしょう。
暴言を吐く人たちのあつまる場所とはスラムのように荒れすさんだ場所です。
ここは２ちゃんねるです。
２ちゃんねるとはインターネットの中のスラムのようなものです。
ルールなんてものはありません。世も末なのも当然です。
0248デフォルトの名無しさん
NGNGきれいなスレばかりの2chなんて何の魅力もないと思う。
0249IP記録実験
NGNGhttp://qb.2ch.net/test/read.cgi/accuse/1042013605/
1 名前：ひろゆき ◆3SHRUNYAXA ＠どうやら管理人 ★ 投稿日：03/01/08 17:13 ID:???
そんなわけで、qbサーバでIPの記録実験をはじめましたー。
27 名前：心得をよく読みましょう 投稿日：03/01/08 17:20 ID:yL/kYdMc
SETTING.TXT管轄でないということは全鯖導入を視野に、か？
38 名前：ひろゆき ◆3SHRUNYAXA 投稿日：03/01/08 17:22 ID:rLfxQ17l
>>27
鋭いです。
73 名前：ひろゆき ◆3SHRUNYAXA 投稿日：03/01/08 17:27 ID:rLfxQ17l
＞ところで、IPが抜かれて何か今までと変わることってあるのでしょうか？
・今までより、サーバが重くなる。
・裁判所や警察からの照会があった場合にはIPを提出することがある。
0250デフォルトの名無しさん
NGNG0251デフォルトの名無しさん
NGNGあるネット関連会社の社長は、
「いずれにしても2ちゃんねるは資金が底をつけば終わり。
あまり知られていないことだが、2ちゃんねる内部関係者によると今、
大手通信会社系が調査費名目で資金提供している。
だが、それが止まれば続けてはいけないだろう」
と証言する。
2ちゃんねるが判決によって力を失った場合、
資金提供の打ち切りも予想される。
http://ascii24.com/news/reading/causebooks/2002/07/01/636911-000.html
0252デフォルトの名無しさん
NGNG逆転も何もないって。
勢いで上告なんかしても一発で上告却下(門前払い)だよ。
二審も一審を支持。これに対して上告しようにも、
刑事訴訟と同様、自由に上告できるってもんでもないのです。
民事訴訟法312条 （上告の理由） 1項
「上告は、判決に憲法の解釈の誤りがあること
その他憲法の違反があることを理由とするときに、することができる。」
http://www.m-net.ne.jp/~doba/goto/hon.htm
ようするに上告しても今の制度では100％無駄。 これで完全終了ってことか。
0253デフォルトの名無しさん
NGNGﾅﾌﾟとか見てればわかるだろ？
0254デフォルトの名無しさん
NGNGそれからというもの一定の画面でこの処理が多発します。
仕事になりません、どなたか理由わかりますか？
＜エラーメッセージ＞
アプリケーション ポップアップ:
MSACCESS.EXE - アプリケーション エラー : "0x77fcd510" の命令が "0xfffffff8" のメモリを参照しました。
メモリが "read" になることはできませんでした。
プログラムを終了するには [OK] をクリックしてください
分かる方、助けてください（T-T)
0255デフォルトの名無しさん
NGNG２ちゃんねるのお勧めな話題と
ネットでの面白い出来事を配送したいと思ってます。。。
===============================読者数： 138720人 発行日：2003/1/9
年末年始ボケがそろそろ収まり始めた今日このごろのひろゆきです。
そんなわけで、年末に予告したIP記録ですが実験を開始しています。
「２ちゃんねる20030107」
こんな感じで各掲示板の最下部に日付が入ってるんですが、
20030107以降になってるところはログ記録実験中ですー。
んじゃ！
────────────────────────Age2ch─
■この書き込みは、Age2chを使って配信されています。
────────────────────────────
Keep your thread alive !
http://pc3.2ch.net/test/read.cgi/software/1041952901/l50
────────────────────────────
0256困ったくん
NGNGpocosoftさんが作られているようですが、応答がありません。
よろしくお願いします。
0257デフォルトの名無しさん
NGNGWinnyで手に入れた重要機密が書かれたmdbの内容を公開したいんだ。
0258困ったくん
NGNG0259デフォルトの名無しさん
NGNG告発するような奴は2ちゃんねるなんか見ないと思われ。
0260254
NGNGWindows2000で、ACCESS2000です。
0261デフォルトの名無しさん
NGNG氏ねよ。クズが。
0262デフォルトの名無しさん
NGNGそれってAccessのみで動いてるorVB等から使われてる、どっち？
0263デフォルトの名無しさん
NGNG0264236
NGNG参照設定をしていなかったことが原因でした。
教えてくださった方、ありがとうございました。
0265デフォルトの名無しさん
NGNG＞datの書いた内容とIPが対になってることを証明すんのもめんどくさいもんな。
そゆことです。
114 名前：心得をよく読みましょう[] 投稿日：03/01/08 17:34 ID:ZxrhkN5z
幼女をレイプします
119 名前：ひろゆき ◆3SHRUNYAXA [] 投稿日：03/01/08 17:35 ID:rLfxQ17l
>>114
携帯電話からご苦労様です。
139 名前： ◆FruitsMIpE [sage] 投稿日：03/01/08 17:38 ID:s/ESWpsO
「携帯から」とか公開しないでほすぃ。。
150 名前：ひろゆき ◆3SHRUNYAXA [] 投稿日：03/01/08 17:40 ID:rLfxQ17l
>>114みたいなことを書いたらそうなりますです。>139さん
170 名前：ひろゆき ◆3SHRUNYAXA [] 投稿日：03/01/08 17:42 ID:rLfxQ17l
負荷が高そうなサーバにも入れて見ます。
217 名前：ひろゆき ◆3SHRUNYAXA [] 投稿日：03/01/08 17:49 ID:rLfxQ17l
一定期間でログは消しますです。
0266デフォルトの名無しさん
NGNG＞荒らしとか犯罪のためなの？
そす。
246 名前：心得をよく読みましょう[] 投稿日：03/01/08 17:52 ID:BH998yxV
>ひろゆき
俺のお気に入りのスレとか荒されてるんだがそういうのにも有効？
257 名前：ひろゆき ◆3SHRUNYAXA [] 投稿日：03/01/08 17:53 ID:rLfxQ17l
>>246
いずれは。
301 名前：心得をよく読みましょう[] 投稿日：03/01/08 17:57 ID:zbarv++q
>ひろゆき
2ch閉鎖って考えたことある？
310 名前：ひろゆき ◆3SHRUNYAXA [] 投稿日：03/01/08 17:58 ID:rLfxQ17l
>>301
ラウンジが重いですとかいちいち電話してくる人がいたとき。
0267デフォルトの名無しさん
NGNG＞荒らしとか犯罪のためなの？
そす。
246 名前：心得をよく読みましょう[] 投稿日：03/01/08 17:52 ID:BH998yxV
>ひろゆき
俺のお気に入りのスレとか荒されてるんだがそういうのにも有効？
257 名前：ひろゆき ◆3SHRUNYAXA [] 投稿日：03/01/08 17:53 ID:rLfxQ17l
>>246
いずれは。
301 名前：心得をよく読みましょう[] 投稿日：03/01/08 17:57 ID:zbarv++q
>ひろゆき
2ch閉鎖って考えたことある？
310 名前：ひろゆき ◆3SHRUNYAXA [] 投稿日：03/01/08 17:58 ID:rLfxQ17l
>>301
ラウンジが重いですとかいちいち電話してくる人がいたとき。
0268デフォルトの名無しさん
NGNG悲しいときー。悲しいときー。
正月に友人からエロゲーを借りて喜んで帰ってきたら、
パソコンが壊れてたー。
昨日ヨドバシカメラで部品買ってきて直しました。
0269デフォルトの名無しさん
NGNG0270デフォルトの名無しさん
NGNG0271デフォルトの名無しさん
NGNG027297クラック
NGNGパスワードを設定していないmdbの内容をパスワードが
設定されていると思われる文字数分コピーすれば…
0273デフォルトの名無しさん
NGNG0274デフォルトの名無しさん
NGNG256はバイナリエディタなんざ持ってません。
0275デフォルトの名無しさん
NGNG0276デフォルトの名無しさん
NGNGうんこちんこまんこ
0277デフォルトの名無しさん
NGNGブラクラ。
名無しの頃には何回か。
というお粗末。
0278デフォルトの名無しさん
NGNG0279デフォルトの名無しさん
NGNG２ちゃんねるのお勧めな話題と
ネットでの面白い出来事を配送したいと思ってます。。。
===============================読者数： 139038人 発行日：2003/1/10
なにやら、連日メルマガだしてるひろゆきです。
そんなわけで、ログ記録実験ですが、いちいちサーバ指定するのが面倒なので、
全部のサーバに入れてみました。
重くなって落ちたりしてもご愛嬌ってことで。。。
んじゃ！
────────────────────────Age2ch─
■この書き込みは、Age2chを使って配信されています。
────────────────────────────
Keep your thread alive !
http://pc3.2ch.net/test/read.cgi/software/1041952901/l50
────────────────────────────
0280デフォルトの名無しさん
NGNGむしろなんでも書き込んでいいと思うＤＱＮがへるだけまし。
0281デフォルトの名無しさん
NGNG0282デフォルトの名無しさん
NGNG一応ニュースになるんだね。
0283デフォルトの名無しさん
NGNG0284デフォルトの名無しさん
NGNG0285デフォルトの名無しさん
NGNG0286デフォルトの名無しさん
NGNG応募するには、電波2chのメールマガジンを登録するだけで良い。
さらに！驚くことにサイン入りカレンダーの他に、2chグッズが貰えると言う豪華さ。
新年早々良い事が有りそうだと思う人は申し込んで見よう！
http://dempa.gozans.com/backno/beta41/
0287デフォルトの名無しさん
NGNG0288デフォルトの名無しさん
NGNGの522からなんか出てるんですけど
2ｃｈってこんなに変わるの？
0289デフォルトの名無しさん
NGNG俺素人だからよくわからないが
アク禁にしないのは何か理由るのかな・・？
0290デフォルトの名無しさん
NGNG2ちゃんねるの幹部から得た話として証言する。
「2ちゃんねるは、運営者や幹部などが
それぞれ別々に会社を作りカネの流れを見え難くしているが、
実際の資金源は複数の大手通信会社系からの調査費名目のカネ。
月額で計約700万円と言い、年間にすれば1億円近く。
額はともあれ、これは通信会社系的には、
ぼう大なトラフィックを調査すると言う表向きの理由が一応は立つ。
自社系に都合の悪い書き込みがされた時に優先的に削除してもらうことも期待している」と前置きし
「通信会社系の削除の期待も含めて、2ちゃんねるは総会屋と同じになっている」と言うのだ。
0291デフォルトの名無しさん
NGNG0292デフォルトの名無しさん
NGNG言う事聞かないからって逆切れして、戦争（訴訟）に持ち込むなんて
正気を疑いますな(^_^;)
0293デフォルトの名無しさん
NGNG0294山崎渉
NGNG0295デフォルトの名無しさん
NGNG0296デフォルトの名無しさん
NGNGADOでレコードセットを取得した後、DataGridのプロパティに
レコードセットオブジェクト変数をまるごと代入したいのですが
適当なプロパティが見当たりません。
VisualBasicではデータグリッドコントロールにDataSourceという
プロパティがあるのですが、Accessにはみあたりません。
ADOでデータグリッドを使用するのが目的なので
なにかよい方法はないでしょうか？
0297デフォルトの名無しさん
NGNGSQLは発行出来るみたいなんですが、使いづらいです・・・。
0298デフォルトの名無しさん
NGNGisnull文という話も聞いたのですが、使い方がよく分からないので、ほかの方法があるのなら教えてくれませんか？
0299デフォルトの名無しさん
NGNGどんな方法がありますか？
いろいろ調べてみたのですが、Httpd+ブラウザで可能の様ですが、他にもありますか？
クライアントは閲覧だけの単純な物です。
0300山崎渉
NGNG0301デフォルトの名無しさん
NGNG0302299
NGNGODBCというのでアクセスできるみたいですが、
ネットワーク上の他のPCのとも通信できるのでしょうか？
0303デフォルトの名無しさん
NGNGVB Script で ADO 使ってテキストファイルに書き出すとか
MDBファイルにアクセスしたいならODBCは無視の方向で
0304299
NGNGいろいろ解説されたページが見つかりました。ありがとうございます。
ODBCのDSNの設定でネットワーク上のMDBを選択できるみたいなので、
これで直にアクセスすることも可能な様ですね。
各マシンにクライアントソフトを入れるよりhttpdをたちあげるほうが楽でいいのかな？
だいぶ見えてきました、ありがとうございます。
0305デフォルトの名無しさん
NGNGファイル共有型データベース(Access)とクライアント/サーバ型
データベース(SQLServer等)の違いについてしっかり勉強して
みると吉だと思いまつ。
Web化については、Accessのデータアクセスページという機能が
一番お手軽らしいです。が、私は使ったことがないれす。
0306デフォルトの名無しさん
NGNGパラメータークエリにプログラム（VBA)内から値を渡したいのですが、
何かいい方法があるでしょうか？
ネットも探しているんですがなかなかいい方法が無い・・・・
もうちょっと探しては見ますが。。。
ご存知の方よろしくです。
0307デフォルトの名無しさん
NGNGクエリをSQLにしてVBAに記述、パラメータ部分に変数をあてる
0308いんかす ◆9qOjTgf4as
NGNGと記述するとフォームの全ての行の背景色が変わってしまします。
選択中の行だけを制御する方法を教えて下さい。
条件付書式は使用しないでVBAから制御したいです。
0309306
NGNGその方法はすでにわかっているのですが、
事情により、パラメータクエリがすでにかなり多く作成されています。
できればこのまま使いたいので、フォームに入力したデータを
そのままパラメータに渡す方法があれば、と思ったんですが・・・
0310296
NGNGどんなふううに使用してるか教えてくれませんか？
0311デフォルトの名無しさん
NGNGdim qdf as dao.querydef
dim rs as dao.recordset
set qdf = currentdb.querydefs("クエリ名")
qdf.parameters("パラメータ名").value = "パラメータ値"
set rs = qdf.execute
0312デフォルトの名無しさん
NGNGたとえば、こんな感じで書けたらいいと思うんですが。
電話番号以外のすべての列を取り出し。
SELECT * - PhoneNumber FROM AddressBook
0313デフォルトの名無しさん
NGNG変更しようとしたのですが、変更されません
どうしたらよいですか？
SubForm.SourceObject = クエリ１
SubForm.Requery
反映されません＞＜
0314デフォルトの名無しさん
NGNG> 電話番号以外のすべての列を取り出し。
電話番号以外の全ての列を列挙する。
それぐらい面倒がるなよ。
それとも、フィールドの数が 100個もある、DQN DB 設計か ?
0315デフォルトの名無しさん
NGNGACCESSのユーザーアカウント情報は無視される様で、
データベースパスワードしか問われません。
0316デフォルトの名無しさん
NGNGむりぽ
0317デフォルトの名無しさん
NGNGWindowsＸｐでAccess2000って使えますか？
0318デフォルトの名無しさん
NGNGむりぽ
0319デフォルトの名無しさん
NGNGむりぽ
0320デフォルトの名無しさん
NGNG自分で調べろ。
0321デフォルトの名無しさん
NGNG即答ｻﾝｸｽｺ
0322320
NGNG自分で調べ方があなたの為。
それ以上は言わない。
0323320
NGNG>321充てだった。
間違えた。すみません。
0324デフォルトの名無しさん
NGNGエクスポートしようとすると、
「パラメータが少なすぎます。2を指定して下さい」
と出て出力してくれません。（パラメータ入力ウィンドウも出ない）
もちろんPC画面上ではパラメータを入力すればデータはちゃんと見れますし、
不思議なことにXLSにはちゃんと出力してくれました。
ちなみにクエリ上にパラメータは二つあります。
どなたか原因がわかる方はいますか？
ちなみにACCESS2000、Windows2000です
（今回は緊急だったのでとりあえずパラメータクエリをやめて、クエリデザインで定数を指定してCSV出力しました）
0326デフォルトの名無しさん
NGNGフォーム内のレコードソースだけを変えたいならこっち
SubForm.RecordSource=クエリ
SubForm.Requery
フォームごと変えたいなら
SubForm.SourceObject = フォーム名称
0327デフォルトの名無しさん
NGNGボタンのイベントか何かで表示させたとき、詳細部分の高さを
サブフォームの高さに合わせることはできるのでしょうか。
サブフォームを入れ替えることは出来ているのですが
２つのサブフォームの大きさがそれぞれ異なるため、
どちらの大きさにあわせても見た目が変になってしまいます。
どなたかうまいやり方を教えてください。
0328デフォルトの名無しさん
NGNGhightとかいうプロパティいぢってみるよろし。
0329デフォルトの名無しさん
NGNGAccess2002にdBase4のテーブルをインポートかけると、
フィールド名とレコード内データの全角文字が化け化けになっちゃいます。
MDAC2.1 + Access97なら、化けずにインポート可能(らしい)との情報は
得ているんですが、Access2002へのインポートは、不可能なんでしょうか？
BDEをいじったりしましたが、いよいよ、手がなくなっちゃいました（涙）
もしどなたか、情報をお持ちでしたら、よろしくお願いいたします。
0330デフォルトの名無しさん
NGNGサンクス、なぜかエラーがでます
kueriはクエリの名前です
特にkueriをselect * from table;としてもいいですよね？
SubForm.RecordSource="kueri"
SubForm.Requery
SubForm.RecordSource=kueri
SubForm.Requery
0331321
NGNGどうやらコンパネのODBC設定で選択できそうな雰囲気。
0332山崎渉
NGNG0333デフォルトの名無しさん
NGNGSubForm.Form.RecordSource = "kueri"
SubForm.Form.Requery
0334デフォルトの名無しさん
NGNG日付データを扱っているんですが、
現在のシステムはテーブルによってTEXT型8桁と、DATE型
が混在しているというとんでもない状態になっています。
どちらかに統一しようかと思っているんですが、
皆さんとしてはどちらがお勧めですか？
自分の考えでは、DATE型だとデータ入力時に"/"を入れなければ入れないなど、
今までYYYYMMDDで入力してきたユーザーとしてみたら慣れなさそうな感じがしたので、
文字列にしてしまって、昔ながらの日付計算などを
やってしまおうかー とも考えているんですが・・
でもせっかくDATE型と便利な型もあるんだから使ったほうがいいのかな・・・
0335デフォルトの名無しさん
NGNG定型入力に9999\/99\/99;0;_を入れればいいのでは？
0336デフォルトの名無しさん
NGNGスラッシュ無しで入力してもフォーカス外れるときに整形してやればええだけだと思うが・・・
0337デフォルトの名無しさん
NGNGＳＱＬで書くと、
update A
set A.date = B.date
from B
where A.NO = B.NO
といった感じになると思うのですが、エラーになってしまいます。
更新クエリーを使っても、うまくできません。
0338デフォルトの名無しさん
NGNG0339デフォルトの名無しさん
NGNG件名フィールドが存在しないのですが、これって仕様？
予定表だとあるのに。
試した人教えて下さい。
0340デフォルトの名無しさん
NGNG0341デフォルトの名無しさん
NGNGAccessとPostgreSQL, MySQL,Firebird, Oracle, MS SQL Server
との違いは何ですか?
これらのDBと比較してAccessを使うメリットとは何ですか?
0342デフォルトの名無しさん
NGNGPostgreSQL, MySQL,Firebird, Oracle, MS SQL ServerはDBMSです。
AccessはDBMSではありません。
データベースのフロントエンドツールです。(これもちょっと語弊があるが。)
違うものなので、単純な比較もできません。
比較するなら、JetやMSDEでせう。
0343デフォルトの名無しさん
NGNG> 比較するなら、JetやMSDEでせう。
比較するならファイルメーカーだろ
0344デフォルトの名無しさん
NGNG> AccessとPostgreSQL, MySQL,Firebird, Oracle, MS SQL Server
> との違いは何ですか?
Accessユーザにはヴァカが多い。これが決定的に大きな違い。
> これらのDBと比較してAccessを使うメリットとは何ですか?
ヴァカでもそこそこ使えるし、出来損ないのなんちゃってシステムを荒築
できる。
0345デフォルトの名無しさん
NGNG0346デフォルトの名無しさん
NGNGこれらのDBのフロントエンドツールとして
Accessを使う事が一番メリットが大きいのでわ。
0347デフォルトの名無しさん
NGNGファイル型はアクセス、ＤＢＡＳＥ、ファイルメーカーなどで
小型のパソコンなどで使われる
ＤＢＭはＳＱＬサーバーなどと言われ、専用にコンピューターを用意するような
大型のシステムの中心になる。データの管理はＤＢＭソフトが行なうので安心である
0348デフォルトの名無しさん
NGNG0350デフォルトの名無しさん
NGNG愚痴ったっていいじゃないか。
0351デフォルトの名無しさん
NGNG> 愚痴ったっていいじゃないか。
マ板でやれよ。
0352341
NGNGどもｻﾝｸｽ。
0353デフォルトの名無しさん
NGNGおれはMySQL使いだが、ほとんど常識だな。
0354デフォルトの名無しさん
NGNGフォームのサブオブジェクトの Recordset は2000でもDAOのオブジェクト
でしょ？
>>364
Accessって、凝ったことをやろうとすると急に難しくなるのよ。
なれてて定石を組み合わせてつくれるんならいいけど、プログラマが
甘く見て取りかかるとはまる。
0355デフォルトの名無しさん
NGNG開くと「モジュールが見つかりません」ってエラーがでるようになってしまったんでつが、
こういう場合はどうしたらいいんでしょうか。
0356デフォルトの名無しさん
NGNGまずは新しいMDB作ってそこへ全モジュールインポート。
動けばバンザイ。
0357デフォルトの名無しさん
NGNG今回はちょっと前のバックアップから戻してしまったので、
今度なってしまったら試してみます。
0358デフォルトの名無しさん
NGNG0359デフォルトの名無しさん
NGNGQ2.ADO、oo4oという方法が在ると聞きましたが、DOAでも可能ですか？
Q3.oo4oだと「Variantになってしまうのでデバッグが面倒くさい」らしいのですがそんなものですか？
Q4.oo4oってつかえますか？
0360デフォルトの名無しさん
NGNG「ちょっと前」ってのが問題なので、最新のものからサルベージできるならそ
れに越したことはないのです。
0361デフォルトの名無しさん
NGNGA1 最近のトレンドは無線LANですね。
A2 DOAといえばエロバレーです。
A3 えてしてデバッグはメンドクサイものです。
A4 私は使えません。
0362デフォルトの名無しさん
NGNGアップサイズ予定の無い Jet データベース用に ADO 使う奴がウンコ
0363デフォルトの名無しさん
NGNGサブフォームに表示されるものが変わるってのはどうすればよろしいの？
0364デフォルトの名無しさん
NGNGAccessでoo4oとか使うメリットないよ。
やるならVBにしたほうが。
>>354
参照設定しなくても使えたよ。
>>362
ウンコ発見
0365デフォルトの名無しさん
NGNGどう変えるの？
サブフォーム自体変えるの？
それとも表示されてるデータを変えるの？
0366デフォルトの名無しさん
NGNG表示されるサブフォームを別なものに変えたいのです。
0367デフォルトの名無しさん
NGNGsubForm.SourceObject = "フォーム名"
End Sub
0368デフォルトの名無しさん
NGNGどうもです。早速やってみます。
0369デフォルトの名無しさん
NGNGAccess2kを使用しているんですが、どの様な方法で以下のような処理をすればいいのかわかりません
●現状
フィールドＡに商品名（２桁）
フィールドＢに顧客コード（６桁）
が入ったテーブルを作りました
現在２５００レコード位あります。
当然商品名にはダブリが出ています（商品コードは６０種類位）
顧客コードはダブっていません。
で、このテーブルをすっきりさせる為、一つの商品コードに対して、
その商品の顧客コードを／区切りでつないで、一つのフィールドにまとめようと
思っています。
うまく言葉で説明できているかどうかわからんないので、例を書きますと
Ａ Ｂ Ａ Ｂ
01 000001 01 000001/000002
01 000002 → 02 000003/000004
02 000003
02 000004
このような形です。
１件２件でしたら力ずくでコピペする方法もあるのですが、２５００件ともなりますと・・・
初心者なので、こういった処理ができるかどうかもわからないで質問しておりますが、
どうぞよろしくご指導の程お願いいたします。
0370あ
NGNGDim rst As DAO.RecordSet
Set rst=CurrentDB().OpenRecordSet("SELECT * FROM Table_Name Order By A",dbOpenSnapShot)
Do until rst.EOF
rst.Edit
'ここになんか書く！めんどくさくなったので俺はや～めた。
'371よ、後は頼んだ。
rst.Updata
Loop
0371デフォルトの名無しさん
NGNG0372デフォルトの名無しさん
NGNGフィールドは全てテキスト型だよね？
ということで、テーブル名をテーブル1、２つのコードのフィールド名をそれぞれAとB、
コードをまとめるために新しく作ったフィールド名をCすると、
クエリーのＳＱＬビューから下のを貼り付けて、テーブル名やフィールド名を変える必要が
あれば変えてからクエリー実行。
UPDATE テーブル1 SET テーブル1.C = [A] & "/" & [B];
でも余計な心配かもしれんけど、371が言うように設計自体に問題あるかもよ・・・。
0373デフォルトの名無しさん
NGNG0374QQ
NGNGACCESS97でEXCELブックを読み込み、テーブルに書き込む処理を書いたんですが
途中でEXCELがハングしてしまいます
普通にCreateObjectして操作してるのですが
データ量が増えると駄目みたでして・・・
こんな障害例ってないですか？
0375デフォルトの名無しさん
NGNG0376デフォルトの名無しさん
NGNGつうか、せっかくAccess使ってるんだから単純にリンクせぇよ。
0377デフォルトの名無しさん
NGNGEXCELブックをCSVに変換してから読み込めば
0378372
NGNGあー今気づいたけど、意味取り違ってたみたい・・・すんまそ。
方法はあると思うけどやっぱりそれは無茶な設計なのではないかと・・・。
0379デフォルトの名無しさん
NGNG文字型フィールド（テキスト型、メモ型など）にデータを入れるとき
" (ダブルクォーテーション) でなく
' (シングルクォーテーション)を使っています。
これっていいのでしょうか？
例)
TableName は数値型のAとテキスト型Bの二つの列を持ちます。
このテーブルに
Aが999、Bがテスト という一件のレコードを追加する時、
INSERT INTO TableName Values(99,"テスト")
と発行するのが通常だと思いますが、うちの会社では
INSERT INTO TableName Values(99,'テスト')としています。
社内ではオラクルも扱うのでまぁ便利といえば便利ですが、
直感的にまずい気がしています。
ずばり、Accessに対してSQL文でレコードを追加する際、
文字列型の値は " でなく ' で囲んで安全が保証されるのか？
ということをお聞きしたいのです。
よろしくお願いします。
0380デフォルトの名無しさん
NGNG0381379
NGNGレスありがとうございます。
では、Accessに対して
' (シングルクォーテーション) でくくる意味は
全くないと理解してよろしいでしょうか？
0382デフォルトの名無しさん
NGNG基本設計に戻って考えた方がいい
販売管理の定番のファイルだと思う
マスターを別に持ってマスタ登録済み以外を入力させないようにする
商品マスタ、顧客マスタ、売上データファイル
0383379
NGNGすみません。
>' (シングルクォーテーション) でくくる意味は
>" (ダブルクォーテーション) でくくる意味は
の間違いでした。
まとめておくと、
AccessでSQL発行する時に
文字型フィールドに対して
' (シングルクォーテーション) で囲めばよい。
" (ダブルクォーテーション) でなければならない囲む理由はない。
という風に理解してもよろしいでしょうか？
お手数おかけします。
0384デフォルトの名無しさん
NGNGどうしたら、速くできるかおしえて。
0385デフォルトの名無しさん
NGNGDAOを使う
0386デフォルトの名無しさん
NGNG遅い所を探す所からはじめれ。
どうせインデクスが無いとかそういうオチなんだろうけどな。
0387デフォルトの名無しさん
NGNG0388デフォルトの名無しさん
NGNG0389デフォルトの名無しさん
NGNGそれだけの情報でアドバイスできるか、アフォ！
0390デフォルトの名無しさん
NGNG確かに>384が提供している情報はｱﾌｫみたいに少ないが、
俺様なら絶対に早くする為の秘策をアドバイスできるぜ。
早いCPU買え
早いHDD買え
どうだ>384、早くなっただろう？
困ったらまた俺様に聞きな。
0391デフォルトの名無しさん
NGNGﾌﾌｯ素人が。
メモリ増設しろ
が、抜けてるゼ。
0392あ
NGNGﾌﾌｯ素人が。
もっと的確なアドバイスがあるだろう。
窓から(以下略
0393デフォルトの名無しさん
NGNGACCESSのオプションでチェックをはずせば消えるのは知っていますが、
クエリによっては確認上出したい個所もあるので。
Win2K,ACCESS2000です。
0394デフォルトの名無しさん
NGNGヘルプを「警告メッセージ」で検索
0396デフォルトの名無しさん
NGNGすぐに壊れるんですが・・・
150Mを超えた辺りから不安定になり、500M以上ならば、ほぼ３～４回に一度はクラッシュ！
今はなるべく小分けしたＤＢを使って対処してますが、作業効率が落ちまくって
仕方ありません。
９７の時はこんな事なかったんですけどねえ・・・
２００２は2Kに比べたら安定してるんでしょうか？
それによっては購入も考えたいと思っていたりします。
使った事のある人がいたら、教えてください。
0397デフォルトの名無しさん
NGNGMSDEを使え
0398デフォルトの名無しさん
NGNG本の７３ページを参考に作っているのですが、更新クリエでエラーになります。
何が間違っているのか全然わかりません。
初心者なのでわかりやすく教えてください。
0399デフォルトの名無しさん
NGNGうち、2000で1G超のMDB使ってるけどそんな現象無いな。
そうじゃなくても、100メガ程度でDB破損が頻発するなんざ
いくらAccessでもありえないと思うけど・・・
ひょっとして、複数クライアントでMDB共有してるとか？
0400デフォルトの名無しさん
NGNGAccessの本は世の中に1冊しか無いと思ってるようですね？
0401デフォルトの名無しさん
NGNG1冊しか刷らない書籍ってあるのか？（ｗ
定価200万ぐらい付けないとコストを回収できないだろ？（ｗ
0402396
NGNGその通りです。
現在１０ユーザー位で共有して、てんでバラバラのタイミングでクエリの実行とか
行っているんですが・・・
これが原因なんでしょうか？
0403399
NGNGやっぱりｗ
97ではOKで2000だとNGってのがよくワカランけど・・・
基本的に、MDBをマルチユーザで動かすのはリスキーなものだと思っておいた方がいいよ。
運用や設計によっては問題なく動かせるらしいけど、そんな事に労力払うくらいならMSDEや
SQL鯖へ移行した方がずっと楽だと思う。
0404396
NGNGなるほど
考えてみれば、９７時代はスタンドアローンでＤＢを管理していたのですが、
２Ｋになってから共有するようになっておりまして・・・。
問題は２Ｋではなくて、環境だったんですね。
適切なアドバイスありがとうございます。
ところで、ＭＳＤＥというのは導入するとなると、どれくらい費用がかかる
物なのでしょうか？
正直、予算的には厳しい環境の中で仕事をしているので、なんともいえないの
ですが、クラッシュしなくなるんであれば、かなりの効率アップにつながると
思う物で・・・
申し訳ありませんが、よろしくお願いします。
0405デフォルトの名無しさん
NGNG>Visual Studioのユーザー（Professional Edition以上，Visual Basic，
>Visual C++，Visual InterDevといった単体製品でも可）であれば，Microsoft社のMSDEのページ
>http://www.microsoft.com/japan/developer/vstudio/msde/）からダウンロードするか，もしくは
>CD-ROMを実費で郵送してもらうことで，MSDEを入手できる。MSDEは，Office 2000 Developerおよび
>Visual Studioを使って自ら開発した製品とともに，無償で再配布できることになっている。
って事なんで、基本的にタダ。
0406396
NGNGをを！
ありがとうございます！
早速ダウンロードして試してみます！
0407デフォルトの名無しさん
NGNG0408デフォルトの名無しさん
NGNG俺はそう主張したが、
1ファイルにしてくれと言われた。
0409デフォルトの名無しさん
NGNGウチはそれやってるけど壊れるときがあるよ
ネットワーク共有のmdbではレスポンスが悪いし、
たまに壊れるのでMSDE+ADPに移行中です。
0410デフォルトの名無しさん
NGNGADOのレコードセット使っている時、
現在のレコードセットに格納されている件数を取得するプロパティみたいなのはありませんか？
ループで回してカウントするってのは無しで・・・・
よろしくお願い致します。
※RecordCountは違った・・・・それっぽかったのに（涙）
0411デフォルトの名無しさん
NGNG0412デフォルトの名無しさん
NGNGORACLEにリンクしたMDB経由でORACLEにアクセスしています。
処理内容はバッチ処理で、ファイルを開くと勝手に実行する仕組みになってます。
で、自分でMDB（プログラム）をダブルクリックして実行するとちゃんと動く。
が、ATコマンドでスケジューリングして実行しようとすると、
「3151 ODBC--<名前> への接続は失敗しました。 」
となる。
コマンドは
「AT hh:nn /INTERACTIVE "D:\UntaraKantara\PGM.mdb"
これは何が原因（・∀・）ﾅﾝﾃﾞｼｮ？
0413デフォルトの名無しさん
NGNG0414デフォルトの名無しさん
NGNGATコマンドってデフォルトではシステムアカウントで実行するからじゃないかな。
ログオンアカウントを設定してみては。
コンパネ→サービス→Schedule→ログオンのアカウント
0415デフォルトの名無しさん
NGNG0416デフォルトの名無しさん
NGNG人
（＿）
（＿__） よいちょ、よいちょ
（,,・∀・)
( O┬O
～ ◎-ヽJ┴◎ ｷｺｷｺ
0417デフォルトの名無しさん
NGNG人
（＿_）
（＿＿）
（ ・∀・） >>414 ありがとごじゃます
0418デフォルトの名無しさん
NGNG人
（＿）
（＿__） よいちょ、よいちょ
（・∀・,,)
O┬O )
◎-しﾉ┴◎ ～ ｷｺｷｺ
0419デフォルトの名無しさん
NGNGWindowsCE系のPDAの購入を考えてますが
Pocket AccessがAccessとデータの互換性がなかったり
M$サイトに「SQL Server CEならエキサイティングなエクスペリエンス」
とか言われて日曜プログラマな自分は途方にくれます。
WindowsCEでAccessを使うような話題を扱ってるスレとか
サイトを知ってる人いたら教えてください。
0420デフォルトの名無しさん
NGNGttp://www.wince.ne.jp/
たぶん↑が一番大御所。
この板にもCEスレあるでよ。
0421デフォルトの名無しさん
NGNGレコード長が2000バイト以上、項目数が256を超える固定長データを
取り込まなければならなくなりました（AS/400の固定長データなんですけど）
ここの住人ならご存知だと思いますが、明らかにACCESSにインポートできるデータではありません。
そこで、SQLサーバに取り込もうと思い、
SQLサーバのエンタープライズマネージャーのインポートウィザードで、固定長ファイルを
インポートしようと思ったのですが、
エンタープライズマネージャーにはACCESSでいうところの「インポート定義」
見たいなものはないんでしょうか・・・？
また、ACCESSで上記のような長いレコードを取り扱わなければならなくなった場合、
皆さんだったらどのようにしますか？（分割するってのは無しです）
やっぱりSQLサーバを使うしかないんでしょうか・・・？
ちなみにACCESS2000です
0422デフォルトの名無しさん
NGNGエンタープライズマネージャの件は質問の意図を汲みかねるが、
DTSインポートウィザードの「変換元テーブルの選択」で「…」をクリックする。
ってことでよいかな(こっちの環境はは7.0なので2000は知らん)
これが使えないならVBで1件ごと読み込んで書き込めばよいのでは
Accessで扱えない長いレコードを複数のテーブルに分割するのがNGなら、
他のRDB使う以外に解決策は無いと思うが>>421は何を期待しているのだ？
0423421
NGNG分かりづらい文章でスミマセン（－－；）
とりあえず、RDBはSQLサーバを使います。
DTSインポートウィザードは分かりますが、
これだと固定長フィールド列の定義をインポートする度に行わなければなりません。
あらかじめ別所で固定長データの桁数定義をしておき、
それを読み込むと自動的に固定長データが項目ごとに分割される
という機能を探しています。要するにACCESSのインポート定義みたいなやつです。
（毎月同じ形式の固定長データを読み込むため）
プログラムを使うしかないのかな・・・・
0424デフォルトの名無しさん
NGNGDTSパッケージを保存すればよい。
0425デフォルトの名無しさん
NGNGCSVにするだけでも扱いが全然違うじゃん。
毎月実行するなら面倒くさがらずに作れよ！
DTSとかMSツール使ったところで、結局その枠の中で右往左往しなきゃならん。
とりあえずSQLサーバなんていってるくらいだから処理の内容は見当がつくよ。
VBAなんかでPCで扱えるデータとして一般化しておけ。
作りたいデータはその過程で簡単で処理できるはず。
0426デフォルトの名無しさん
NGNG0427デフォルトの名無しさん
NGNG0428デフォルトの名無しさん
NGNGまあな。
0429デフォルトの名無しさん
NGNG0430デフォルトの名無しさん
NGNGム板スレでプログラム使わずに何とかしたいっつーのがな・・・。
0431422
NGNGDTSパッケージをファイルに保存してVBで操作するのが
プログラムが簡単で処理速度も結構速いと思うよ。
とりあえず、421はSQL Serverの勉強をがんばれ
0432デフォルトの名無しさん
NGNGどうしたらいいですか・・・。
誰か教えてください。
0433デフォルトの名無しさん
NGNG漫然としすぎて釣れないよ。
0434デフォルトの名無しさん
NGNG別MDBにインポートしなおせ
0435デフォルトの名無しさん
NGNGフィールド型ってありますか？
メモ型かOLEオブジェクト型かですかねぇ。
0436デフォルトの名無しさん
NGNG四次元ポケット型が便利。
(参照設定で「ドラえもん」を追加する必要あり)
0437デフォルトの名無しさん
NGNGAccess2000で開いても、ODBCツールで開いても文字が読めます。
内部で格納されてる型はUNICODEでしょうか。
普通片方では化ける筈なんですが、なんとなく、内部で勝手に文字コード変換やってそうで、
文字列長なんかではまりそう。
0438bloom
NGNG0439デフォルトの名無しさん
NGNGミドルウェア（データアクセスツール）の選択が変。
ADOでJetを使うなら、ODBCプロバイダではなく、Jet OLEDB 4.0を使うべき。
0440デフォルトの名無しさん
NGNG使用環境 Access2000 + ADO(今回は関係ないかも) + Win2000
レポートにおいて、ページフッターとレポートフッターの表示(Visibleプロパティ)を
切り替える処理をしています。各ページにはページフッターでページの単価の合計を
印刷、最後のページだけはページフッターを非表示にして、レポートフッターのみを
表示し、全体の合計を印刷する処理です。
レポートのデザイン上、詳細セクションの大きさは常に一定になっています。
下から４分の1ほどの大きさにページフッター、もしくはレポートフッターが印刷され
るような形です。
ここから質問なんですが、ページフッターセクションのVisibleプロパティを
フォーマット時イベントで切り替えてもプレビューに反映されません。
そのセクションのフォーマットイベントでは自セクション自体の可視プロパティは
有効にならないんでしょうか？
もう一つ、不思議な挙動があるのですが、プレビューが呼ばれる前にフォーマット時
イベントが数回呼ばれるようですが、これはなぜなんでしょうか。このときにpagesプロパティ
などを取得しようにも、0が代入されていたりとよく分かりません。
以上、どなたかよろしくご教授ください。
0441440
NGNGで質問させていただいたものですが、一応ソースを載せますと
If Me.page < Me.Pages Then
Me.Section("ページフッターセクション").Visible = True
Else
Me.Section("ページフッターセクション").Visible = False
End If
上記のような単純な処理なのですが・・・
宜しくお願いします。
0442デフォルトの名無しさん
NGNGページフッターセクションのフォーマット時イベントプロシージャの先頭に
If Page = Pages Then
Cancel = True
Exit Sub
End If
を追加すれば、最終ページでページフッターセクションが実行されない。
0443440
NGNG確かにかかれていたコードでページフッターの処理は飛ばせました。
が、更なる問題が発生しました。
状況としては最終ページがレポートフッターのみ印刷される状態になっています。
原因は、プレビューを実行したときに一ページ目が表示される前に
フォーマットイベントが起き、憶測ですが一通りのページがフォーマット
され、全ページ数が決定されるようですが、この時点では"Pages"プロパティ
に値が入っていないため"Page=Pages"の評価が正しく行われません。
よって、本来は最終ページにはページフッターじゃなくレポートフッターのみ
印刷されるところが、両方印刷されてしまい、結果的にレポートフッターが
入りきらず最終ページに印刷されてしまいます。
もう一度だけヒントだけでもいただければと思うのですが。
0444デフォルトの名無しさん
NGNG「レポートフッター以外」に設定すればいいんじゃないのか？
0445デフォルトの名無しさん
NGNGTXT形式とかで出力する方法ってないですかね？
0446440
NGNGそのプロパティは私も試しましたが、うまくいきませんでした。
プレビューを実行したときには、多分ですがそのプロパティに関わらず
すべてのページに対してページプロパティを表示してしまうからだと思います。
1ページ目
┌────────┐
│ヘッダー │
│詳細 高さ固定 │
│ページフッター │
└────────┘
2ページ目
┌────────┐
│ヘッダー │
│詳細 高さ固定 │
│ページフッター │
└────────┘
3ページ目
┌────────┐
│ヘッダー │
│レポートフッター│
└────────┘
私のレポートデザインで上記プロパティをレポートフッター以外に
設定しても上記のようになります。
詳細セクションが短くページフッターとレポートフッターが
同一ページに収まるような場合は期待した動作をするのですが。
やはり無理でしょうか？
0447444
NGNGなるほど、やっかいな話だな。
Accessではその3ページ目を「最後のページ」として認識してしまうわけか。
ちょっと面倒だが、レポートを開く時のイベントプロシージャで
本来の総ページ数を取得するロジックを組んでおいて、
それを>>442氏の[Pages]の代わりに当てはめてみたらどうだろうか。
If Page = p最終 Then
Cancel = True
Exit Sub
End If
自分で試した訳ではないので、上手くいくかどうかはわからないが・・・。
というより、もっと楽な方法もありそうだが・・・。
役に立てそうになくてｽﾏｿ
0448444
NGNG自分としても今後ぶち当たりそうな問題だったので色々と試してみた。
結果、>>446の方法じゃやっぱダメ。
その代わり、[p最終]を「ページヘッダー」の「印刷時イベント」で
次のようにさせてみたら上手くいってくれたみたいです。
If Page = p最終 Then
Me.ページフッターセクション.Visible = False
Else
Me.ページフッターセクション.Visible = True
End If
そのかし、これだと[Pages]は相変わらずのままなので、
レポート上で表示させるときは -1 させたるしかないようだ。
ちなみに上の構文を「ページヘッダー」の「フォーマット時」で
試してみると、なぜか上手くいかないのであった。
0449440
NGNG448のVisibleプロパティを変更する方法で取り急ぎ試してみまして、
イメージどおりになりました。
もう少し、時間をかけて試してみますが、すばらしいヒントありがとうございました。
イベントの呼び出し順やフォーマット時と印刷時の挙動の違いなど謎は多いですね。
印刷時イベントに設定すると若干の副作用が出ますが、これはしょうがなさそうですね。
0450440
NGNG全2ページ以上の場合はうまくいくのですが、1ページだけの場合だと
やはりうまくいきませんでした。
1ページ目にはページフッターは確かに表示されないのですが、レポートフッター
は2ページ目に表示されてしまいます。
なんとなくですが、"レポートフッターを印刷するページをAccessが決めるタイミング"と
いうものがあり、各ページのフォーマットイベントなんかよりも前にそのイベントが起き、
その後に、フッターなどを非表示にしても、レポートフッターを印刷するページ自体は
変わらないので、2ページ目に印刷されてしまうのだと思うのですが、如何なものでしょうか？
さらに、"レポートフッターを印刷するページをAccessが決めるタイミング"というのは
1ページ目の情報を元に決定されるようです。
多分この辺でおかしくなるんだと思うのですが・・・
なお、フッター処理をキャンセルさせても一緒でした。
0451444
NGNG解決できたです。
[p最終]を取得した時点で「1ページしか無い」と判断した時、
その場で「ページフッター」のVisibleをFalseにしちゃいます。
後は、「ページヘッダー」の「印刷時イベント」で
Trueに戻したりすることの無いように調整すればいいです。
この場合は、ちゃんと[Pages]は1として扱ってくれてるみたい。
っていうか、こんなにヒネたつくりしてると、
他にも色々と問題が出てきそうでなんかこわい。
>>440氏には悪いけど、こういう使い方はするべきではないのかも知れないね。
Access経験の深い賢者たちの意見を求む。
0452デフォルトの名無しさん
NGNG漏れも知りたい。COMでも使うしかないのかな?
0453デフォルトの名無しさん
NGNG0454440
NGNG大変助かりました。
確かに使い方としてはスマートじゃないですね。
しかし、今回のようなケースというのは結構あるような気がするの
ですけど、なかなか検索してもでてきませんし、あっても可視の切替の
ソースが載ってて中途半端で説明が終わってる気がします。
今回問題なのは、詳細セクションが固定で、フッター部分にはページorレポート
フッターいずれかしか印刷スペースが無いということですよね。
もう少しいろいろ試してみます。最悪の代替策としては、レポートフッターは
使わず、ページフッターに両フッターで表示するコントロールを配置し、最終ページ
かどうかで各コントロールの表示を切り替えるという方法ですが、デザイン時に
コントロールが重なって作業しにくい or レポートフッターの意味があまり無くなってしまう
というのが気になり、レポートフッターとページフッターの切替を考えていました。
今回はいろいろと教えていただきありがとうございました。
0455デフォルトの名無しさん
NGNGあと、Accessのインデックスって複数のフィールドにまたがって
作ることはできますか？
0456デフォルトの名無しさん
NGNGプライマリキー
レコードの一意識別子。同一キーを持つレコードが重複しないことを
保証するためのもの。
インデックス
索引のこと。文字通りで、データ検索の効率を高めるためのもの。
該当列のカーディナリティが高く、一般に検索条件に対するヒット率
(該当件数 / 母数)が低い方が効果が高い。
例えば、男女のデータがほぼ同数の場合、「性別」にインデックスを
付けても効果がない。
「カナ氏名」、「郵便番号」、「住基番号」、「会員番号」等は効果
が大きいと考えられる。(データの性質、アプリケーションの性格にも
よるので一概には言えない)
検索条件に使用しない列にインデックスを付けるのは意味がない。
また、更新処理は、インデックスを追加すると遅くなるデメリットが
ある。
> Accessのインデックスって複数のフィールドにまたがって作ることは
> できますか？
当然、できる。
それができないRDBは到底実用に耐えられない。
0457デフォルトの名無しさん
NGNGExcelではセルの書式を"mm:ss.000"で出来たのですが
同じようにデータを入力させるにはどうしたらよいのでしょうか？
0458デフォルトの名無しさん
NGNG困っています。
BeginTrans
DoCmd.RunSQL("INSERT INTO TESTTBL VALUES(1,'TEST')")
Rollback
これではロールバックされません。
他データベースに対しては
WorkSpaces(0).BeginTrans みたいにするようなのですが、
自分自身のWorkSpaceオブジェクトの取得方法がわかりません。
もしかしたら見当違いのこといってるかもしれません。
CurrentDB.BeginTrans みたいな感じかと思っていたのですが、
そのようなメソッドもなく困っています。
アクセスVBAでの更新処理はどのようにすればいいでしょうか？
0459デフォルトの名無しさん
NGNG> BeginTrans
> DoCmd.RunSQL("INSERT INTO TESTTBL VALUES(1,'TEST')")
> Rollback
Set db = DBEngine.OpenDatabase(strFileName, Options....)
DBEngine.WorkSpaces(0).BeginTrans
db.Execute "INSERT INTO MANKO VALUES(1,'TIMPO!')"
DBEngine.WorkSpaces(0).Rollback
ごめん、説明するのがめんどくさいから、後は、ヘルプ読むなりして
自分で調べてくれ。
0460458
NGNGありがとうございます。
Docmd.RunSQLで実行するとしか頭に無かったので
思いつきませんでした。
アクセスに直接書いているから
わざわざOpenDatabaseしなくても
他の方法が定石なのかと思っていました。
ありがとうございます。
0461デフォルトの名無しさん
NGNGSet db = ws.Databases(0)
ws.BeginTrans
db.Execute 云々
ws.Rollback
ホントはこうやって使う
0462459
NGNGですね。仰る通り。m(_ _)m
> Set db = DBEngine.OpenDatabase(strFileName, Options....)
動作確認してないけど、これ↓ならOK？？
Set db = DBEngine.WorkSpaces(0).OpenDatabase(strFileName, Options....)
0463デフォルトの名無しさん
NGNGしかも「その順位の何位から何位までを取り出す」
という条件を付けたいのですが、下記のように
するとデータが増えれば増えるほど遅くて使い物になりません。
Accessでという限定つきですがほかに良い方法ありませんでしょうか。
※「クラス」テーブルの「名前」フィールドを名前順にソートし、
順位付けして１０位から２０位まで出す例
SELECT b.名前, (SELECT Count(*) FROM クラス AS a WHERE a.名前<b.名前) AS 順位
FROM クラス AS b
WHERE (SELECT Count(*) FROM クラス AS a WHERE a.名前<b.名前)>10
AND (SELECT Count(*) FROM クラス AS a WHERE a.名前<b.名前)<=20
ORDER BY 名前;
0464458
NGNGありがとうございます。
参考になりました。
>動作確認してないけど、これ↓ならOK？？
>Set db = DBEngine.WorkSpaces(0).OpenDatabase(strFileName, Options....)
↑ＯＫでした。
なるほど、WorkSpaceオブジェクトでトランザクション処理を制御してるみたいですね。
>461
>Set db = ws.Databases(0)
なるほど、こうやってDatabaseオブジェクトを取得する方法もあるんですね。
ん？としたらws.Databases(0)=CurrentDBってことなんですね。
とある情報ではなぜかまではわかりませんでしたが、HelpによるとAccess2000では
「CurrentDbメソッド」を推奨しているらしいので（私のヘルプはなぜか破損していて見れませぬ。。）
Set ws=Workspaces(0)
Set db=CurrentDB
ws.BeginTrans
なんらかの処理
ws.RollBack
のようにトランザクション処理を制御するのがベストだと思います。
勘違い等、指摘していただけると助かります。
0466デフォルトの名無しさん
NGNGデータの処理はほとんどVBAからはSQLを書かず、ストアドでやってたんですが
今度MSDEを使わずDBもMDBを使って開発することになりました。
クライアントとサーバーのMDBは当然分けるとして、ストアドが使えないから
VBAでSQLを書いてやろうと思ったんですけど、サーバーのMDBにクエリーを作って
クライアントのMDBから、ADOXを使ってサーバーMDBのクエリー動かしてストアドのようにしようかなぁと
ふと、思ったんですけどどうでしょうか？
SQL投げるよりクエリーの方がコンパイルされてて早いって聞いたし、
データの流れる量も少ないかと・・
ひとつ不安なのはデータのMDBは普通テーブルしか置かないと思いますけど、
クエリーを作ってがんがん実行させて耐久性とかやっぱ落ちちゃうのかなぁって思ってます。
皆さんの意見を聞かせてください。
0467デフォルトの名無しさん
NGNG基礎から勉強することを激しく勧める
0468デフォルトの名無しさん
NGNGおまえ、ファイル共有型とC/Sの違いを理解してないだけちゃうかと。
それでもMDBで行くというなら逃げろ。全速力で。
0470デフォルトの名無しさん
NGNGttp://www.int21.co.jp/pcdn/vb/noriolib/vbmag/9911/packet/
を穴があくまで読んでからもう一回出直して来いよ。
0471デフォルトの名無しさん
NGNG>>470
> 穴があくまで
セキュリティホールでも開けるのか？（ｗ
0472デフォルトの名無しさん
NGNG0473あぼーん
NGNG／:＼.＿＿＿_＼
|:￣＼(∩´∀｀) ＼ ＜先生！こんなのがありました！
|:在 |:￣￣ U￣:|
http://www.saitama.gasuki.com/yuusei/
0474デフォルトの名無しさん
NGNG何年目？恥ずかしいよ。入るか入らないかの問題じゃなくてさ。
0475あぼーん
NGNGhttp://muryou.gasuki.com/hankaku/hankaku03.html
http://muryou.gasuki.com/hankaku/hankaku04.html
http://muryou.gasuki.com/hankaku/hankaku02.html
http://muryou.gasuki.com/hankaku/hankaku01.html
http://muryou.gasuki.com/hankaku/hankaku06.html
http://muryou.gasuki.com/hankaku/hankaku05.html
http://muryou.gasuki.com/hankaku/hankaku08.html
http://muryou.gasuki.com/hankaku/hankaku07.html
http://muryou.gasuki.com/hankaku/hankaku08.html
http://muryou.gasuki.com/hankaku/hankaku09.html
0476あぼーん
NGNGr｢l l h. ／￣￣￣￣￣￣￣￣￣￣
| ､. !j |
ゝ .f ＿ |
| | ,r'⌒ ⌒ヽ､. │ http://www.saitama.gasuki.com/aomori/
,｣ L_ f ,,r'￣￣ヾ. ヽ. │ こんなのあったニダ
ヾー‐' | ゞ‐=H:=‐fｰ)r､） |
| じ､ ﾞiー'･･ー' i.ﾄｿ |
＼ ＼. l ; r==i; ,; |' .人＿
＼ ﾉﾘ^ー-＞==__,..-‐ﾍ＿＿＿
＼ ノ ﾊヽ |_/oヽ__／ /＼
＼ / / / |.
y' /o O ,l |
0478デフォルトの名無しさん
NGNGmdbに書いたVBAで別のmdbに接続して、
接続したmdbのテーブルをサブフォームにして
表示したいと思っているのですが、どうもうまくいきません。
というのはレポートソースには
ローカルに保持しているオブジェクト名か、SQLしか
書けないみたいなのでどうすればいいか悩んでいます。
リンクテーブルはメンテの関係上使用できません。
ローカルに一時テーブルを作成してそこから表示することも、
mdbを共有する関係上できないです。
OpenDatabaseで開いたDbオブジェクトの保持するテーブルをどうやったら
レポートソース(Form_TESTFORM.ReportSource)に
設定できるでしょうか？
よろしくお願いします。
今万策尽きた状態で悩んでます。。
0479デフォルトの名無しさん
NGNG0480478
NGNGありがとうございます、
上手くいきました。
これで明日から気持ちよく作業が進めます。
ほんとありがとうございます。
こんなプロパティあったんですねぇ。
参考になりました。
0481デフォルトの名無しさん
NGNG作ったのですが、Access をインストールしないで初期状態の MDB ファイル
だけを配布先のマシンに入れるのって、ライセンス上何か問題ありますか?
0482デフォルトの名無しさん
NGNGフォームやレポートのテキストボックスに、
２００３０３とテキスト型で格納されているデータを
平成１５年０３月と表示させたいのですが
上手く行きません。
何か良い方法はないでしょうか？
0483デフォルトの名無しさん
NGNG2003 と 03 を別フィールドにする
0484482
NGNG説明不足でした。
２００３０３とテキスト型で格納されているデータですが、
これはテーブル上に格納されているデータです。
フォームやレポートではテーブルを基にしたクエリを使用しています。
クエリに以下の式を入れました。
和暦年月: Format(Mid([適用開始年月],1,4) & "/" & Mid([適用開始年月],5,2) & "/01","gggee\年mm\月")
該当するフォームやレポートのテキストボックスの
コントロールソースに和暦年月を使用して解決しました。
0485アクセス太郎
NGNG猛者の皆様にお聞きしたいのですが
Access２０００で コマンドボタンを押した時に
OutlookExpressを起動させメールを送りたいのです
で エクセルファイルを添付したいのですが
添付だけが 出来ないのです。
手動で添付させれば問題は無いのですが
何か方法があれば 教えて頂きたいと思いまして
0486デフォルトの名無しさん
NGNGまず、自分の試した方法を説明しろよ。
どうやったら添付できなかったのか？
0487山崎渉
NGNG0488デフォルトの名無しさん
NGNG特定のユーザIDをクエリの抽出条件のとこで指定して年令フィールドのみを持ってきたい場合
ユーザIDが合ってれば年令が取り出せますが
ユーザIDが無いものを抽出した場合、当然ですが年令フィールドには何もかえってきません
このとき、クエリはnullを返しているのですか？
んで僕はそのかえってきた値を利用して計算式に代入したいのですが、、、
0489デフォルトの名無しさん
NGNG"0件" の結果を返すことと、null を返すことは違うよ。
> んで僕はそのかえってきた値を利用して計算式に代入したいのですが、、、
意味わからん ? 何をしたいんだ ?
0490488
NGNG簡潔にまとめると
あるテーブルの列と行を特定して、そのセルに入ってる値を取ってきたいって事です
でもクエリでその操作をする時に
テーブルの中に該当する行が見つからなかったときは返ってくる値がない
値がないということは、返しているものはNULL？ってことが聞きたかったのです
0491デフォルトの名無しさん
NGNG> 値がないということは、返しているものはNULL？ってことが聞きたかったのです
の答えは、
>> "0件" の結果を返すことと、null を返すことは違うよ。
だよ。
データベースの内容とクエリの内容によっては、null が一万件返って来る事もあるぞ。
もしかして、これも理解してないのか ?
0492488
NGNG値がないんだから返してるものも無いって事ですか
分かりました。
>データベースの内容とクエリの内容によっては、null が一万件返って来る事もあるぞ。
抽出したい部分（セルの値）がなにも設定されてなかったら（nullなら）って事ですね、それは分かります
0493デフォルトの名無しさん
NGNG当然NULL値を入力すべきカラムもありえる。
セルと呼んでいるところを見ると初心者と見受けられるので、入門
書を一冊読む事を薦める。
0494デフォルトの名無しさん
NGNG> 0もスペース(空白文字)もNULLも全部違う。
お前も勘違い組か ?
ここの話題はそう言うことじゃないぞ。
> 入門書を一冊読む事を薦める。
あんたにも薦めとくよ。
0495デフォルトの名無しさん
NGNG0496デフォルトの名無しさん
NGNG下記の検索文字テーブルと検索対象テーブルを比較して検索文字テーブル存在する
検索対象テーブルのデータ前後に決まった文字列を可能なのでしょうか
・検索対象テーブル
［内容］
可能表現には人が意志を持って何かをする
・検索文字テーブル
［内容］
可能表現
人が
意志を
持って
・検索結果格納テーブル
［内容］
<A>可能表現<B>には<A>人が<B><A>意志を
<B><A>持って<B>何かをする。
最終的に ＨＴＭＬに変換したいので宜しくお願いいたします
0497デフォルトの名無しさん
NGNG0498デフォルトの名無しさん
NGNG> 下記の検索文字テーブルと検索対象テーブルを比較して検索文字テーブル存在する
> 検索対象テーブルのデータ前後に決まった文字列を可能なのでしょうか
Access の前に、日本語を勉強しろよ。
0499デフォルトの名無しさん
NGNGどの内容によって
そのレコードを更新したいので、
SELECTと同時にロックしたいのですが、
やり方がわかりません。
DAOでいうなら
rst.Edit
でいけるのですが、
これをSQLで行うにはどのようにすればいいのでしょうか？
お願いします。
Oracleでいう「FOR UPDATE」みたいなのが
あると思って探したのですが、
見つからなくて困っております。
0500山崎渉
NGNG（ ＾＾ ）＜ ぬるぽ（＾＾）
0501山崎渉
NGNG（ ＾＾ ）＜ ぬるぽ（＾＾）
0502デフォルトの名無しさん
NGNGWin2KとAccess2000を使用しています。
一つのMDBをホストにおき、
クライアントがそのMDBに対し、UpdateやEditをかけたりします。
Update文などは全てSQL文で書いています。
しかし、クライント2台が同時接続をすると、すぐに飛んでしまうのですが、
これってそんなモノでしょうか？
回避とか出来ますか？？
0503デフォルトの名無しさん
NGNGすべてSQLで処理しているならサーバーはMSDEに替えたほうがよいよ
0504デフォルトの名無しさん
NGNG飛んでしまう、ってのはどういう現象なのか、エラーメッセージは出るのか
等をもうすこし書いたほうが吉だで。
どっちにしろ>503に同意だけど。
0505デフォルトの名無しさん
NGNG回答有難うございます。
ソフトはBuilderで作っています。
飛んでしまう状態は、書き込み処理が正常に行われずに、飛んでしまいます。
エラーメッセージとしては「排他処理でﾛｯｸされている可能性があります。」と
でます。
Accessのオプションで、共有設定にしたりしています。
MSDE、、そうですよね。
私もそうは思いますが、仕様が仕様なので。
もう少し、自分で色々調べてみます。本当に有難うございました。
0506デフォルトの名無しさん
NGNG> エラーメッセージとしては「排他処理でﾛｯｸされている可能性があります。」と
> でます。
ロックされてたらちょっと待って再試行するとかしてないの ?
0507デフォルトの名無しさん
NGNG下記の検索文字テーブルと検索対象テーブルを比較して検索文字テーブル存在する
検索対象テーブルのデータ前後に決まった文字列を可能なのでしょうか
・検索対象テーブル
［内容］
可能表現には人が意志を持って何かをする
・検索文字テーブル
［内容］
可能表現
人が
意志を
持って
・検索結果格納テーブル
［内容］
<A>可能表現<B>には<A>人が<B><A>意志を
<B><A>持って<B>何かをする。
最終的に ＨＴＭＬに変換したいので宜しくお願いいたします
0508デフォルトの名無しさん
NGNG0509499
NGNGえ、、アクセスの共有ってそんなに駄目だったんですか。
私明日から仕事でそういうの作ろうとしてます。。
>499が私なんですが、
>502さんの状況が
アクセスの限界によるものなら、
本気でやばいです。>499の質問どころではなくなってきました。
もう正直仕様の変更がきかないところまできています。。
>503
ということは出来る限りSQLを使用しないようにすれば
害は無い、ということでしょうか？
アクセスが共有に弱いのはなんとなく聞いていましたが、
その原因はページ単位のロックにあるものと思っていたので、
>502さんの状況ほどとは思ってなくてお客様の要望どおり、
アクセスでの仕様を決定してしまいました。
Accessの採用、複数のクライアントからのアクセス。
この二点は同考えても今更仕様を変更できません。
>502さんのような状況に陥らないようにするには
どうすればいいでしょうか？
なんとかアドバイスお願いします。
泣きそうなのでageさせてください。。
0510デフォルトの名無しさん
NGNGそんな仕様訳もわからず受ける奴もしんじられんが。。。
どうしてもやらなきゃならんなら、元データ連結は絶対
にパスし、自前ロックをつけんとな。。。
MSDEで作った方が楽だ（ｗ
0511デフォルトの名無しさん
NGNG> >503
> ということは出来る限りSQLを使用しないようにすれば
> 害は無い、ということでしょうか？
どうやったらこう言う解釈ができるようになるんだ...。
0512503
NGNGSQLで処理しているなら、mdb共有からMSDEへの移行がしやすいってことです。
502さんの処理が飛んでしまうのはロック時の処理が誤っているからでしょう。
コーディングに問題があるのかBuilderのバグなのかは判りません。
ページロックの問題は非連結フォームにして更新するときだけ
ロックするようにしてはどうでしょうか（楽観的ロック）
また、MSDEに移行できるようにADO+SQLでコーディングして
クエリーに自作の関数を使用しないようにしましょう
0513デフォルトの名無しさん
NGNG>>Accessの採用、複数のクライアントからのアクセス。
>>この二点は同考えても今更仕様を変更できません。
業務で使うなら、しかも客先納付なら絶対に怖くてできない組み合
わせだね。
複数同時アクセスは当然として、JETを採用する理由は?
0514499
NGNG実はかなり小さい会社で
唯一のSEが退社してしまい、
仕方なく、私が、、ということになり、困っております。
元データ連結を避けることはネットで調べてかいてありましたので、
そうします。
MSDEはさっぱりわかりません。
今の仕事が済み次第、急いで覚えます。
>511
すみません、わかってはいるのですが、
そうでないと困るので、無理やり解釈してしまいました。。
>512
きちっとロック処理を行えば、まだ見込みはある、ということですね。
それを聞いて少し安心しました。
>513
私自身MSDEというものについて知識が全く無く、
選択肢が無かったためです。
反省しております。
0515499
NGNGたくさんのアドバイスありがとうございます。
ほんとに感謝しています。
なんでもかんでも聞く気はありませんが、
力不足故、どうしてもわからない時は
助言していただけると助かります。
実は入社7ヶ月目でいきなりの山です。。
ＭＳＤＥ、。
名前だけ知っていて調べようとしなかったことを、
まがいなりにもプログラマーとして恥ずかしく思っております。。
たくさん意見していただきましたが、
一言一言に感謝しています。
ありがとうございます。
0516デフォルトの名無しさん
NGNGつーか、上司いないの ?
マジで、
> 実は入社7ヶ月目でいきなりの山です。。
と言う状況なら、組織の問題だと思うけど。
0517502
NGNG昔にAccessのDB,AccessVBAでソフト書く仕事をしたときは、
今ほど飛びませんでした。
（SQL文で書いて、大丈夫でした。
一日何万件もあるようでしたら、MSDEがいいと思いますけど。）
>503さま
>512でご指摘いただいた、ロック時の処理ですが、
どこかで、『既定のレコードロック』を『編集済みレコード』にチェックするといい。
と、書いてありましたので、そのようにしました。
まあ、変わりませんでしたが。(;´д｀)ﾄﾎﾎ
Update文を実行すると飛んでいるようなので、どうもBuilderにも問題がありそうです。
（もちろんソースも色々チェックしています。）
解決できましたら、また報告いたします。
ありがとうございました。
0518デフォルトの名無しさん
NGNGという項目があるけど、どうなってる？
ま、Accessの行ロックは糞だとしか聞かないんでｱﾚだが。
0519デフォルトの名無しさん
NGNGどうもこうも
すんごい勢いでmdbがでかくなるだけなのだが。
こんな行ロック信用できるか。
どうしてもやりたきゃ、ロックフラグカラム追加して
自前でロックだ。漏れはこんなことはもうしないが
酔ゐこは素直にMSDEを使おうね（ｗ
0520デフォルトの名無しさん
NGNG> すんごい勢いでmdbがでかくなるだけなのだが。
本来、ページロックしかできない仕様なので、行ロックを
無理やり実現するため、レコードをページサイズに合せて
大きくしている、と聞いた記憶がある。(藁
信憑性のある情報なのか、都市伝説の類なのか、不明。
0521アクセス素人
NGNGコマンドボタンとコマンドボタンを線でつなげたいのですが
そのやり方ｷﾎﾞﾝﾇ
というか教えてください おながいします
0522デフォルトの名無しさん
NGNGの人間がそんな言葉遣いでどうしようってんだろう。
それが人に物を頼む態度かね？
0523アクセス素人
NGNGわかるかた 教えてください
お願いします
0524デフォルトの名無しさん
NGNG文面通りに取るなら、だが。
0525アクセス素人
NGNGコマンドとコマンドを なんと言えばいいのか上手く説明できませんが
そこにボタンがあると認識させて 線が延びる
・・・
見たいな感じにしたいのですが
説明がへたくそですみません
0526デフォルトの名無しさん
NGNG0527デフォルトの名無しさん
NGNGあまりうまく説明できないからどうしようもないのですが
ボタンとボタンを自動的に結んでくれるのを期待しているのですが
とりあえず位置計算して引くようにしてみます
どうも迷惑かけました
0528デフォルトの名無しさん
NGNGLine.Left = Command1.Left + Command1.Width
Line.Width = Command2.Left - Line.Left
みたいなことか？
0529デフォルトの名無しさん
NGNG〓〓〓〓〓
｜〓｜
｜〓｜
｜〓｜
(⌒⌒)
＼／
〓
【チンコお守りレス】このお守りを見たあなたは超超超幸せ者！
2週間以内に必ず彼氏・彼女が出来るよ！
すでにいる人は超～ラブラブ みんなが幸せになりますように…
そのかわりこのコピペを１時間以内に、5つ別のスレに貼り付けてね・・
でないと、あなたはインポや性病になります。
0530デフォルトの名無しさん
NGNG方法はないものでしょうか？
0531デフォルトの名無しさん
NGNGもう遅いから、ネタ書く暇あるなら寝ろよ｡
0532デフォルトの名無しさん
NGNGつい最近、作ったよ。
別に、VBで作っても、Delphiで作ってもよかったんだが、Accessの方がメンテ
しやすいと思ったんで。
(DelphiもVBも職場のPCにIDEがインストールされていない、という事情もあり)
CDO(事実上、MAPIとおなじもの？)を援用しただけのシロモノなので、これを
以って「開発」と呼ぶに値するか甚だ疑問ではあるが。(藁
0533デフォルトの名無しさん
NGNGExchange Server がないと使えないのでは？
0534デフォルトの名無しさん
NGNGメールをDB化したいだけなら、Outlook(Express)とつなげば簡単じゃない？
0535530
NGNGすでにやってます。
OutLookだと、バージョンによってｵﾌﾞｼﾞｪｸﾄを
変更しなくてはならないし、ｳｲﾙｽに弱い、呼び
出しﾒｯｾｰｼﾞがｳｻﾞｲ、、OutLookそのものに依存
しなくちゃ何にもできない等々で使いたくない
ので、、、
0536デフォルトの名無しさん
NGNGAccess そのものに依存するのはいいんだろうか...。
0537デフォルトの名無しさん
NGNGVBで作っているEXEを使って二つのMDBファイルを同期を取りたいのですが、
パスは大文字小文字が混ざっていて困っています。Oracleでいう、
SELECT * FROM table WHERE UPPER(path) = 'hogehoge'
のような感じでとるか、あるいは別の方法で同期は取れないでしょうか。
0538デフォルトの名無しさん
NGNGage厨には答えません。
0539デフォルトの名無しさん
NGNG無料登録で、もれなく商品券とメールアドレスが貰える！！
http://camellia16.fc2web.com/cafest.html
0540デフォルトの名無しさん
NGNG0541デフォルトの名無しさん
NGNGたんなる煽りにいちいち反応すんなって
0542デフォルトの名無しさん
NGNGVB で mdb ２つ開いて、各々パス名でソートした結果を元にマージすればいいんじゃないの ?
LCase とか、UCase とかを知らないと言うだけのことか ?
0543デフォルトの名無しさん
NGNG一度やったのは
1. Recordset (x2) を取得
2. 全部大文字にして配列 (x2) に取得
3. 比較
4. なければ足す
だけど、遅かったので他の方法 (AccessとかADOの機能で) を模索中。
0544530
NGNGOutLook使用すると、激しく環境に依存しますが、
Access単体でメーラとして活用できれば
ランタイムもあるし、全く問題はありません。
0545デフォルトの名無しさん
NGNG> 1. Recordset (x2) を取得
> 2. 全部大文字にして配列 (x2) に取得
なんでこんなことする必要あるの ?
SQL の時点で大文字にしてソートしとけばいいだけだろ ?
> 3. 比較
まさかと思うけど、片方ひとつに対してもう一方全部を舐めたりしてないよね ?
それとも、データが100万件ぐらいあるのか ?
0546デフォルトの名無しさん
NGNG言ってる内容が理解できないのは俺だけか ?
0547デフォルトの名無しさん
NGNGうぉ！ Access の SQL だと UCase (Field名) だたーのですね！しらんかった。
それはそれとして，データは（アクセスなのに）数万件なので、速い方法があ
ればいいなぁとおもいまつ。
0548530
NGNG「アクセスをメーラがわりに使いたい」
だけのことすら理解できませんか？
0549デフォルトの名無しさん
NGNG一体どれぐらいの時間で終わらせたいんだ ?
0550デフォルトの名無しさん
NGNGサブジェクトにはちゃんと「未承諾広告」入れとけよ(w
0551デフォルトの名無しさん
NGNGVBAでメールのライブラリ呼び出すんなら、使うライブラリOutlookと一緒、つま
り多くの問題も一緒、ってことわかってないよね。
0552530
NGNGここじゃまともなレスつきそうもないなぁ。。。
0553デフォルトの名無しさん
NGNGBASP21を使って作りましょう。
http://www.hi-ho.ne.jp/babaq/basp21.html
0554530
NGNGこれは使えそうですね。やっとマトモな方が（ｗ
ここは基地外ばかりじゃなかったのですね。
ありがとうございました
0555デフォルトの名無しさん
NGNG0556デフォルトの名無しさん
NGNG別MDBへリンクテーブルはれば、片方で通常のSQL一発で出来る可能性が。
0557デフォルトの名無しさん
NGNGいまからJETを使う意味ってあるのかな？
0558デフォルトの名無しさん
NGNG積極的に使うって事はあまり無いと思うけど・・・
予算・要件などの関係上、消去法でJetになるケースも多々あるのでわ？
0559デフォルトの名無しさん
NGNG線しか引けません
調べても見当たらないので
わかる方、教えてください。お願いします
0560デフォルトの名無しさん
NGNG線を組み合わせれば矢印になるだろーが
0561デフォルトの名無しさん
NGNGそれはわかるのですが
違うやり方を探しているんです
なにかありませんか？
ないのかなー
0562デフォルトの名無しさん
NGNGLabelに矢印を書いてそことつなげるのはどうだろうか。
現状ではExcelみたいな矢印付き直線にはできないし。
0563デフォルトの名無しさん
NGNGhttp://sakots.pekori.jp/imgboard/imgs/img20030502213554.gif
0564デフォルトの名無しさん
NGNG採用
0565デフォルトの名無しさん
NGNGご採用ありがとうございます。つきましては使用料ですが…
0566デフォルトの名無しさん
NGNG0567デフォルトの名無しさん
NGNG採用させてイだ抱きます
0568デフォルトの名無しさん
NGNG0569デフォルトの名無しさん
NGNG（ ´,_ゝ｀）ﾌﾟｯ
0570デフォルトの名無しさん
NGNGやつと発見と思ひきや、Mac版でありました。
果たしてPC/AT用のSEDITは何処にあるのでせう。
当方、昭和の御世からパソコンを使つてゐる者です。
0571デフォルトの名無しさん
NGNGTime ステートメントじゃダメなのか ?
>>569
できないなら黙っとけよ。
0572デフォルトの名無しさん
NGNG0573デフォルトの名無しさん
NGNGAccessは使ったことないんだけど、APIのSetSystemTime()を呼べばいいんじゃないの？
0574デフォルトの名無しさん
NGNGVi
0575デフォルトの名無しさん
NGNGありがとうございます
あまりにもくだらない質問で放置かと思いました。
「時計なんてのは普通マウスとキーボードでいじるもんだろ」と。
まったくそのとおりです。
でも、キーボードのないPCなんです。
素人の僕がAccessで七転八倒しながらどうにか作った、
パートの女の子たち用の出退勤管理DB
女の子たちはまともなPCなんてつかえません。
タッチパネルで使ってるんです。
PCの時計ってのはなぜか良く狂う。びっくりするぐらい良く狂う。
遅れたPCで出勤チェック、進んだPCで退勤チェック、なんて知恵を女の子
たちは身につけてしまいました。
今までは時刻合わせためにいちいちキーボードをつないでいましたが、
もう疲れてしまいました(いちいち電源落とさなきゃならないし)
SetSystemTime()
ヘルプには載ってませんでしたけど、ググったらぞろぞろ出てきました。
これから試してみます。
(APIってのは、そもそも何なんでしょうね。ときどきお役立ちサイトから
ひろってきて使わせてもらってますが、いまだに正体が分かりません。
少なくとも僕が書くような糞モジュールとは全然質が違うようです)
0576デフォルトの名無しさん
NGNG時刻合わせするソフト使ったら？
0577568
NGNG何となく出来そうなんで、あとちょっとだけ頑張らせてくださいな。
SetSystemTimeってのは、9時間足されちゃうんですね
修正するための関数つくらなきゃならないのかな
いや、そんな面倒な話はねーだろ。
なんてことを考えつつふたたびこのスレにもどってきて、
Timeステートメントという言葉をあらためて読み返してみた。
これだったらHelpに載ってました。
というわけで
Dim MyTime
MyTime = #----#
Time = MyTime
標準モジュールも要らず、たった3行で済むことが判明したのでした。
0578デフォルトの名無しさん
NGNGサーバーは桜時計で時刻を合わせて
http://www.venus.dti.ne.jp/~uno/software/
クライアントはスタートアップで net timeを実行してサーバーと時刻を合わせる
http://hp.vector.co.jp/authors/VA002739/ntcom/com_network/time.htm
0580デフォルトの名無しさん
NGNG代入する時刻はどこからゲットするつもりだよ
0581bloom
NGNG0582デフォルトの名無しさん
NGNGに置いたのですが下記のエラーが出てしまいます。
Microsoft VBScript runtime error '800a01a8'
Object required: 'ObjConn'
DBName="Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & _
Server.Mappath("/ユーザーID/db/member.mdb")
Set ObjConn = Server.CreateObject("ADODB.Connection")
ObjConn.open DBName←この部分でエラーが発生
ローカルでは問題なく動きました。
Brinksterに詳しい方、何か解決策はありますでしょうか?
0583568
NGNGごめんなさいごめんなさい、番号まちがえてました
timeステートメント感謝します
夕べ、というか、明け方は、かなり意識も朦朧としてまして
いま起きたところです
>>588
フォームのテキストボックスを利用するつもりです
そこに数字上げ下げボタンつくって
0584デフォルトの名無しさん
NGNGLANやインターネットに接続していないPCなのか？
>>578みたいな方法が一般的だろ
0585568
NGNGなるほど、>>578 見逃してました
LANで7台ほどつながってますが(なんちゃってサーバー1台と子機6台)、
インターネットにはつながってません
こっちも試してみます
きょうはあんまり夜更かしできないけど
夕べはtimeとかtimerとかで遊んで時間をつぶしてしまった
timerつかうと、フォームで時計がつくれるんですね
ちょっと面白かったです
0586デフォルトの名無しさん
NGNGﾃｷｽﾄの書式をyyyyとして、
規定値を="2003"としてるのですが、2002と入力すると
「このﾌｨｰﾙﾄﾞに入力した値が不正です。」とMsgBoxが出ます。
何故？？
この値を元にｸｴﾘｰを作成してﾌｫｰﾑを開くのでつが、2003年だけじゃ意味なし。
ヘルプがうまく作動しません。
右ｸﾘｯｸも効かないし。
いちいちﾌﾟﾛﾊﾟﾃｨ開くのにﾂｰﾙﾎﾞｯｸｽｸﾘｯｸすんの面倒だよおーー。
0587デフォルトの名無しさん
NGNG書式yyyyは不要だろ
0588586でつ
NGNGﾚｽありがとう。うまくいきますた。
ところで、空ﾃﾞｰﾀ時の処理ですが、
ﾚﾎﾟｰﾄでNoData時にはｲﾍﾞﾝﾄﾌﾟﾛｼｰｼﾞｬｰが用意されてますが、
ﾌｫｰﾑにはないので、開く前の時点で空ﾃﾞｰﾀかどうかを
いちいちﾚｺｰﾄﾞｶｳﾝﾄ調べるしか手はないのでしょうか？
ところでAccess使用中だけ、右ｸﾘｯｸ効かないのは何故なのだ･･･
0589動画直リン
NGNG0590デフォルトの名無しさん
NGNG'サーバーの時計と同期
RetVal = Shell("net time \\サーバーの名前 /set /yes", vbHide)
0591デフォルトの名無しさん
NGNG教えてください。
下のようなデータがあります。
「F1」 「F2」
A D
A E
A F
B F
B G
B H
B J
これをF1の値が同じ場合はグループと考えて
１レコードにして
別のテーブルに下のように書き出したいのです。
F1の値が同じでF2の値が異なるものは
最大でおよそ50前後あります。
「F1」 「F2_1」 「F2_2」 「 F2_3」 「F2_4」 …
A D E F
B F G H J
F2の値をチェックして書き出すときに
書き出し先のフィールドの指定をどうすればいいのか解らなくてはまっております。
0592デフォルトの名無しさん
NGNG0594デフォルトの名無しさん
NGNGACCESS VBAから、ODBCデータソースアドミニストレータの画面
（ユーザーDSNとかシステムDSNとかのタブがある画面）を呼び出すことって
できますか？
さらに、そこで選んだDSN名をＰＧで取得することってできますか？
厨な質問で申しわけないんだけど、判る方、よろしくお願いします。
0595デフォルトの名無しさん
NGNGいや…書き出し結果はDBとして使うわけじゃないんですが…
結局何もアドバイスはないんですね。
0596デフォルトの名無しさん
NGNGDAO.DBEngine.OpenDatabase( "")
は駄目か？
0597594
NGNGおお！ でてきました。ありがとう！
愛してる！
0598デフォルトの名無しさん
NGNGテーブルデータの条件がわからないのでなんともいえませんが・・・
クロス集計で変えられませんか？
F2の値が確定しているものだったら集計クエリでもできるかも。
そうじゃないならDAOとか使うしかないかな。
書き出し結果はExcelに出しますか？
Excelに出力するなら邪道だけど、そのまま出力してから、
行列の入れ替えを使ってコピーしなおしたらいかが？
ExcellVBA使えば自動でできるし。
0599デフォルトの名無しさん
NGNG今までクエリで作ってた表示画面を
ビューに置き換えたら
かなり速くなったぞ。（Accessでクラサバの場合）
速度で悩んでる人は参考にしてください。
0600デフォルトの名無しさん
NGNG速いし、DBも壊れない。
ここを読めば違いが良く分かるよ
http://www.int21.co.jp/pcdn/vb/noriolib/vbmag/0004/msde/
0601デフォルトの名無しさん
NGNGネタに決まってるだろ。だって
Accessでクラサバの場合
だよ。
0602571
NGNG> 結局何もアドバイスはないんですね。
>>593 の、「諸事情でできないなら、F1 でソートしといて、あとはプログラムで頑張れ。」は無視というわけだな。
タコなテーブル設計する奴はさすがだよ。
0603デフォルトの名無しさん
NGNG同意。聞いておいて、そりゃないわなってな態度だな。
きっと彼は何も解決できないよ。
0604デフォルトの名無しさん
NGNGレポートのセクションて何オブジェクトか知ってる人いませんか？
Witheventsでイベント受け取りたいんだけど、
Sectionだとフォームのセクションになっちゃう。
0606デフォルトの名無しさん
NGNG>>591みたいなデータの並べ替え(並べ替えなのかな?)
何となく身に覚えあり、です
たとえば、F1が住所、F2が名前とかで
たとえば葉書の宛名書きで
住所が同じの人は、1枚にまとめて XX様 & YY様 & ZZ様
みたいにしたいとき。
いや、>>591がそういうことをしたいのかどうかは知らないけど。
僕はたまたまそうだったってこと。
はじめはExcelに吐き出してやってたんだけど(Excelなら簡単だよね)、
何が何でもAccessで完結させたくなって。
でも、クエリだけじゃどうにもならなくて。
生まれて初めてレコードセットってのを使った。
けっこう面白かったよん。
0607デフォルトの名無しさん
NGNG> たとえば葉書の宛名書きで
レポートでやれや。
0608571
NGNGまあ、定期的にこう言う話題が出てくるね。
データベースってあくまでも必要なデータを取り出したりするもので、データの並びを表現するもんじゃないからな。
多分こう言う奴の頭の中では、データベースがレコードとフィールドが Excel のセルみたいにイメージされてんだろうね。
レイアウトのために、３レコード空白レコード入れたいとか言い放った奴もいるし。
でも、MS のことだから >>591 みたいなことができる集約関数とか作りそうで怖い...。
0609デフォルトの名無しさん
NGNG0610デフォルトの名無しさん
NGNG時計の件はどうなったの
人に聞くだけじゃなくて、どのように解決したかも書き込もうよ
0611デフォルトの名無しさん
NGNG0612デフォルトの名無しさん
NGNGだからDBとして使うデータじゃないっていってるのに
能書き言うのはよく理解してからにしたらどうですか？
そんな素人でもできる批判をわざわざするなんて
自分の能力さらしてるようなもんですよ。
それに結局なにも答えらしい事はいってないじゃない。
あなたのレスみると、この件以外でもね。
反応するのはやめておこうと思ったけど、
あんまり得意そうなレスについつい釣られました。
ちなみに知りたかったのは配列のインデックス値でした。
>>598さん
遅くなりましたが、考えてくださってありがとうございました。
0613598
NGNGﾏｧﾏｧ...もうちょっと判りやすく書いた方が良かったかもですね。
私も情報が少ないので598のような回答しかできなかったです。
配列のインデックス値が知りたいとかって、書かれてないんで
お役に立てなかったようで残念です。(´･ω･`)
0614598
NGNG実際 >608 のようなﾔｼは沢山いますね。
別に591さんの批判というより、一般論を言いたいんだと思いますよ。
0615デフォルトの名無しさん
NGNG>>608をよんで違和感を感じる人はACCESS使いを自認していいと思う。
0616571
NGNG何怒ってんのか、煽ってんのか知らんけど。
> だからDBとして使うデータじゃないっていってるのに
> 能書き言うのはよく理解してからにしたらどうですか？
ハァ ? としか言い様が無いんだけど。
一応 Access (≒ ここでは Jet) は、DB なんだよ。
テーブル設計がおかしいと言うことも理解できてないんだろうな。
> そんな素人でもできる批判をわざわざするなんて
> 自分の能力さらしてるようなもんですよ。
まあ、これはあたり。
> それに結局なにも答えらしい事はいってないじゃない。
おいおい、結局 >>593 は無視ということだな。
まあ、批判は >>602 に書いたから再掲しないけど、普通に考えたら最低の態度だと思うよ。
ちょっとでも考えた俺がヴァカだったってことだな。
> ちなみに知りたかったのは配列のインデックス値でした。
何これ ? 何の配列 ?
あの質問でこれに答えられる奴いるのか ?
正直今時点 (>>613 読んだ後でさえ) 何を聞きたいのかさっぱりわからんよ。
>>615
まあ、MS の功罪だな。
Access のテーブル画面なんか Excel みたいな感じだからな。
勘違い野郎が増えるのはしょうがない。
ただ、>>612 みたく逆切れする奴はどうしようもないな。
0617デフォルトの名無しさん
NGNG0618デフォルトの名無しさん
NGNGアド
って読むんですが
とてもイヤです。
この想い、届け君の心に。
0619デフォルトの名無しさん
NGNGどうやってADOを使ってAccessのフォームからデータベースに
データを書き込むの？
0620あ
NGNGもうちょっと具体的に。
データベースってなんの？
0621素人の野暮ったいやり方ですけど
NGNGテーブル2 : >>591の下の段で、F1を除く右側がNullの状態
Tb2のレコード一つ一つにつきTb1総なめなので、数が多いと時間がかかるかも
Dim MyDB As New ADODB.Connection
Set MyDB = CurrentProject.Connection
Dim Tb1 As New ADODB.Recordset, Tb2 As New ADODB.Recordset
Set Tb1 = New ADODB.Recordset
Set Tb2 = New ADODB.Recordset
Tb1.Open "テーブル1", CurrentProject.Connection
Tb2.Open "テーブル2", MyDB, adOpenKeyset, adLockOptimistic
Dim Atai As Variant
Dim CntF As Integer
Tb2.MoveFirst
Do Until Tb2.EOF
Atai = Tb2!F1
Tb1.MoveFirst
CntF = 0
Do Until Tb1.EOF
If Tb1!F1 = Atai Then
CntF = CntF + 1
Tb2("F2_" & CntF) = Tb1!F2
End If
Tb1.MoveNext
Loop
Tb2.MoveNext
Loop
MsgBox "Fin"
0622おもしろそうなパズルだね
NGNG出力テーブル名はTOut1
Dim dbs As DAO.Database
Dim rst1 As DAO.Recordset
Dim rst2 As DAO.Recordset
ReDim ExtFieldName(1) As String
Dim FieldNameNumber As Integer
Dim i As Integer
Dim SQLStr1 As String
Dim SQLStr2 As String
Set dbs = CurrentDb
FieldNameNumber = 0
dbs.Execute "create table TTemp1 (F1 char);"
SQLStr1 = "select F1, count(F2) As F2Number from TTest1 group by F1;"
Set rst1 = dbs.OpenRecordset(SQLStr1)
While rst1.EOF = False
dbs.Execute "insert into TTemp1 (F1) values ('" & rst1!F1 & "');"
If FieldNameNumber < rst1!F2number Then
FieldNameNumber = rst1!F2number
End If
rst1.MoveNext
Wend
rst1.Close
0623622に続く
NGNGFor i = 1 To FieldNameNumber
ExtFieldName(i) = "F2_" & i
Next i
SQLStr2 = "(F1 char"
For i = 1 To FieldNameNumber
SQLStr2 = SQLStr2 & ", " & ExtFieldName(i) & " char"
Next i
SQLStr2 = SQLStr2 & ");"
SQLStr1 = "create table TOut1 " & SQLStr2
dbs.Execute SQLStr1
0624623に続く
NGNGWhile rst1.EOF = False
SQLStr1 = "insert into TOut1 (F1"
For i = 1 To FieldNameNumber
SQLStr1 = SQLStr1 & "," & ExtFieldName(i)
Next i
SQLStr1 = SQLStr1 & ")"
Set rst2 = dbs.OpenRecordset("select F2 from TTest1 where F1 = '" & rst1!F1 & "';")
i = 0
SQLStr2 = " values ('" & rst1!F1 & "'"
While rst2.EOF = False
SQLStr2 = SQLStr2 & ",'" & rst2!F2 & "'"
rst2.MoveNext
i = i + 1
Wend
While i < FieldNameNumber
SQLStr2 = SQLStr2 & ",''"
i = i + 1
Wend
SQLStr2 = SQLStr2 & ");"
rst2.Close
SQLStr1 = SQLStr1 & SQLStr2
dbs.Execute SQLStr1
rst1.MoveNext
Wend
rst1.Close
dbs.Execute "drop table TTemp1;"
Set rst1 = Nothing
Set rst2 = Nothing
dbs.Close
0625デフォルトの名無しさん
NGNGフロントエンドをアクセスで作り、バックエンドはＳＱＬ ＳＥＲＶＥＲの
Ｃ/Ｓ型のＤＢを構築しようと思っています。
別のアプリケーションが生成するデータとＷｉｎｄｏｗｓメッセージを
受領し、そのデータをアクセスフォームに表示すると同時にＳＱＬ
ＳＥＲＶＥＲへ内部的にデータを書き込みさせたいんです。
その後、表示させたデータを編集したい場合もある事から、フォーム上から
書き込みも可能にしたいんですが。。。
0626デフォルトの名無しさん
NGNGまずは、本を買って読む
http://www.amazon.co.jp/exec/obidos/ASIN/4774109657/ref=pd_sim_dp_2/249-8842329-6677114
0627デフォルトの名無しさん
NGNG> それとも暴言を吐いた人が田舎者なのですか？
ひどい暴言ですね
0628デフォルトの名無しさん
NGNG今、パススルークエリつかって、AccessからOracleのPL/SQLのファンクションを
実行してるんですけど、うまく戻り値が取れません。
お客さんところでは、oo4oが使えないらしいので、DAOを使って書いてみたんですけど、ネ
ット検索しても情報が少なくて、やっと実行までこぎつけたところです。
コードは↓のような感じです。
ファンクションHOGEHOGEの戻り値は
FLG（Number型）：0＝正常終了、-1＝異常終了
STR（VARCHAR型）：OUTオンリーのパラメータ
異常終了時のORACLEエラーメッセージ
です。
Set DBS = DAO.DBEngine.OpenDatabase("", False, False, "ODBC;")
Set QD = CurrentDb().QueryDefs("QDA")
QD.Connect = DBS.Connect
QD.SQL = "DECLARE STR VARCHAR2(500); FLG NUMBER; BEGIN FLG := HOGEHOGE(STR); END;"
QD.ReturnsRecords = False
QD.Execute
QD.Close
書き方が悪い！とか言うお叱りの言葉などもいただけたら幸いです。
0629628
NGNG吊ってきます…。
0630デフォルトの名無しさん
NGNGうまくいかなかった。
ADOのが楽にできるよ。
0631デフォルトの名無しさん
NGNG１．"XXXX IS NOT NULL"
２．"XXXX <> NULL"
どっちが適切ですか？
0632bloom
NGNG0633山崎渉
NGNGﾋﾟｭ.ｰ ( ＾＾ ） ＜これからも僕を応援して下さいね（＾＾）。
＝〔~∪￣￣〕
＝ ◎――◎ 山崎渉
0634デフォルトの名無しさん
NGNG好きにしろ
0635デフォルトの名無しさん
NGNG俺は１．が好み。
0637デフォルトの名無しさん
NGNGIS NULL を使用してください。
比較演算子は、いずれかの引数、または両方の引数が NULL の場合、
UNKNOWN を返します。
Access(Jet)で、たまたま動作したとしても、SQLの常識から外れたことなので
比較演算子は使わないようにしましょう。
0639628
NGNG遅レスでごめん。ありがとね。
ただ、ADO使うなって指示が来てるんで困ってるッス。
取り合えず実行はできるんだけどねぇ。
エラーが返ってこないのはイタイ。
0640デフォルトの名無しさん
NGNGODBC経由でOracleのテーブルにリンクを張るのですが、
MDBを再起動させた後に、テーブルを開くとパスワードを入力する画面が
出てきてしまいます。
リンクを更新するときには、
DAO.DBEngine.OpenDatabase( "")
と記述して、ユーザに使用するDNSソースを選んでもらい、パスワードも
そこで取得しています。
このパスワードを保存して、次にMDBを立ち上げたときにも入力画面が
でてこないようにしたいのですが、何かいい方法ありますか？
0641デフォルトの名無しさん
NGNGSet cn = New ADODB.Connection
cn.Connectionstring = "山崎渉"
cn.Open
君にＡＣＣＥＳＳ
0642デフォルトの名無しさん
NGNGレコードのロックってupdateの一瞬しか利かないんですか？
それじゃロックの意味があまり無いんじゃ・・・と思うんですけど。
0643デフォルトの名無しさん
NGNGどんなコーディングしてるのだろう。
0644デフォルトの名無しさん
NGNG表示したいのですが、方法をご存じの方はありませんか？
0645デフォルトの名無しさん
NGNGActiveXにInternet Explorerがあるからそれをフォームに乗せる。
あとは、Navigateメソッドにファイル名を指定すればよし。
0646640
NGNG毎回メインフレーム読み込む時に、このロジック書いて
（接続文字列はDBに保存しておいて）リンク張りなおすようにしますた。
ちと重いけど、まあ許してもらおう。
0647640
NGNGアフォですな…
0648デフォルトの名無しさん
NGNGそこからレコードをエクセル2000にエクスポートしたいのですが、
Docmd.TransferSpreadSheetを使っているのですが、
他のユーザーにロックされているから閉じれない、という意味のエラーがでて
エクスポートできません。
試しにAccess上のメニューバーから普通にエクスポートしてみたのですが、
16383行以降が出力されません。
どうしたらいいでしょうか？
お客さんの扱うデータは六万件前後なので、お手上げ状態です。
どうも情報が少ないみたいで自力で回避することはできない状態です。
どうかよろしくお願いします。
0649デフォルトの名無しさん
NGNG新しくデータベースを作ってみて、そこに元データベースから全てのオブジェクトを吸い上げてみよう。
その上でエクスポートを試行せよ。
0650デフォルトの名無しさん
NGNGいいからさっさとエラーダイアログの内容をメモ帳に書き写して
ここに書き込め。話はそれからだ。
0651デフォルトの名無しさん
NGNG0652デフォルトの名無しさん
NGNG悪い事言わないからSQL鯖なりﾎﾞﾗｸﾙなりに乗り換えれ。
まとめてあぼーんの恐怖が付きまとう。
0653デフォルトの名無しさん
NGNG6万件程度なら別に珍しくもなんともないと思うけど。
気にするべきはデータ容量であって、件数ではないのでわ。
きちんとしたDBMSを使ったほうが色んな意味でイイってのは同意だけど、
Accessで対応可能ならAccessでいいじゃん。
0654648
NGNG>649
なるほど。
そうすればエクスポートできるかもしれないですね。
でも、お客さんに納品すると、自分の手から離れるので、
また今回と同じ状況になることもありえるのでちょっと今回は
見送りますね。すみません。
>650
すみません、実は覚えてない＆すぐ再現できる環境ではないのです。
とりあえず二人が同じエクセルファイルを開いて、後からそのファイルを変更すると、
保存できない、変更を破棄するにはＯＫぼたんを～
のようなメッセージが出ると思いますが、あれと内容が凄く似ていたと思います。
>651
そうかもしれないのですが、エクセルへの「エクスポート時」の
行の限界に触れている解説を見つけれなかったのでよくわかりません。
そうなのでしょうか？
>652-653
仕様なので今更変更効かないので今回は見逃してください。。
結局のところ何件までの同時エクスポートが保証されているのでしょうか。
同じようなパターンに出会った方おられませんか？
0655デフォルトの名無しさん
NGNGこんな感じの SQL 実行するほうが好き
SELECT
*
INTO
[Excel 8.0;Database=C:\hoge.xls].[Sheet1]
FROM
テーブル1
0656デフォルトの名無しさん
NGNG普通にメニューバーから16383行以上エクスポートされるが……
0657648
NGNGあれ、ほんとですか。
会社のの環境では駄目みたいです。
ちなみにAccess2000 Win2K Serverです。
どうもよくわからない制限ですね。。
ちなみに出力しようとしたテーブルには
フィールドが１００以上ありました。
これも問題かもしれません。
かといってフィールドを減らすわけにもいかないのです。。
0658デフォルトの名無しさん
NGNG標準やり方のわかる方はおられますか？
WEBのメニューもあるので方法はあると思うのですが？？？
0659デフォルトの名無しさん
NGNG0660デフォルトの名無しさん
NGNGレスありがとうございす。
コードで追加するのですね。。目から鱗ですｗ
で、HELPや他のwebを眺めて、下記のようなサンプルなどを
取得しやってみたのですが、
Dim myCB As CommandBar
↑
ここの宣言で「ユーザ定義型は使用できません」となります。
On Error Resume Next
CommandBars("Sample").Delete
Set myCB = CommandBars.Add(Name:="Sample", _
Position:=msoBarFloating, MenuBar:=False, Temporary:=True)
With myCB
.Controls.Add Type:=msoControlButton, ID:=21, before:=1
.Controls.Add Type:=msoControlEdit, before:=2
.Controls.Add Type:=msoControlDropdown, before:=3
.Controls.Add Type:=msoControlComboBox, before:=4
.Controls.Add(Type:=msoControlPopup, before:=5).Caption = "Popup"
.Visible = True
End With
参照設定のMS-ACCESS8 objectLibrayの指定はしてあるのですが、
原因はどこにあるかおわかりでしょうか？
0661デフォルトの名無しさん
NGNG俺 Accessって使ったことないので よくわからないのですが
DBにADOでアクセスして 190万件のDBを 固定長TXTに落としたいのですが
これって アクセスでできるでしょうか？
0662デフォルトの名無しさん
NGNGExcelなら動作するコードですね。
0663660
NGNGMS-OFFICE 8 Librayと間違えました。
0664660
NGNGちなみにAccess97ですが、動作しました。
ただ、Office8ObjectLibraryは、Accessのみの
インストールでは出てきませんね。
。。。配布時にはどうしたものか
0665660
NGNGでも、いろいろテストが必要だ。。。
0666662
NGNGAccess 2000でも動作したよ。
.Visible = Trueの前の行に
.Position = msoBarTop
を追加するといいかも
0667デフォルトの名無しさん
NGNG可能。
っつーか、その用途ならいちいちAccess使うメリットなんぞ無いと思うが？
VBでもDelphiでもいいから、使った事ある奴でやったほうが確実。
0668662
NGNGPosition:=msoBarFloatingの記述があったのね
0669デフォルトの名無しさん
NGNGのショートカットキーを無効にしたいんだけど
Altキーを押しながらF4キーを押すSendKeysステートメントが
わかりません。
ttp://www.accessclub.jp/samplefile/help/help_187_2.htm
の例にならって%({F4})とするとエラーが起きるし、
AccessのHelpにはAltキーのSendKeysステートメントが載ってない…
だれか助けて
0670デフォルトの名無しさん
NGNGSendKeys "%F4"
0671困ったさん
NGNG【難題】
① フォームに、テキストボックスと、ボタンを配置する。
② テキストボックスに、ファイルへのパス（「c:\db\sample.xls」等)
を入力して、ボタンをおすと、ExcelやWordやAcrobat等のアプリケーションが立ち上がって、パスにあるファイルが開く。
こういうことはAccess2000で可能でしょうか？
方法があるなら是非教えてください。参考になるようなサイトがあれば御紹介いただければ嬉しいです。
どうか、よろしくお願いします！ｍ（＿）ｍ
0672デフォルトの名無しさん
NGNG何が難題なのかさっぱりわからん。
ｺﾓﾝﾀﾞｲｱﾛｸﾞでﾌｧｲﾙ指定し、関連付けされてるなら
SHELL関数で起動するだろ？
0673困ったさん
NGNG集合スレッドに質問を書き込んでしまったにもかかわらず、ご回答ありがとうございます！
＞ｺﾓﾝﾀﾞｲｱﾛｸﾞでﾌｧｲﾙ指定し、関連付けされてるなら
＞SHELL関数で起動するだろ？
その具体的な方法を教えていただければありがたいのですが。
0674672
NGNGこんなくだらんことｸﾞｸﾞれ
0675あ
NGNGShell (PATH_TXT.Value)
終了
0676困ったさん
NGNG回答ありがとうございます。
その前に、コモンダイアログが何処にあるかわからないのです。
すみません。
0677デフォルトの名無しさん
NGNGそれだとダメじゃないか？
WScript.ShellのRunを使うべき
>>676
ぐぐったか？
http://www.google.co.jp/search?hl=ja&ie=UTF-8&oe=UTF-8&q=%E3%82%B3%E3%83%A2%E3%83%B3%E3%83%80%E3%82%A4%E3%82%A2%E3%83%AD%E3%82%B0+VBA+Access&btnG=Google+%E6%A4%9C%E7%B4%A2&lr=
0678困ったさん
NGNGありがとうございます。ｍ（＿）ｍ
リック先で調べさせていただいたところ、ツールボックスのコントロールの選択の中に、「MicrosoftCommonDialog」があるそうなのですが、見当たりません。
私のはAccess2000なのですが・・・
0679デフォルトの名無しさん
NGNGちぃっとばかし自分で調べる努力したほうがいいんじゃないですか？
それとマルチポストはいただけませんな
0680デフォルトの名無しさん
NGNGhttp://alink3.uic.to/user/angeler.html
http://endou.kir.jp/betu/linkvp/linkvp.html
0681デフォルトの名無しさん
NGNGつーか、多分身になっていないよ。その場しのぎで
良い程度のDBなんだろうけどさ。ﾌﾟｯ（ｗ
0682デフォルトの名無しさん
NGNGテーブルにオートナンバー型のフィールド（名称「ＩＤ」）を追加したのですが、
(フィールドサイズ＝Long
新規レコード＝インクリメント
インデックス＝はい(重複なし)
主キーではありません。）
レコードを削除して、次回レコードを追加すると
削除したはずのレコードの「ＩＤ」+1の値になってしまいます。
１から１０までを消して次に追加すると１１という具合に。
これを１から表示させるには、どうしたらいいのでしょうか？
ちなみにﾚﾌﾟﾘｹｰｼｮﾝIDにするとヘンテコな値がでてくる･･･
お分かりになる方、よろしくお願いいたします。
0684682でつ
NGNGどうもありがとう。
でも、最適化しても結果は変わりませんでした。。。
それに、レコードを削除＆追加する度に、最適化ﾌﾟﾛｸﾞﾗﾑを
走らせるのも、重くないですか？
ユーザーが使いやすいように(PCど素人。いちいち数値を入力するの
面倒くさい。そして+1で自動的に出るってことで）
ｵｰﾄﾅﾝﾊﾞｰにしたのに･･･くすん。
別にﾃｷｽﾄBOXを作って、ﾚｺｰﾄﾞ総数+1の値をﾌﾟﾛｸﾞﾗﾑで書いて
適用させた方が利口ですかね？
0685デフォルトの名無しさん
NGNGその連番にどういう意味を持たせたいの?
0686デフォルトの名無しさん
NGNGオートナンバーは使わないほうがよいです。
自分の好きなようにナンバリングするコードを書いたほうが融通が利くでしょ。
0687デフォルトの名無しさん
NGNGレコード削除があると綺麗な連番にならないのはオートナンバーの仕様。
きちんと調べずにあー便利だわと使った結果色々めんどくさい事になる例多し。
まあ、Access使う人間にとっては通過儀礼みたいなもんだから、きにすんなｗ
0688デフォルトの名無しさん
NGNGよろしければ疑問に答えていただけないでしょうか？
顧客と契約という二つのテーブルがあって
二つは顧客IDというフィールドで顧客→契約という感じで
左結合されているのですが、
ここから顧客IDで抽出しようと思ってSQL文を書くと
何故か全レコードが抽出されてしまいます。
SELECT * FROM 顧客, 契約 WHERE 顧客.顧客ID LIKE " + "'" & "*" & txt_id.Text & "*" & "'"
SQL文はこんな感じで書いたのですが、これでは
他の顧客IDも含めて何故か全てのレコードが出てしまいます。
契約.顧客IDで検索すれば契約テーブルにあるレコードだけ抽出されるのですが、
何故顧客.顧客IDで抽出すると、関係ない顧客IDのレコードまで抽出されてしまう
のかがわからないのです。
最終的にはフォームから顧客テーブルの顧客ID、氏名、電話番号の
どれを入力しても抽出できるようにして別フォームへ表示させようと
思うのですが、氏名や電話番号でやっても全レコードが表示されてしまいます。
仕方が無いので、一度JOINを使って一つのテーブルを作ったあと
FindFirstで検索すればできたのですが
SQLを使って一つの文でできる方法があると思うのです。
どうしてもわからないので、どなたかお答えして頂ければと思います。
0689デフォルトの名無しさん
NGNGまずこのＳＱＬ文が疑問。
ＳＱＬ文でテーブルを結合しないと、意味がないのでは？
的を射てるかどうかわかりませんが、抽出したい顧客の契約データリストを見たいだけなら、
SELECT 契約.*, 顧客.*
FROM 契約 LEFT JOIN 契約 ON 契約.顧客ID = 顧客.顧客ID
WHERE （略）
でいいのではないかと。
0690デフォルトの名無しさん
NGNGMSDEがよく分からないので、とりあえずMDBファイルに対して
ADPファイルから接続しているのですが、プロシージャを抜けると
接続情報はクリアされてしまうのですか？
0691デフォルトの名無しさん
NGNGなぜMSDEまで使ってMDBに接続するのか理解できんが、
接続情報は一度繋げると保存されるはず。
でないと運用上問題ありすぎ。
0692デフォルトの名無しさん
NGNGADPをフロントエンド、MDBがバックエンドって事です。
0693デフォルトの名無しさん
NGNG平たく言ってADPをプログラム部、MDBをデータ部ということなら、
素直にMDB同士でリンクする方が分かりやすいと思うけど。
MSDE使うならデータをＳＱＬデータベースとかにする以外、意味ないんじゃないの？
0694デフォルトの名無しさん
NGNGありがとうございます、上手く抽出させることができました。
本で読むと複数のテーブルがある場合はSELECT句に元のテーブルがわかるように
するのと、FROM句にテーブル名を書く
としか書いてなかったので、JOINでくっつけた後にWHERE句が続けられる
という事がわかりませんでした。
JOINやUNIONといった文の説明もなかったですし、VBAの本だけでは
全然ダメだと痛感しました。
SQLの本明日にでもさっそく買って勉強しようと思います。
どうもありがとうございました。
0695デフォルトの名無しさん
NGNGむしろ、ADP+MDBのやり方が知りたい。
0696デフォルトの名無しさん
NGNG0697デフォルトの名無しさん
NGNG0698デフォルトの名無しさん
NGNG0699デフォルトの名無しさん
NGNG0700682でつ
NGNG>>686
>>687
レスありがとうございます。
連番の意味･･･ユーザーに聞かないと分かりませんが、
どのくらい入力したかを（件数）知りたいんだと思います。
（ﾚｺｰﾄﾞ数は表示させているけど、下にあるから見づらいとかって
ほざいてた。）
オートナンバーやめますね。
どうもでした。
0701無料動画直リン
NGNG0702デフォルトの名無しさん
NGNGｍｄｂがぁぁ・・・・
１日分がパーだ・・・・
0703デフォルトの名無しさん
NGNG0704デフォルトの名無しさん
NGNGT_tablenameの1列目にオートナンバーフィールドがあったとします。
-------------------------------------------------------------
Dim Db As DAO.Database, Rs As DAO.Recordset, i As Integer
Set Db = CurrentDb()
Db.Execute "DELETE * FROM T_tablename;"
Set Rs = Db.OpenRecordset("T_tablename", dbOpenDynaset)
With Rs
.AddNew
Rs(0) = -1
.Update
.MovePrevious
.Delete
.AddNew
Rs(0) = 0
.Update
.MovePrevious
.Delete
For i = 1 To 5
.AddNew
Rs(1) = i
.Update
Next i
End With
Set Rs = Nothing
Set Db = Nothing
-------------------------------------------------------------
一応参考まで。
0705682=700でつ
NGNG>>704ﾀﾝ。
すごい具体的に説明＆ｺｰﾃﾞｨﾝｸﾞまで･･･
うれしい！
勉強になりました！！
愛してるー！
0706デフォルトの名無しさん
NGNGデータシートを、Excelにエクスポートしたいんですが、どうすれば
良いのでしょう？
ADOXで選択クエリを作成し、Transferspreadsheet～で出来るかな？と
思って試してみたのですが、「クエリが無い。」とか言われるし。。。
どなたが御存知ないですか？
0707デフォルトの名無しさん
NGNGDim fso As Object
Dim ojText As Object
On Error GoTo err1:
Set fso = CreateObject("Scripting.FileSystemObject")
Set ojText = fso.CreateTextFile(strFullPath, True)
ojText.Write (strTxt)
ojText.Close
Exit Function
err1:
MsgBox err.number & ":" & err.Description
End Function
Ａｃｃｅｓｓ９７にて作成し、何の変哲もないコードで、問題なく
動作していたのですが、、、
２０００に変換し実行し書き込みしてみたところ、ファイルサイズ
が20Kを越えるファイルをあたりから
「５：プロシージャの呼び出しまたは引数が不正です」となり
書き込めません。。。原因のおわかりになる方はおられますか？
0708デフォルトの名無しさん
NGNG原因は正直言ってわからないけど、引数のサイズを際限なく取れると考えるのは
乱暴だなとは思う。
97では（ほぼ）無制限だったとしても、将来的には制限される可能性はあるし、
あるいは2000で制限された結果が、今回のエラーなのかもしれないし。
個人的には、このような用途が限定された処理を関数にする意味はあまり無いと
思っているので、書き出す値を取得する処理も込みで、それ用のルーチンを
作った方がいいと思う。
質問の答えになってなくて申し訳ないけど。
0709704
NGNGエクスポートしたいクエリが物理的に存在すれば
普通にできると思うけど？？？
何がどうできないのか状況が良くわからん。。。
>705 ﾖｶｯﾀﾉｩ!
0710デフォルトの名無しさん
NGNGmdbファイルをコピーして、同じディレクトリに貼りつけると、例えば「db1.mdb」なら
「ｺﾋﾟｰ ～ db1.mdb」と言う名前になりますよね。そのｺﾋﾟｰファイルが開けなくなって
困っているんです。
開こうとすると、「Microsoft accessを実行するためのコマンドライン引数が不正です」の
メッセージが出てしまい、実行できません。
どうも「ｺﾋﾟｰ」と「～」、「～」と「db1.mdb」の間に半角スペースがあるおかげで
ファイル名が「ｺﾋﾟｰ.mdb」と認識されてしまい、ファイル名が一致しない為に開けなくなって
いるようで、半角スペースを削除すると普通に開けます。
今まで長い事使っていてこんなエラーが出た事はなかったんですが、最近急にでる
ようになりました。何かの設定が変わってしまったんでしょうか？
0711デフォルトの名無しさん
NGNGフォーム上のテキストボックスに、複数のフィールドに対しての抽出条件文（ＳＱＬ文）を入力し、
それを選択クエリ(cn.Execute)で実行する。というプログラムを組んでいます。
物理的に存在させられるクエリに対して、毎回違うＳＱＬで抽出させることが可能であれば、
その方法を教えてくださいませんか？
今日、行った対策はエクスポート時にサブフォームの元になるフォームもDoCmdにて立ち上げ、
そのフォームをDoCmd.OutputtoでExcelに出力するようにしました。(元になるフォームは
DoCmd.Movesizeにて見えないようにした。）
これで一応Excelにする事は出来たのですが、Excel5.0とかって言うVer.なので、ちょっと嫌です。
日付型のデータもDay-month-Yearのデータ型になってしまいます。(希望はyyyy/mm/dd)。
物理的に存在させられるクエリへの毎回違うＳＱＬ文での抽出方法 またはExcel2000に出力できる方法が
あれば教えてください！お願いします。
0712デフォルトの名無しさん
NGNGhttp://pc2.2ch.net/test/read.cgi/bsoft/1047052026/418-424 の422を参考に
書式が気に入らなければExcelのライブラリを使って
ファイルを開く、範囲選択、書式を変更、上書き保存
AccessからExcelをコントロールする方法はググればすぐ見つかる。
0713通りすがり
NGNGVB6で、access97のデータベースをacess2000に変換して
保存したいのですが、方法を教えてください。
知り合いに「簡単だよ」って言われてるんですが、
いろいろ調べてみてもわかりません。
お願いします。
0714デフォルトの名無しさん
NGNG知り合いに聞け
0715デフォルトの名無しさん
NGNGTransferDatabase
0716デフォルトの名無しさん
NGNGAccessが無くてもVB6で使えるのですか？
0717デフォルトの名無しさん
NGNG0718デフォルトの名無しさん
NGNGMicrosoft DAO 3.6 Object Library 参照して
Call DBEngine.CompactDatabase("C:\access97.mdb", "C:\access2k.mdb", , dbVersion40)
0719デフォルトの名無しさん
NGNGサンクス！参考にｶﾞﾝｶﾞﾘまつ。
0720デフォルトの名無しさん
NGNG0721デフォルトの名無しさん
NGNG0722デフォルトの名無しさん
NGNG0723デフォルトの名無しさん
NGNG中身を書き換えて他のレコードに移動しないまま（カレントは変わらないまま）
コマンドボタンに埋めこんであるSQL（同テーブルにある同じデータを削除する）
をテーブルに発行したら、
「他のユーザーが使っているため、更新できません。」といわれますた。
me.refreshとかも削除SQL直前に実行したんだけどだめ。
大丈夫だったのが、キーボードのF9を押してからコマンドを
クリックしてSQL発行したり、他のコントロールを一旦クリック
してから削除ボタンを押したらパターン。
多分一旦リフレッシュしたら処理を終了させないと、テーブルを
掴んだままになってしまうってことだと思うんだけど、
これの回避方法知ってる人おながいします。
0725デフォルトの名無しさん
NGNGODBCデータベース(SQL鯖2k)へのリンクテーブルを複数作りました。
テーブルビューから普通にテーブルを開くと、正常にSQL鯖のテーブルの
内容を見ることができます。データの変更や削除、追加も問題ありません。
ところが、そのリンクテーブルに対して追加クエリや更新クエリを使おうと
すると「リンクするテーブルが見つかりません」というエラーが出ます。
MDBからそのリンクテーブルを削除し、再度リンクしてみましたが状況は
変わりません。
エラーメッセージを頼りにGoogle、MS、ヘルプ・・・と検索してみましたが、
有効な情報が見つかりません。
こんな現象に出会った事のある方、力を貸して下され・・・
0726デフォルトの名無しさん
NGNGテーブル名が間違ってるかそんな感じだろう
dbo_XXXXXとか頭に余計なのがくっついてる
0727デフォルトの名無しさん
NGNGmdb（ファイル鯖上）+ Jet + DAO||(ADO+Microsoft.Jet.OLEDB)
の話だけど、
JetってクライアントPC（問い合わせ元）
にあるよね。ということはSQLを実行する
のは各クライアントPCだけど、
データはSQLで使用する（from内の）
各テーブルデータ+インデックスデータを
全てクライアントPCに持ってきてから
SQLを実行しているわけ？
おまえら教えてください。
0728デフォルトの名無しさん
NGNG> おまえら教えてください。
ここじゃこんな書き方でまともなレスはつかないよ。
おれもつけん。
0729デフォルトの名無しさん
NGNGその通りだよ。
だから、ネットワークが細いところでは
気を付けないといけない。
>>728
ここ（2ch）じゃ、普通の書き方だと思うけど。
pin'sという掲示板と勘違いしてないか。
0730デフォルトの名無しさん
NGNGmdbのアクセスはファイルの
接続=open
検索=seek
のイメージ。
ヒットしたレコードは
結果セットとしてメモリ
（recordset）に格納される。
テーブル検索の場合、結果的には
テーブル全件持ってきて（なめて）
しまうけどね。
データデバイスがネットワーク上
にあるってことだけで
この辺りは他のサーバ型DBMSと
同じだよ。
漏れもここでは書き方に違和感は
特にないけど。
0731デフォルトの名無しさん
NGNGADPにしとけ
0732デフォルトの名無しさん
NGNGODBC経由じゃUPDATE文でエラーになるし・・・
（しかし、SELECTはできる・・・）
っていうか、ACCESSでSQL予約語じゃないけどフィールド名で使えない語集
ってないですか？
おしえてください、おながいします
0733デフォルトの名無しさん
NGNGと[]でくくってみれ
0734725
NGNG私も>726ﾀｿが書いたように名称の問題と思っていたのですが・・・
リンク先のSQL鯖にて、該当テーブルにトリガが設定されていて、
しかもそのトリガにバグがありエラーを吐いているのが原因でした。
試しにトリガを削除してみたところ、件のエラーは出なくなりました。
0735デフォルトの名無しさん
NGNGうぉぉぉぉぉ
ありがとうございます。
もう少しで、フィールド名を変更して、全プログラムを修正するところでした・・・
0736デフォルトの名無しさん
NGNGレポートを表示する際、空データ時のイベント使用しているのですが
データが存在するにも関わらず、空データ時のイベントが発生してしまいます。
このような場合、どのように回避したら良いのでしょうか？
レポートPG：
Private Sub Report_Deactivate()
DoCmd.Restore
DoCmd.OpenForm "FRM_BBB"
End Sub
Private Sub Report_NoData(Cancel As Integer)
MsgBox "データがありません！", vbInformation, "情報"
Cancel = True
End Sub
Private Sub Report_Open(Cancel As Integer)
DoCmd.Maximize '画面サイズを最大
Me.RecordSource = TBL_AAA
End Sub
空データのメッセージ表示後、
「実行時エラー’2501’： OpenReport アクションの実行はキャンセルされました。」
と表示されます。
１０回に１回の割合でレポートが正常に表示されるので原因が分からず困っています。
0737デフォルトの名無しさん
NGNGレポートをエクスポートすると
文字化けするんだけど
なんで？
0738736
NGNGSleep(5000)
とやったらいきました。
0739_
NGNG0740デフォルトの名無しさん
NGNG0741_
NGNG0742デフォルトの名無しさん
NGNG0743デフォルトの名無しさん
NGNG・標準モジュールで作った関数はそのままSQLの中から使える
0744デフォルトの名無しさん
NGNGマニュアルやヘルプ探してもviewがぜんぜん見つからないんで、ないのかと思ったよ。
0745デフォルトの名無しさん
NGNG他のコントロールを一旦クリックしてから削除ボタンを押すんで
できるなら、クエリ実行前に、他のコントロールにフォーカスを移す
ようにしてみては？
そのまえに、クエリ実行時にテーブルデータを直接は
操作できないようにしとくのが無難かも。
0746デフォルトの名無しさん
NGNGJpeg画像の縮小保存をしたいんですけど、何か良い方法はないでしょうか？
VB用はフリーのDLLとかがあるみたいなんですけど・・。
Accessのイメージコントロールから hDC を取得する方法とかでもいいんですが。
やりたいことは写真管理ソフトで、コメントを付けて印刷したいのです。
仕事で使うもので、印刷書式が客先指定でいくつもあるので、やむなく自作しようかと。
印刷とかはいいんですけど、画面表示するときにイメージコントロールに読み込むと時間が掛かるので、縮小画像を作ろうかと思っているんですが、数日悩んでます。
0747デフォルトの名無しさん
NGNG自分では出来なかったため、変更済みのワークテーブルを作って
それで上書きしようとしたのですが、リレーションばりばりで
上書きできねーよと怒られてしまいました。
ちなみにACCESS2000です。
0748デフォルトの名無しさん
NGNGっつーかさ、ポコオコ型を変えちゃDBの意味無いじゃん。
リレーションを張ってるならなおさら。
0749デフォルトの名無しさん
NGNG設計したいDBの仕様を書かないとわけわからんよ。
0750デフォルトの名無しさん
NGNGAccess内で動的にやろうとすると、DIB作ってやることになるのかなあ？
jpegだと面倒だね。
他のツールなどでサムネール作れるなら
ファイル名変更を統一して、表示させるのがいちばん簡単かと。
0751デフォルトの名無しさん
NGNGTabledefでは出来なかったよ。
型が変わるのは決まってしまったことなのでいたしかたない；；
ALTER TABLEでも型変換は無理だったし…
どうしたものかな
0752デフォルトの名無しさん
NGNG1. 一時テーブルに変更したいフィールドのデータとキー情報を書き出す
2. 型を変更したいフィールドを Delete
3. 変更後の型のフィールドを作成して Tabledef に Append
4. フィールドの OrdinalPosition を変更
5. フィールドのデータを UPDATE で戻す
※リレーションや制約で変更できない場合は事前に削除して処理後に再作成する
Access のテーブルデザインも大体同じだと思う
0753デフォルトの名無しさん
NGNGおお、ありがと。
さっきordinalpositionの存在を知ってから、一気に解決しました。
まさに752氏の手法です。
無知な私をお許しあれ。
0754746
NGNG久しぶりにAPIなんか使ったらキツイっす。|〃´△｀)-3ハゥー
とりあえずDIB作って保存までは出来たんですけど、縮小の方法がわかんないー。
VBみたいにAccessのイメージコントロールのプロパティに hDCプロパティがあればいいのにー。
そこらへん、適当にやってるんで、screen から hDC とって StretchBlt 掛けたりしたんですけど、やりかたがまずいみたいで、出来ないです。
CreateCompatibleDC やら CreateBitMap やらやっても、ダメです。
イメージコントロールのhDCの取得法とか無いんですかね？
どなたか外部からパラメータ起動して縮小画像を作ってくれるフリーソフトとかご存知ないですか？
0755デフォルトの名無しさん
NGNG最適化/修復ってどうやるんですか？API探したんですけどみつからなくって、
手動でやるしかないんでしょうか。
0756デフォルトの名無しさん
NGNG0758デフォルトの名無しさん
NGNGしようとしているのですが、この組合せの場合、Net8とか
いうソフトが必要らしいですね。
こういうソフトをインストールすることなしに、Oracle8と通
信する方法はありますか？
0759デフォルトの名無しさん
NGNGODBCドライバだけあればいいんでないの？
http://otn.oracle.co.jp/software/tech/windows/odbc/index.html
0760750
NGNGフォームのhWNDとってサブフォームにして書くとかあるかもしれんが
やったことないので、とやかく言えん。
でも、dibで(ファイル？）保存できるのなら、やりようはあるような。
dib二つ作って、StretchBltして書き込み。imageに表示とか。
0761デフォルトの名無しさん
NGNGリンク先からさらにOracle ODBC Drivers for Oracle 8.1.x のダウンロード
のところをみると「対応Net Client」とあり、ここにNet8の名前があるので、
おそらく必要なのではないでしょうか。
0762デフォルトの名無しさん
NGNG0763デフォルトの名無しさん
NGNGaccess＆ｵﾗ８で開発したが、何も必要なかったぞ
そもそもNET8なんぞ見たことすらもない（ﾜﾗ
0764デフォルトの名無しさん
NGNGどうやって接続したか教えてやれよ
人を嘲笑するだけの書き込みはいらないよ
0765デフォルトの名無しさん
NGNG社員"B" 時刻"10:00" 作業内容"製造" 詳細"参照URL"
社員"A" 時刻"11:00" 作業内容"打ち合わせ" 詳細"メールを参照"
社員"C" 時刻"12:00" 作業内容"営業" 詳細"予定時間"
Access2000で、上のようなデータを管理したいんですけど、"詳細"の項目
が画像になったりURLになったり、その他メールの内容や予定時刻など
いろんな種類のデータを入れたいんですけど、こういう場合ってどんな
風にテーブルを作るのが効率いいんでしょうか。
0766765
NGNGなどを条件つきで検索して一覧できるようにするにはどうしたら
いいんでしょうか。
0767デフォルトの名無しさん
NGNGOracleのODBCドライバはNET8なりの
ミドルウェア（接続ライブラリ）が必要。
http://otn.oracle.co.jp/software/tech/windows/odbc/req_32bit.html
0768デフォルトの名無しさん
NGNG0769デフォルトの名無しさん
NGNG全て環境が整った（運用チーム等がセットアップ済みの）
マシンで開発していたと思う。
0770デフォルトの名無しさん
NGNG「プログラムで処理するもの」を考えて、それだけフィールド用意しろ。
表示上「詳細」をひとつにしたいなら、区分のためのフィールドを用意。
ってマジレスがつらいんだけどな・・・
0771デフォルトの名無しさん
NGNGhttp://pc2.2ch.net/db/
0772デフォルトの名無しさん
NGNG0773デフォルトの名無しさん
NGNGRight(" " & CInt([R]),3) & "レース"
ＡＣＣＥＳＳ2000のＤＢをＷＩＮ98ＳＥからＷＩＮ2000にうつしたら、
数字と文字をつなぎ合わせる部分で拒絶されているんですが
ＷＩＮ2000固有の問題なんでしょうか？
ＷＩＮ2000もＡＣＣＥＳＳ2000です。
0774デフォルトの名無しさん
NGNGAccessのみで完結するシステムなら別に全角文字でも構わないけど、
外部データベースをODBC経由で使うように修正するとなると面倒くさいことになるかもね。
0775デフォルトの名無しさん
NGNGこんな質問では回答できないと思われ。
おまいは自分の質問を読み直したか？
その内容で他人に伝わると思ったのか？
0776デフォルトの名無しさん
NGNGほんとうか？本当に文字列連結でコケているのか？
Cintでコケとるのと違うのか？
0777デフォルトの名無しさん
NGNG0778デフォルトの名無しさん
NGNGおれの文章力はこんなものなのでお許しください。
>>776
Ｓｕｍとか使って連結してるとこでも問題がおきているので。
[R]は01,02,03～12まで
クエリーのデザインビューを開くとＳＱＬビューしか開けない。
98ＳＥではマクロのなかのクエリーで今日も正常にうごいています。
Ａｃｃｅｓｓ2.0から95のときも文字列も編集のやり直しにはくろうしたが、
ＷＩＮＤＯＷＳを変えても問題がおきるんですか。
ちなみに俺のやってるのは競馬新聞作成。参考資料
http://weg.infoseek.livedoor.com/03.pdf
宝塚記念の新聞です。
0779デフォルトの名無しさん
NGNGクエリ式'(Right(" " & Sum(IIf([tr]="ﾀﾞ",[acc1],0)),3)+Right(" " & Sum(IIf([tr]="ﾀﾞ",[acc2],0)),3)+Right(" " & Sum(IIf([tr]="ﾀﾞ",[acc3],0)),3)+Right(" " & Sum(IIf([tr]="ﾀﾞ",[acc4],0)),4))'この関数は式では使用できません
0780デフォルトの名無しさん
NGNG☆見て見て！！
http://yahooo.s2.x-beat.com/linkvp/linkvp.html
0781デフォルトの名無しさん
NGNGでした。
0782デフォルトの名無しさん
NGNG0783デフォルトの名無しさん
NGNG新聞貼るより、テーブルの説明が必要
データ型が不適切か、Nullが入っているのでは
0784デフォルトの名無しさん
NGNGクエリ式'joumei([JO]) & Right(" " & CInt([R]),3) & "レース"' この関数は式では使用できません
マクロを実行するとうえのエラーそのクエリを単独だと779
joumeiはユーザー定義関数
0785デフォルトの名無しさん
NGNG0013Ａ．Ｐ． Ｉｎｄｙ 1200京ﾀﾞ
0001Ａ．Ｐ． Ｉｎｄｙ 1200京ﾀﾞや
0003Ａ．Ｐ． Ｉｎｄｙ 1400京ﾀﾞ
0002Ａ．Ｐ． Ｉｎｄｙ 1400京ﾀﾞや
1015Ａ．Ｐ． Ｉｎｄｙ 1800京ﾀﾞ
0786デフォルトの名無しさん
NGNGKETTOF、KYO、JO、TR、BA テキスト型
ＮＵｌｌはない。
をクロス集計し、テーブル作成するクエリー
0787デフォルトの名無しさん
NGNG0788デフォルトの名無しさん
NGNGMDEにしたらうごいた。
新規作成エラーおこすMDBからテーブルとクエリーをインポートうごいた。
エラーおこすDBを最適化うごかね なんでじゃ。
なむあみだぶつ。うちはたしかJYOUDOSHINSYUU おやすみなさい。
0789デフォルトの名無しさん
NGNG新しいMDBファイル作って、すべてをインポートしろ
0790746
NGNG結局、昔買ってずーっと使ってなかったVB4（笑）で作って外部起動することにしました。
ついでに、画像サイズの変更だけじゃなく回転とかの機能も付けて。
やはり、Accessだけだと細かいところが辛い・・。
0791デフォルトの名無しさん
NGNGありがとうございます。
ＡＣＣＥＳＳ２．０から受け継いだＤＢがもんだいだったみたいです。
新規作成して、インポートしたら無問題でした。
インポート時にこんなエラーもでました。
このデータベースは不正な状態のためひらくことができません。
「ツール」メニューの[変換」コマンドでなくＤＡＯのＣｏｍｐａｃｔＤａｔａｂａｓｅ
メソッドをつかって.....データベースの１部が正しく変換されていません。
これがでてからは開こうとすると100％このメッセ維持でした。
おれに正規のワザ以外つかえるわきゃないのにね。
おさわがせ。
0792デフォルトの名無しさん
NGNGは新規作成にインポートしたＭＤＢをＭＤＥにしたからうごいただけでした。
2000でうごかないＭＤＥもつくりました。
http://weg.infoseek.livedoor.com/708x.mde
0793_
NGNG0795デフォルトの名無しさん
NGNGレポートの表示で、フッタのみが表示されない状況となっている場合
どのような原因が考えられますでしょうか？以下の様なレイアウトになっています。
-ヘッダ-----
料金の合計
ID 金額
-詳細-----
01 100.5
02 50.5
03 65
04 35.5
-フッタ-----
小計 =Sum(金額)
本来であれば小計の右側に(金額)フィールドの値の合計[251.5]が
表示されると思うのですが、フッタそのものが全く表示されません。
=Sum(金額)のエラーだけであれば「#エラー」などと出る筈なのですが・・・？
詳細の金額フィールドはもともと小数点以下を表示しない状態になっていました。
フッタの小計に関してはそのままです。書式の設定は、どちらも行っていません。
どなたかご教授頂ければと思います。
0796795
NGNG0797デフォルトの名無しさん
NGNGレポートフッタ？
0798デフォルトの名無しさん
NGNGそのLAN内に192.168.0.1のDBサーバがあるとします。
192.168.0.1のDBサーバに外部からAccessで接続する
手段はあるのでしょうか？
0799デフォルトの名無しさん
NGNGファイルサーバでしょ？
0800デフォルトの名無しさん
NGNG200.200.200.200:DBサーバのポート#のパケットについて
192.168.0.1のマシンに転送させるようにする。
またDBサーバから返すパケットについても外に出すように
しなければならない。
っていってもAccessユーザに言っても理解不可能かもな．．．
0801デフォルトの名無しさん
NGNGODBC接続対応DBMSかもしれんぞ MySQLとかPostgreSQLとか
0802デフォルトの名無しさん
NGNGﾈﾄﾜｸについて勉強してくだちぃ。
通信技術板とか、ttp://www5e.biglobe.ne.jp/%7Eaji/3min/とか。
0803デフォルトの名無しさん
NGNGﾊｯｶｰｷﾎﾞﾝ厨だから、相手にすんな。
0804デフォルトの名無しさん
NGNGいや、キモイから
0805795
NGNGフッタの可視は、すべてONになっているのですが･･･。
どうしようもなかったので、新しいMDBにエクスポートし直したら直りました。
アドバイスありがとうございました。
0806山崎 渉
NGNG__∧＿∧_
|（ ＾＾ ）| ＜寝るぽ（＾＾）
|＼⌒⌒⌒＼
＼ |⌒⌒⌒~| 山崎渉
~￣￣￣￣
0807デフォルトの名無しさん
NGNG0808デフォルトの名無しさん
NGNGあそこは素晴らしい！
0809デフォルトの名無しさん
NGNG禿げしくガイシュツだが、あそこは初心者向け。
知ったか、厨房の集まりﾀﾞﾖ。
0810デフォルトの名無しさん
NGNG2003年01月01日より10日以内
と指定された場合、
去年のデータをひっぱってくるべきでしょうか？
私はひっぱってくるべきと思うのですが、
身近な人から反対され悩んでいます。
いかがでしょうか？
0811デフォルトの名無しさん
NGNGなんで反対されてる理由きかないのん？
0812デフォルトの名無しさん
NGNG2003/1/1～2003/1/10 なのか 2002/12/23～2003/1/1 どっちよ
オレは前者だと思ったよ
「2003年01月01日より10日以内」てどうやって入力するのかな
直感的に理解できないインタフェースは止めれ
0813デフォルトの名無しさん
NGNG私も2003/1/1～2003/1/10だと思った。
基本的に ×/×/×～○/○/○ と言う指定にした方が良いと思うけれど？
あるいは基準日×/×/× 前○日 後△日の指定とか。
0814810
NGNGレスありがとうございます。
インターフェースについては問題が解決した上で考えるつもりでいます。
私は
2002/12/13～2003/01/10
と思いました。
今日から１０日以内にこれだけの仕事をこなせ！
といわれると未来１０日を指しますが、
ポイント100から５以内と言われると95～105を指しますよね？
ですので2002/12/13～2003/01/10だと思っています。
「今日から」と未来１０日
今回は過去の日付を指定するので指定日より後ろも含める必要があるのかと
思っています。
どうでしょうか。
現在のインターフェースはコンボボックスやらテキストボックスやらで
Ｘ月Ｘ日 【より/のみ/以前/以降】X日【以内/以前/以降】
みたいな感じです。【】はコンボボックス
必要に応じてEnableを切り替えています。
そこで一番後ろのコンボボックスに「以内」を指定した時の処理に困っています。
0815810
NGNG「今日から」と未来１０日 →「今日から」なら未来１０日
でした。
文面的にわかりにくいので訂正させていただきます。
0816813
NGNG私は期間による検索の場合テキストボックスを2つ用意しています。
【yyyy/mm/dd】(A) ～ 【yyyy/mm/dd】(B) で、
1.前の指定がない場合は、全データの【yyyy/mm/dd】(B)以前
2.後ろの指定がない場合、全データの【yyyy/mm/dd】(A)以後
3.【yyyy/mm/dd】(A)及び【yyyy/mm/dd】(B)の指定があればその期間
4.ただし【yyyy/mm/dd】(A)=【yyyy/mm/dd】(B)ならば【yyyy/mm/dd】(A)
5.【yyyy/mm/dd】(A)>【yyyy/mm/dd】(B)ならば期間は【yyyy/mm/dd】(B)～【yyyy/mm/dd】(A)
と判断させています。
テキストボックス【yyyy/mm/dd】(A) ～ 【yyyy/mm/dd】(B)の他に
基準日を【yyyy/mm/dd】(A)として 以前【×】日 以後【○】日と言うテキストボックスを設けては？
この場合、以前【×】日あるいは以後【○】日に入力した場合は、【yyyy/mm/dd】(B)はクリアされ、
【yyyy/mm/dd】(B)に入力した場合は、以前【×】日あるいは以後【○】日がクリアされる。
ちなみに>814の Ｘ月Ｘ日 【より/のみ/以前/以降】X日【以内/以前/以降】
の【以内/以前/以降】は例えばX日"間"【前後/前/後】の方が通じ易いのでは？
0817デフォルトの名無しさん
NGNG開始日 指定あり/なし 日付
終了日 指定あり/なし 日付
とするけど・・・あと、○日間、というのが欲しければ追加して・・・
SQLに直した時、指定しやすい様に設計したほうがよいのでは・・・
0818デフォルトの名無しさん
NGNGこれ繰り返してたら今どっちなのか分からなくなったんですけど、
どうやって確かめるんですか？
0819810
NGNGいろいろ考えた結果以下のようになりました。
ttp://honny2.hp.infoseek.co.jp/data/No_0186.jpg
結果的に「以内」というのは必要ないように思えてきました。
前、後 二つの入力欄を用意することはさけたかったので↑のようになりました。
これでどんな条件がきても大丈夫なはず、と思っています。
いろいろ参考になりました。
ありがとうございます。
0820デフォルトの名無しさん
NGNGそれでいいと思う。シンプルにする事で余計な作業が減る。
Windowsのファイル検索の条件指定UIも参考になるかもね。
0821818
NGNG0822明示しなきゃ駄目か？
NGNG反応が無いのは、たぶん、誰も知らないんだよぅ(w
0823デフォルトの名無しさん
NGNG気になって試しちまった・・・
Access2000だと、暗号化/解読で、暗号化/解読元データベースを選択した後、
暗号化先データベースの選択画面になるか、解読先の選択になるかで
わかると思う。XPでも同様と思われ。
ファイル自体が小さければ、メモ帳で開いても分かるが・・・
0824デフォルトの名無しさん
NGNGAccess XPではどちらも「暗号化先データベース」で見分けがつかん。
秀丸で開いてファイル内容比較すると確かに違うのだが、どっちが
どっちか分からん。
どうすればいい？
0825デフォルトの名無しさん
NGNG１．暗号化していないファイルに比べファイルのサイズが大きくなる。
２．圧縮（LZH化など）してもほとんど圧縮できなくなる。
暗号化していないファイル：100Kバイト→5Kバイト
暗号化しているファイル：104Kバイト→101Kバイト
ってな感じ。
0826_
NGNG0827デフォルトの名無しさん
NGNG再び2000の場合で申し訳ないが、
・暗号化されてない場合、
Program Files、Libraryなどの単語（間に若干、余計な文字が入る）、
Name="db1"（ファイル名がdb1.mdbの場合）などが
読み取れる
・暗号化されている場合、
先頭行のStandard Jet DBは読み取れるが、
それ以降は基本的に読み取れる単語が無い
そんな感じです・・・あとは自らの感覚を信じるのが良いかと・・・
0828818
NGNGありがとうございます。
0829デフォルトの名無しさん
NGNGAccess XPでセキュリティウィザードを実行すると.mdbファイルが
.mdwファイルからしか開けなくなりますよね。それをDaoで行いたい
んですけど、やり方がわかりません。
0830829
NGNGCDaoDatabase.Create()で.mdbが作成できんのに、なぜCDaoWorkspace.Create()
で.mdwが作成できない。
0832デフォルトの名無しさん
NGNGデータを単票フォームには表示出来るんですが
データシードビューでの表示がうまくいきません
どうやったら良いのでしょうか
0833デフォルトの名無しさん
NGNG日付/時刻型ではなくテキスト型なんでしょうか。
0834デフォルトの名無しさん
NGNGウィザードで設定している場合、CDaoRecordset.SetFieldValue()で
どうやって扱うんでしょうか。
0835デフォルトの名無しさん
NGNG★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★
☆★ 送料激安！ スピード発送！ 商品豊富！
★☆ http://www.get-dvd.com
☆★ 激安ＤＶＤショップ 「ＧＥＴＤＶＤドットコム」
★☆ http://www.get-dvd.com
☆★ 今すぐアクセス Ｌｅｔ’ｓ Ｇｏ！ 急げ！
★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★
0836_
NGNG0838デフォルトの名無しさん
NGNG２．ﾃﾞｰﾀDB
３．媒体に保存したDB
※１はリンクテーブルとして２を使用しています。
実は３の１テーブルを２に保存（更新）したいのですが、
ﾌﾟﾛｸﾞﾗﾑで制御する方法はないでしょうか？
0839デフォルトの名無しさん
NGNG0840デフォルトの名無しさん
NGNGFROM TBL IN A:\DB.MDB
0841デフォルトの名無しさん
NGNG変更先のmdbが使用中だと変更できません。
そこで、
if db.tabledefs("tablename").updatable then
変更処理
end if
というようにupdatableでチェックしようとしたのですが、
mdbが使用中にもかかわらずtrueが返されます。
もちろん変更処理でエラーが発生して止まってしまうのですが、
なにか間違ってますか？
0842デフォルトの名無しさん
NGNG私は1.実行プログラム部 2.データ部(リンクテーブル)に分け、
1.でボタンを押すとネットワーク上だろうがFDだろうが他ドライブへでも
データをバックアップするようにしたよ。
リンクテーブルをバックアップするのに非常に苦労した。
結局テクニックと知識がないので、
1.バックアップ指定個所にバックアップ用のmdbを作成
2.一度リンクテーブルのテーブルを実行プログラムmdbに一時テーブルとしてコピー
3.実行プログラムにコピーされた一時テーブルをバックアップmdbにコピー
4.バックアップし終えた一時テーブルを削除
と言う方法で処理している。
他には、パススルーを使うとか、CompactDatabaseを使う方法があると思う。
0843山崎 渉
NGNG0844デフォルトの名無しさん
NGNG0845デフォルトの名無しさん
NGNGテーブルデザインで、テキスト型のフィールドの「書式」に
「\\#,##0」と設定し、通貨型と童謡の表示方法にしようとしたのですが、
書式が無視され、そのまま表示されてしまいます。
試しに書式「yyyy/mm/dd」と設定し、日付を入れてみても反映されません。
なにか書式を有効にする手順が必要なのでしょうか？
本当は通過型にしたいのですが、文字列が入る場合もあり困っております。
よろしくお願いします。
0846デフォルトの名無しさん
NGNG文字列を入れないようにして数値型にするか、書式表示を諦めるかのどっちか
0847デフォルトの名無しさん
NGNG>>ヘルプ（"Format/書式" プロパティ）
>設定値は、データ型によって異なります。
0848デフォルトの名無しさん
NGNGレポートのレコードソースにクエリを設定して、
詳細にレコードデータを出しているのですが、
詳細結果の幅が結果によって違うのです。
項 目
---------・・・詳細
1 A B C D
2 A B C D
←ここが空いてしまう。
3 A B C D
もっと条件を書かなくてはいけないけど、
とりあえず、考えられる原因わかる方いらっしゃいますか？
0849デフォルトの名無しさん
NGNG0850848
NGNG項 目
--------- ・・・詳細
1 A B C D
2 A B C D
XXXXXXXX ←ここが空いてしまう。
3 A B C D
２と３の間があいてしまうんです。
Dの部分はサブレポートになっていて、
親フィールドと子フィールドとのリンクをしています。
見てみると、どうもこのDに値がない時は、縦幅が
レポートの詳細幅どおりになるのですが、Dに値がある時に
なんとなく１のレコード分のの幅があいてしまうのです。
今も作ってる最中です。
納期があるので、焦ってます(>Q<)
0851デフォルトの名無しさん
NGNGさっき試してみたが、再現性がない。
１．とりあえず、親レポートの詳細セクションの背景色を変えて
サブレポートが表示されている部分の大きさを確かめる。
２．サブレポートの縦幅がおかしいなら、プロパティをデフォルト以外の
値にしたところを探ってみる。（ヘッダ、フッタが悪さしているのでなければ、だが。）
３．それでだめなら、納期が延びることを祈る。
これでどうだろうか。条件不足で分からんので。
0852848
NGNG再現してくださって、ありがとうございます（T_T）
説明したいのですが、簡潔に説明出来ないんです。
（時間がないのでメモも書いてなく、作りが思い出せない）
1.2.はある程度試してたんですけど、未だ解らず・・・
レイアウトの事だから、とりあえず今は最後にまわしてみます。
しかし終わるのかな～、、もう泣きそうです。
0853教えてください
NGNGそれと併せて承認CKがNoの場合に状況に0を設定するようにしたいんです。
どなたかご教授ください
Private Sub 承認ボタン_Click()
If MsgBox("承認して宜しいですか？", vbYesNo + vbQuestion) = vbYes Then
DoCmd.SetWarnings False
DoCmd.runsql " UPDATE 承認テーブル SET 承認テーブル.状況 = 1" _
" WHERE 承認テーブル.承認CK = Yes ;"
DoCmd.SetWarnings True
End if
End Sub
0854848
NGNGあの～私初心者なんですけど、
If文にElse使うか、Select Case で普通に出来ないんですか？
どこでエラーが起きるんでしょうかね？
0855デフォルトの名無しさん
NGNG何がわからんのか、もうすこし具体的に書け！
なめた質問すんな！
>>854
おまえも同類。
仕事ならプロ意識を持て！
こういう場所でも、きちんと設計解説できなきゃ
結局干されるよ、おまえ。
おまえら、当たりが来たらラッキーぐらいにしか思ってないだろ。
自分が回答する立場なら、どう思うか想像してみ。
0856デフォルトの名無しさん
NGNG気弱な855さんが勇気を振り絞ってｶｷｺしてるってのに、反応無しかよ。
0857デフォルトの名無しさん
NGNG0858デフォルトの名無しさん
NGNG855(翌01:59) ｺﾞﾙｧ！ｺﾞﾙｧ！
0859デフォルトの名無しさん
NGNGなんて出来ないに決まってるじゃない？
0860デフォルトの名無しさん
NGNG855と856の間は7分しか経っていない。
0861デフォルトの名無しさん
NGNGAccessで業務ソフト作っちゃう人たちの根性を侮っちゃあいけないよ。
論理とかそんなものは余裕で超越してる。
0862デフォルトの名無しさん
NGNG0863デフォルトの名無しさん
NGNGそれはAccess使いに限らず(ry
0864デフォルトの名無しさん
NGNGだまされるユーザがバカなのよといえばそれまでだが。
0865私はAccess使うお馬鹿さん
NGNG私なら以下を付け加え
dim rdt as integer
以下を変更してみる
rdt=MsgBox("承認して宜しいですか？", vbYesNo + vbQuestion,"承認確認")
select case rdt
case vbyes
DoCmd.SetWarnings False
DoCmd.runsql " UPDATE 承認テーブル SET 承認テーブル.状況 = 1" _
" WHERE 承認テーブル.承認CK = Yes ;"
DoCmd.SetWarnings True
case vbno
msgbox"承認されませんでした。",vbokonly,"承認却下"
End select
これでどうだろうか？
0866私はAccess使うお馬鹿さん
NGNG0にする処理を書いた方がいいと思いますよ
0867848
NGNG>855
いや～ごめんなさいです。。。
854につけたレスは、上の853さんに対してコメントしたものだったんですけど・・・
>>853 ってつけるの忘れてしまいましたでつ。
因みに私が853に言いたかった回答は、
上の865さんがちゃんと書いてくれてました。
Select Caseの方がスマートになっていいですよね。
0868山崎 渉
NGNG│ ＾ ＾ │＜これからも僕を応援して下さいね（＾＾）。
⊂| |つ
（＿）（＿） 山崎パン
0869855
NGNGそうかもしれないと思ったから、「同類」と書いた。
回答するなら、自分のスキルのいいわけなんぞしてもしょうがない。
自分で正しいと思ったことを書けばいい。（もちろん、確証が泣ければ検証すべきだけど）
俺も何年かここで質問回答してるけど、あからさまなDQNより微妙なほうが感にさわったりすんのよ。
勝手に切れる俺も俺だけどね。
まあ、好きにやってるからそんなに気にせんでくれ。
丁寧な返信あんがとさん。
まあがんばって、回答も出来るようになってちょ。
0870デフォルトの名無しさん
NGNG0871デフォルトの名無しさん
NGNG再びタブキーでメインフォームに戻らせたいのですが、
どうすればよいのでしょうか？
0872デフォルトの名無しさん
NGNGしたるんですが、AutoNumberってデータ型的には何宣言すればいいんですか?
厨質問ですいませんが、もしよろしければ教えて下さい。
0873デフォルトの名無しさん
NGNG女医互換ないなんて・・・
0874デフォルトの名無しさん
NGNGSQLServerからリンクテーブルを使ってmdbにテーブルを取り込むのですが、
この時に、主キーのないテーブルに対してリンクテーブル側のみにキーを設けたいと思っています。
リンクを作るダイアログに沿っていけば上記のことが可能なのですが、コードを記述して実現することが出来ません。
どのようにすれば出来ますでしょうか？
0875デフォルトの名無しさん
NGNGタブキーで移ったんなら、バックタブじゃないの。
Shift + Tab
0876デフォルトの名無しさん
NGNGCtrl + Tab
■ このスレッドは過去ログ倉庫に格納されています