▼━ 質問のしかた ━━━━━━━━━━━━━━━━━━━━
★ OS、ACCESSのバージョンを明記してください。
★ 質問内容は具体的に書いてください。
・何がしたいのか
・どんな処理を試したか
・動作状況など駄目な理由
テーブル/フォームの構成、クエリ、VBAの内容など差し支えない
範囲で詳しく書くと、早く回答が得られるかもしれません。
図解があれば尚良し。
聞き返さなくても詳細が把握できる質問が望ましいです。
★ 事前にヘルプ・Google等で調べられる範囲は調べてください。
大概の疑問は検索することで解決します。
★ アドバイスを貰ったら、必ず経過・結果の報告をして下さい。
ギブアンドテイクで情報を共有しましょう。
▼━質問テンプレ ━━━━━━━━━━━━━━━━━
【 システム環境 】 Windows**, Access**
【 VBAが使えるか 】 はい･いいえ
【 VBAでの回答 】 可･否
【 検索キーワード 】 Googleやヘルプでの検索キーワード
前スレ
Access総合相談所 24
http://hibari.2ch.net/test/read.cgi/bsoft/1287268291/
前スレ1000だが間違えた。八桁テキストなら
式1:Format(フィールド名, "0000/00/00")
とかになるな。
ありがとうございます。
式1:Format(フィールド名,"@@@@��/@@��/@@"）で日付変換はできるのですが、/スラッシュの部分を-ハイフンで表示出来ないのです。
Access2000を使っているのなら、素直にLeft、Mid、Rightでつなぎ合わせればいいんじゃないか？
別にバージョン移行したからといって、使えなくなるわけではないし。
たまたまバージョンのせいで使えなかっただけで、別解も得られたわけだろ？
そうですね。スマートじゃないなと思ったんですが、できるには違いないのでそうしてみます。ありがとうございました。
ドキッとした。
このエラー出てどうしようもなくなってアプリ作り直したことあるわw
フォームが開けて更新できるっつんならだけど、バックエンドのパスワードが変わっちゃったという状態と同じじゃないか
ユーザーにテーブルを見せない方法、フリーで流れてる家計簿アプリに入れてみた
（pathの操作が良く解らないのでディレクトリ固定、C:\DAT\ に置いて起動してください）
http://up1m.ko.gs/src/koups869.zip
これで突破や不具合がなければ完成です
みんなが得られるものはあるの？
検証願います
（pathの操作が良く解らないのでディレクトリ固定、C:\DAT\ に置いて起動してください）
http://up1m.ko.gs/src/koups870.zip
サーバーじゃないアクセスでテーブル隠匿なんて土台無理だろ。
追ってたがテーブル見るのは諦めますた、検証後の種明かしキターイイ
それとそのアクセスウインドウ隠すのはどうやってんの？
検証有難うございます
Access2010ならフォーム形式でOverLapped(タブじゃない方)を選んで最大化するだけで、
そのまんまWindows標準の OverlapWindowになります
加えてRibbonとNaviPaneを非表示にすれば格好が付きます
ショートカットで最小化起動するとさらに格好良くなります
ほんまや、APIいらんのやね始めて知ったわ
ありがと
金子由香里のメアドはさ、omanko@omanko だね
ちょっと品が良くないと思います。つーことで攻略は完了ということでいいかな？
プログラムによって操作することはできません。
うっかり機種依存文字ごとMySQLに読み込ませてリンクテーブル越しに文字化けした部分を直そうとしたら↑
おまけにレコードごと削除しようとしても↑
何をどうやっても↑
なんのことはない、MySQLを直接いじったら何の触りもなく消せた。
もうちょっと的を射たメッセージ出してよ…
> 金子由香里のメアドはさ、omanko@omanko だね
検証有難うございます
はい、僅か三日で破られました
何か推測しやすくなってるとか、塞げる孔でしょうかね？
破ったヒント頂けたら嬉しいです
>塞げる孔でしょうかね？
裏口叩いた的なことは一切してない。仕様だから塞ぐべき孔ということではない。
>破ったヒント頂けたら嬉しいです
検証に付き合ってくれて仕組みが判らないって言ってる人がいるのだから、
仕掛けを説明してその評価を受けるのが先ではないの？
俺は突破法も対策も分かったぞー。
そこ弄られてたら落とすせばいい!
だが肝心の仕掛けがまだ分からん。これから。
つまらなくなるから種明かしはしないでね。＞＞９４１
ユーザーにテーブル見せない方法
http://up1m.ko.gs/src/koups875.zip
(相変わらずパス固定、バックエンドは C:\DAT\ に置いてください)
>>14 の家計簿の方も同じ対応で良いと思いますが、ファイル小さいこちらの方で
Q)テーブルに登録されている、藤巻陽子さんのメールアドレスは何でしょうか？
強度検証終わりましたら、これが突破されましたら、ロジックの批評や提案をお願いしたく思います
osiri@osiri
もうやめとけ
検証有難うございます
仕組みは単純で恥ずかしいのですが、
>> http://office.microsoft.com/ja-jp/access-help/HP005187453.aspx
> リンクされているテーブルのパフォーマンスを高める
> リンクしたテーブルをネットワークまたは SQL データベースで使用している場合、
> パフォーマンスを最適化するには、次のガイドラインに従ってください。
の最初に記載されてる方法を行っていました
空テーブルのリンクテーブルを作らずに直接OpenRecordsetしていました
>>25
どうやって藤巻陽子さんのメールアドレスを見たのでしょうか？
もうちょっと仕込みいれてたんじゃないか？。本題にはならないからまぁいいか。
DAOのBEへの接続は、なんというか共有とか再利用されるって感じだから、
接続された状態にあれば、パスワード知らなくても結構いろんなことができる。
Accessアプリケーション全体の仕様を不足なく捉えていないとこんなんなると思うよ。
とりあえずドドスコ重要ポイントはこれらにつきる。
それなりに効果はあったということだろうけど、まだ硬くすることはできるでしょ。費用対効果は別として。
つーか、Path固定はなんとかしろやと。
それにしても建設的なコメントがついてなくてちょっと残念だね。
そもそも、全体の種を自ら明かさずに、人をつかって開発する
ってのは、俺のポリシーからするとちょっといただけないな。
俺も似たような実装しているけれど、自分で作り自分でハック
して確かめている。
なによりも、mdbやらaccdbなんかはパスワードハックのソフトウェア
で簡単にこじ開けられるから、はたしていかがなものか。
アドバイスおよび度々の検証有難うございます
実は最後の書き込み直後に気づきまして…何という当たり前な って感じです
なんか変えられた場合はquitで、とか
> つーか、Path固定はなんとかしろやと。
それ全然、見当もつきません
>>32
開発とかじゃないんです、名簿管理してただけのシロウトで、知的好奇心のみです
旨く完成したら、実は中身はこうでした!(^^)! くらい
> なによりも、mdbやらaccdbなんかはパスワードハック
mdbは全部一瞬で開けれますが、2010accdbはハック出来てないと思います
「認識できない」っていわれるんだけど2010ランタイム以外に手はありますか？
基本的に仕様だな。
2010からの機能とか全部外して新しいaccdbにインポートして確かめてみれ。
要はCurrentDb.Versionが12.0になるようにな。14.0になったらなんらか制限とか発生する
まぁいろいろ試せ。きっと君ならできる。多分な。おそらく。できるんじゃね？
デコンパイルしてから2007で試せよ。約束だぞ。
>>33
>なんか変えられた場合はquitで、とか
緻密にやらないとあっという間ですわ。
そこまで面倒なことをしなくても2007でaccdbを作って全部のオブジェクトをインポートしたら読めた。
VBAの参照設定をその12.0とかに変えてやったらVBAも一応動いた。
これでも十分面倒だったけど、、、
とにかくありがとう。
知ってて２０１０の機能使ってたらドツボにはまってたなｗ端末のほとんどは2007だし。
ランタイム使えばいいんだろうけど使ったことないし不自由そうだし。
只の知ったかだろ
半角数字とか学生の分際で早くも理系気取りかよ
劣等感の塊の人の被害妄想でした。
Access2000ランタイム
この端末にAccess2003を入れたいのですが、何か問題点や注意点はありますか？
また、上記作業はAccess2000ランタイムをアンインストールし、
Access2003をインストールという手順を考えています。
この方法で大丈夫でしょうか？
よろしくお願いします。
回答ありがとうございます。
Windows2000にAccess2003をインストールするのはどうでしょう？
よろしくお願いします。
回答ありがとうございます。
Windows2000にAccess2003をインストールするのはどうでしょう？
よろしくお願いします。
だから
>Windows2000にAccess2003をインストールするのはどうでしょう？
必須事項です。
Windows2000環境でのAccess2003の使用は問題無いか知りたかったのですが、
大丈夫と言うことでしょうか？
最終更新日: 2006年11月27日
Microsoft Office Access 2003 の必要システムを紹介します。
コンポーネント 要件
日本語版オペレーティングシステム
Microsoft Windows 2000 (Service Pack 3) 以上、Microsoft Windows XP 以上、または Microsoft Windows Vista
http://www.microsoft.com/japan/office/previous/2003/access/prodinfo/sysreq.mspx
宜しくお願いします。
Access 2003 です
テーブル名 omoikane
主キー： datetime
並び： 昇順
フィールド名 datetime ymdhm eur usd jpy chf gbp
実際のデータ：
datetime ymdhm eur usd jpy chf gbp
1221440400 2008.09.15 01:00 0.1409438 -0.5596544 0.1994319 0.06646993 0.152808
ymdhm の値で探索し、そのレコードが先頭テーブルから、何番目のデータかを知る、クエリを教えて頂けませんか。
>>53 です
もう少し詳しく教えてもらえませんか
1. ymdhm を検索をおこなう
2. 1.で探索成功した場合、その時のdatetime の値を取得する
3. 2.で取得したdatetimeの値をもとに、<=datetaime になる行を求める
こんな感じでしょうか？
端末側はAccessで作ったプログラムaccdb。ここからリンクテーブル越しに接続しています。
部門AからはテーブルA、部門BからはテーブルBへ。テーブルA,Bは同じ構造で、本来
一本化してコードで分けるはずがいろいろ不備があってとりあえず別々にすることに。
今後も制作が続くので部門AからＸというリンク越しにテーブルAに、BからもXというリンク越しに
テーブルBに繋ぐ、というように接続先の違いをリンクテーブルの名を変更して揃えることによって
吸収してしまえばプログラム自体は一つで済む、と思いますが考え方間違ってますか？
リンク先を変えるほうが一般的じゃないのかな？
レジストリでもいいな。
クエリの抽出条件のところで、
①>500
②>[何以上？] （500を入力）
①と②で結果が異なるんですが、なぜでしょう？
①だと正しく抽出できるのですが、②だと500より大きい値と
100より小さい値が抽出されます。なおかつ1000以上は抽出
されていない・・・・。
めんどくさいから試してないが、クエリのデザインビューで
右クリック>パラメータ
[何以上？] 数値型
と定義するといいと思われ。
ありがとうございます！
さっそく今日試してみます！
詳細、お願いします。
あの、Microsoft Office ですよね？
http://www.microsoft.com/downloads/ja-jp/details.aspx?FamilyID=0e40bbe7-1422-40ea-912d-2a29d709f93f
上記PC環境で、Access2010のモジュール内で
CreateObject("Access.Application")したら
エラー429（ActiveXコンポーネントを作成できません。）が発生したので
よくよく調べてみたら、どうやらランタイムに対してCreateObjectしようとしてる感じでした。
PC環境を変えずにAccess2010をCreateObjectする方法ってありますか？
ご存知でしたらアドバイスください、よろしくお願いします！
ちなみに、インストール順を2000ランタイム→Access2010としてもダメでした。。
CreateObject("Access.Application.14")
を試してみれ
ダメだったら、混ぜるな危険ってことじゃね？
なるほど、その手が！
どうもありがとうございます、なんかいけそうな雰囲気です！！
後日結果報告します！
ソースは？
無いなら、Microsoftに問い合わせる。
お前が訴えれるまで、何かを続けるつもりだ。もうプリントアウト(7/7)は済んだぞ。
また、そのような非公式の情報に対して、如何なる根拠も提示することはしておりません。
クエリの作り方がわからないのでお知恵貸してください。
テーブル（myaddress）には、ID,住所1,住所2,住所3,住所4,使用回数があります。
住所1に都道府県が入っています。
別の処理で、住所の場所と取引があると、住所回数へ1をプラスしています。
都道府県だけを、重複なし かつ 使用回数の多い順番でソートして取り出したいです。
SQLビューでDISTINCTを使って重複なしはできたのですが、
ORDER BY を入れると「DISTINCTと矛盾しています」となりうまく行きません。
できれば一回のクエリで抽出したいのですが、どのようにしたら実現できるでしょうか？
ALL 述語、DISTINCT 述語、または DISTINCTROW 述語と、SELECT ステートメントに含まれていないフィールドを含む ORDER BY 句で、SQL ステートメントを作成しています。DISTINCT 予約語を削除するか、示されたフィールドを ORDER BY 句から削除してください。
c 2010 Microsoft Corporation. All rights reserved.
SELECT 住所1 FROM myaddress GROUP BY 住所1 ORDER BY SUM(使用回数) DESC
情報ありがとうございます。
DISTINCT と ORDERの使い方がまだわかってないです。
>>79
おぉ！ぜんぜん思いつかなかった方法です。
ORDER BY の所に SUM(使用回数) を持ってくるのですね。
自分のMDBへ入れたら希望通りの動作になりました
ありがとうございました
「データアクセスページを作成できません」とエラーがでます
どうしたらよいのでしょうか？ご存知の方がおられれば教えてください
フルインストしている？
はい、フルインストールしてます
【 システム環境 】 Windows7, Access2003
【 VBAが使えるか 】 はい
【 VBAでの回答 】 可
【 検索キーワード 】 access 別データベース テーブル フィールドサイズ 変更
本体mdbとデータ用mdbに分けて、リンクテーブルで繋いで運用中です。
本体mdbからデータ用mdbのテーブルのフィールドの追加やサイズ変更をしたいということで
「ALTER TABLE テーブル ALTER COLUMN フィールド TEXT(10)」をExecuteしましたが
「リンクされているデータソースに対してデータ定義ステートメントを実行することはできません」
と言われてしまいました。
リンクテーブル先のフィールドサイズなどを変更させたい場合、何か別に方法はあるでしょうか？
ちなみに
strSQL = "ALTER TABLE " & "テーブル " _
& "ALTER COLUMN フィールド TEXT(10) " _
& "IN '' [Ms Access;PWD=" & strPass & ";DATABASE=" & CurrentProject.Path & "\データ用.mdb;] "
を試しましたが構文エラーでした。
【 VBAが使えるか 】 はい
【 VBAでの回答 】 可
【 検索キーワード 】 access パスワード 解除
vbaのパスワードかけられるらしいですが
なんか巷のツールで簡単に解除できるらしいのですが
強力なパスワードのかけかた知っている人いませんか？
参照設定をしなくてはいけなくなるので、DAOの使用は避けたかったのですが
他に方法がなければ仕方ありません。
解決してませんが解決しました。
そもそもMDBだから問題が発生するんだろ。MDEにすればいいじゃん。
MDBは自分だけで管理。
acCmdUndo は、マクロビルダからどれを選べば良いですか？
結構探しましたが見つけられなくて困っています。
アクションカタログに検索窓あるでしょ
「戻す」とかで検索しなよ
やってみましたが編集できなくなるようですね
これでオレのたいしたことない技術も盗まれずにすむ
さらに意地悪をしたいのなら、名前の変更で.mdeを.mdbの拡張子に変えて渡す。
アイコンが変わらないから、初歩的な知識しか持たない人にはまずわからない。
有難うございます
確かにVBAに変換したらacCmdUndoになるものがありました
（マクロをVBAに変換操作すると、50%以上の確率で二度とaccdbを開けなくなる、2010SP1バグかな）
なんか勘違いしてました
目的は、Undoメソッドに相当するマクロを探してました
ないんですよね
結局、コントロールの更新前にUndoするにはマクロじゃ無理ですね
参照設定が嫌ならレイトバインドすればいいんじゃない
おっしゃるとおり、今回は下のように処理をしようと思っています。
ただ、DAOのバージョンを、これから先も末永く気にしなくてはいけないのが
ちょっとネックなのです。
このデータベースの管理は、いつか誰かに引き継がなくてはならないものですから。
（ひょっとしたら、データベースのコトをあまりわかっていない人に）
Private Function GetDAO() As Object
On Error Resume Next
Set GetDAO = CreateObject("DAO.DBEngine.36")
If Err.Number <> 0 Then
Set GetDAO = CreateObject("DAO.DBEngine.120")
Else
'DAOのバージョンが増えた時のために
End If
On Error GoTo 0
If GetDAO Is Nothing Then MsgBox "『DAO』のバージョンが想定外のため処理を中断します。"
End Function
処理が増えることを見越してのコーディングなら、条件分岐はcase文のほうがいいと思うよ。
別に間違いだとかそういうわけではないけど。
想定外で処理を中断するのなら結局コードの手直しをさせるってことだよね？
だったら参照設定にしておいて参照を変更させてもいいような…
まあ>>84はこうやれば出来ちゃうんだけどね
strSQL = "ALTER TABLE [" & CurrentProject.Path & "\データ用.mdb].テーブル " _
& "ALTER COLUMN フィールド TEXT(10) "
遅くなりました、すみません、ダメでした。。。
やはり混ぜるな危険のようです、無念...orz
わかると思うけど一応訂正
strSQL = "ALTER TABLE [Ms Access;PWD=" & strPass & ";DATABASE=" _
& CurrentProject.Path & "\データ用.mdb;].テーブル " _
& "ALTER COLUMN フィールド TEXT(10) "
TOP カテ一覧 スレ一覧 2ch元 削除依頼 ▲
フリーウェアの予定表ないですか？ (101)
IMEの一般辞書ないかなぁ (148)
【MS互換】KINGSOFT Office Part5【VBA対応】 (106)
indesign 2.02 (111)
さいきん秋葉原で見かける怪しいCDの事情 (267)
そろそろPhotoshop6だね (360)
--log9.info------------------
モバゲー総合スレ part1 (587)
【GREE】煉獄のクルセイド 忠誠3 (144)
【GREE】踊り子クリノッペ総合44【ﾀﾞﾝｽﾀﾛﾝｸﾞﾗﾝ】 (980)
【GREE】ウルトラマン大戦2 (779)
スーパー戦隊ウォーズ トレード＆仲間募集4 (620)
【mixiアプリ】メタルサーガニューフロンティア259 (649)
【GREE】モンプラ56匹目 (774)
【mixi】はじめようマイ・キングダム part16 (940)
【GREE】仮面ライダーウォーズ 39combo (830)
【mixiアプリ】サンシャインワイナリー3【Rekoo】 (234)
【GREE】聖戦ケルベロス 初心者質問スレ6 (370)
ヒメキス kiss of princess Part4 (379)
【facebook】フェイスブック初心者質問スレ４ (460)
【GREE】ビックリマン 14 (935)
【mixiアプリ】サンシャイン牧場154【Rekoo】 (320)
【mixi】陰陽師～平安妖絵巻～ 拾玖枚目 (756)
--log55.com------------------
初心者の俺を全力でサポートするスレ
【実際】マジ簡単に万単位稼げる方法ある？
Google AdSense 超初心者スレ 8
月収1000万円アフィリエイター古澤のぶお
バイオインターナショナルってどうなの？
オリコカード承認率25％
あのね月5万でいいんですよ。
Google■突然Youtubeの動画を無収益化させられた人たちの避難所■金返せ