FC2ブログ

2019-02

メイン

5日でAccess ソフト作成・開発します

たくさんのダウンロードありがとうございます。ダウンロードはこちら

こんな方に
  本で勉強したが、いきづまっている

 日常業務があり開発時間がない

 実践的サンプルがほしい

 ワンパターン作業なのに時間がかかる

 エクセルだけでは、限界だ



★無人化や自動化できるものは、人件費をかけない
★中小企業でも、自前で安価に情報システムを構築する
★企業は、情報武装する必要がある。

ようになると感じています。

Accessをちょっと勉強すれば可能なのです。
ところが、エクセルに比べアクセスを取扱える人が異常に少ないのです。

地方や中小企業では、予算がない、人材がいない・高齢化・派遣化といった現状をかかえております。自前で安価にシステム構築したいと思いながらも、外注にたよったり、自己流のエクセルでなんとかしています。



筆者は、大手企業から、私事情で地元の中小企業に転職いたしました。さっそく情報システム構築の仕事をやらせて頂きましたのですが、まさに毎日がドラマでした。現場のおばちゃんに何度もダメダシをくらい、時にははげまされて楽しくて苦しい貴重な日々を体験させて頂いたのです。

ベンダー(OA機器・ソフトウエアなどの販売納入業者)のレベルの低さにびっくりしました
もちろん 取引は切りました。保守料だけでも年間30万円削減です

こりゃーネタになると思いました。

2年近く歳月を重ね、今では、全書類が必要な時・必要なものをボタンひとつリアルタイムで出せます。無駄な残業やチェック作業も劇的に少なくなりました。なによりも戦略的な営業ができるようになり、会議の質も上がりました

その実務に裏づけられた、誰もおしえてくれないマル秘テクニックをわかりやすいようまとめてみました。



テーマ:データベース - ジャンル:コンピュータ

access入門ソフト 初心者が実践して使い方を学習

本を読んでてもaccessは挫折します 体験実施しないといけません
同じことを実践して覚える体験型の学習ソフトです




access入門講座ソフト 実践して学習するトレーニングソフト実施動画

何度でも繰り返し繰り返し実践してください
挫折の理由
accessは何から学んでいいかわからない 本を読んでもあきてしまいます
実践トレーニングをくりかえし 体系を覚える必要があります
excell感覚で学習しても100%挫折します

access2013入門
練習版http://www.vector.co.jp/soft/winnt/business/se501415.html
完全版http://www.vector.co.jp/soft/winnt/business/se501338.html


access2010入門 
練習版 http://www.vector.co.jp/soft/winnt/business/se490793.html
完全版 http://www.vector.co.jp/soft/winnt/business/se490794.html

Access2007 入門
練習版 http://www.vector.co.jp/soft/winnt/business/se491439.html
完全版 http://www.vector.co.jp/soft/winnt/business/se491249.html

Access2003 入門
練習版 http://www.vector.co.jp/soft/win95/business/se408322.html
完全版 http://www.vector.co.jp/soft/dl/win95/business/se408871.html




accessのVBエディタで ウオッチ式の追加 ブレークポイントの設定を使う

accessのVBエディタで ウオッチ式の追加 ブレークポイントの設定を使う

サブフォームの中身を詳しく調べる

たとえば こんなVBで

Private Sub 発注先_Click()



Me.サブ.SourceObject = "発注先"



End Sub

190102001.jpg

me.サブを選択し 図のようにデバックからウォッチ式の追加で図のようになります
190102002.jpg


ウオッチ式を表示します
190102003.jpg
190102004.jpg


カーソルを Me.サブ の前にもってきて
図のように処理します
190102005.jpg
190102006.jpg



プログラムを実行すると ブレイクポイントで止まり
ウォッチ式が図のようになります + マークをクリックすると
細かい情報が 階層になって表示されます
190102007.jpg
190102008.jpg






accessで selstartがうまくいかないをSendKeysで解決

accessで selstartがうまくいかないをSendKeysで解決


図は伝票入力フォームの一部
190101001.jpg


通常はデリバリ番号を入れて登録を押す
備考はブランクであることが多いので 備考にはカーソルが止まらない
特定の顧客は 備考に必ず 指定の文言がはいります

やりたいこと

特定の会社番号の場合 備考に特定の文字を入力
カーソルが 備考にとぶ
セルが特定の文字の末尾にくる


ネットや 教科書では こう解説しています

'フォーカスを取得したら先頭にカーソルがくるようにする
With Me!テキスト0
.SelStart = 0
.SelLength = 0
End With

末尾なら  .SelStart = len(Me!テキスト0) でいい


デリバリ番号からフォーカス喪失時で

if me.会社番号 = 123 then

me.備考.setfocus
me.備考 = "受注番号:"
me.備考.selstart = 5


end if

しかしこれをやると文字が全選択状態になります

190101002.jpg


文字選択解除 などで調べても解決案がでてきません
以下のように 試行錯誤してみましたが うまくいきませんでした

me.備考 = "受注番号:"
me.備考.setfocus
me.備考.selstart = 0
me.備考.sellength = 0
me.備考.selstart = len(me.備考)


解決策

カーソルが備考に入ったとき

SendKeys "{F2}"

これで成功しました この場合 me.備考.selstart = 5は不要になります
しかし パソコンによってはF2 でIME手書きパッドが立ち上がってしまう場合があります

これでいけます


if me.会社番号 = 101 then

 me.備考.setfocus
SendKeys "受注番号:"


end if

追加 入力したい文字が固定ではなくアドリブ(変動)の場合
郵便番号入力で住所の末尾にカーソルをもっていきたい
住所はいったん テキスト1に落とす

Dim aaa As String
aaa = Me.テキスト1

テキスト2.SetFocus

SendKeys aaa
SendKeys "{Enter}" 
'もしくはスペース SendKeys " " こうしないと 漢字選択状態になり続きをすぐに入力できない


«  | ホーム |  »

カテゴリー

リンク

プロフィール

むさし

Author:むさし
メール access2003★yahoo.co.jp
★をアットマークに

FC2カウンター