アクセス解析
レンタル掲示板

カレンダー
   1234
567891011
12131415161718
19202122232425
262728293031 
<< January 2020 >>
プロフィール
お気軽にコメントして下さい。相互リンクも歓迎します!
ブログランキング・にほんブログ村へ
カテゴリー
アーカイブ
おすすめ商品
おすすめリンク

その他リンク

バグ?

Win10 64ビット上のACCESS2019で動かしたとき、成績システムのグラフが表示されない

原因はメインメニュー起動時に入れておいた以下のコマンド

DAO.DBEngine.SetOption dbmaxlocksperfile,15000

必要ないので削除すると、普通に描画できた

バグかな?

| ACCESSシステム開発 | 21:33 | comments(0) | - |
PC設定ほか

託児所のPC設定とノートPCの発注

岡山の新聞販売店さんのデスクトップPCも発注

静岡の牛乳販売店さん用システムの入れ替えは週末に行う予定

昨日の下関の牛乳販売店さんのネットトラブルは無事解決、他に「A4しか印刷できない」トラブルもこちらで調べてプリンターの設定を変更してもらって解決

ただ、キャノンの販売店さんの担当の方、もう少し自分のところの商品なので勉強してほしいです

プリンターの設定を本社に電話で聞くよりもネットで調べた方が早いしお客さんを待たせませんので・・

| ACCESSシステム開発 | 19:12 | comments(0) | - |
12月

今年もあと一ヶ月、頑張っていきましょう!

設備会社さんの調子の悪かったPCは直したついでにHDをSSDに変更しました

他のデスクトップも変更を提案してみようと思います

あと、ブログとHPの書体をメイリオにしました

少し柔らかくなったかも・・

| ACCESSシステム開発 | 15:39 | comments(0) | - |
色設定時のカラーコード

フォームやレポートの色を設定するときに、RGB指定やカラーコード指定を使います(赤色だと RGB(255,0,0)  #ff0000)

これを見つけ出すのに便利なのが以下のページ

Googleで「#ff0000」と検索すると上記のページがでます(検索するカラーコードは何でもいいですけどね)

カラーパレットの下にスライダー(スクロールバー)が出ていますのでそれを操作するとパレットの色が変化するとともにRGB値やカラーコード値も表示されます

お好みの色のコードを見つけ出すのに便利ですよ

| ACCESSシステム開発 | 12:11 | comments(0) | - |
クエリが破損しています

今日、お客さんから「クエリが破損しています」というエラーが出るとTEL

データをこちらで実行しても出る

どうも昨日(11/13)のMicrosoftのアップデートが原因らしい

 

対策は以下の更新プログラムを削除

Access 2010: KB4484127

Access 2013: KB4484119

Access 2016: KB4484113

 

12/10の修正プログラムまで待たなくてはいけないようです

全く、いつものこととはいえ勘弁してもらいたい

※Office365の場合は、アカウント →「Office更新プログラムの更新オプション」→「更新プログラムをダウンロード」からできます

 

| ACCESSシステム開発 | 17:23 | comments(0) | - |
今日の仕事

設備会社さんのメールが送信できないとのことで対応

送信サーバーのポートを465、受信サーバーのポートを995にして再送信してもダメ

メールを新規に作成しなおしたらOKでした

A牧園さんのシステムの新サーバーへの移行は完了、テストのOK

花の卸屋さんのシステムの年度更新も完了、ただ、和暦で入力するところがあったのを忘れていてシステムの修正に少し時間がかかってしまった

明日、入れ替えの予定

| ACCESSシステム開発 | 22:42 | comments(0) | - |
VBAでレポートのプロパティの変更

ACCESSでレポートのプロパティをVBAで変更するやり方です

以下ではすべてのレポートのグリッド数を変更しています

 

    Dim db              As Database
    Dim ctn             As Container
    Dim doc             As Document
    Dim strTgtObjName   As String

    Set db = CurrentDb

    'レポートを変更

    Set ctn = db.Containers!Reports

    For Each doc In ctn.Documents
        strTgtObjName = doc.Name

        'デザインモードで開く

        DoCmd.OpenReport strTgtObjName, acDesign, , , acHidden
        'プロパティー設定(X軸Y軸のグリッド数を24に変更)

        Reports(strTgtObjName).GridX = 24
        Reports(strTgtObjName).GridY = 24
        '保存

        DoCmd.Close acReport, strTgtObjName, acSaveYes

    Next doc

    Set ctn = Nothing

    db.Close

    MsgBox "完了"

 

ただ、上記の方法で、以前のバージョンで作ったツールバーの設定をなくそうとしましたができませんでした(ToolBar="")

(以前のバージョン上ではできました)

| ACCESSシステム開発 | 15:02 | comments(0) | - |
カスタマイズ

成績システムの方はフォームの修正中、来週中に終わる予定

北海道のS新聞販売店さんの帳票のカスタマイズ

A牧園さんと下関の牛乳販売店さん用のシステムはWin10用に改訂中

ロジックの修正であれば、コーディングの変更でそんなに時間を掛けずにできるんですがフォーム、レポートの修正は手作業になりますのでコツコツやるしかないんですよね、数があれば時間がかかります

それにしてもOSはまた数年後変わるんでしょうね、システムはそれに対応するようまたカスタマイズしていく

Win7からWin10の変更はセキュリティの強化は謳ってはいますがユーザーメリットはほぼなし、マイクロソフトは次回は何を持ってバージョンを上げていくんでしょうか

| ACCESSシステム開発 | 18:19 | comments(0) | - |
win7

windows7のサポートが12月で切れるに伴ってPCの入れ替えやサーバーの入れ替えが年末まで続きます

それに伴って、システムの入れ替えも

個人的に使う分にはしばらくWin7でもいいかもですが、企業さんは変えられた方がいいでしょうね

成績システムのカスタマイズは、データコピー機能作成中、今週中に仕上げる予定です

| ACCESSシステム開発 | 18:57 | comments(0) | - |
現在の主キーをやめて別の主キーを設定する

主キーを一旦削除して、別の主キーを設定するやり方です

「T_test」はテーブル名、「A」、「B」が新しく主キーを設定するフィールドです

Dim db As Database
Dim MYSQL As String
Dim Flag As Integer

Dim tbd As TableDef
Dim idx As Index
Dim fld As Field

Set db = CurrentDb

Flag = 0

'主キーをもつフィールドがあるかどうか
Set tbd = db.TableDefs("T_test")
For Each idx In tbd.Indexes
    If idx.Primary = True Then
        For Each fld In idx.Fields

           'あればフラグを立てる
            Flag = 1
            Exit For
        Next
    End If
Next

'主キーを削除
If Flag = 1 Then
    MYSQL = "DROP INDEX PRIMARYKEY ON T_test"
    DoCmd.RunSQL MYSQL
End If

'主キーを設定

MYSQL = "CREATE UNIQUE INDEX PrimaryKey ON T_test(A ,B) WITH PRIMARY;"
DoCmd.RunSQL MYSQL

以上です

| ACCESSシステム開発 | 07:41 | comments(0) | - |
| 1/60PAGES | >>