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

カレンダー
     12
3456789
10111213141516
17181920212223
24252627282930
<< November 2019 >>
プロフィール
お気軽にコメントして下さい。相互リンクも歓迎します!
ブログランキング・にほんブログ村へ
カテゴリー
アーカイブ
おすすめ商品
おすすめリンク

その他リンク

クエリが破損しています

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

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

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

 

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

Access 2010: KB4484127

Access 2013: KB4484119

Access 2016: KB4484113

 

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

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

 

| 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) | - |
このレポート内のカスタムマクロの実行が失敗したため・・・

レポートのプレビュー後、印刷実行時に以下のエラーが

「このレポート内のカスタムマクロの実行が失敗したため、レポートを表示できません」

原因はレポートのバーコードコントロールのクラスを古いバージョンで指定していたためでした

プレビューのところでエラーは出ないんですね

| ACCESSシステム開発 | 10:06 | comments(0) | - |
助成金申請作業

愛媛の牛乳販売店さんに対しても申請していくことになりました。システムの入れ替えは、明日中に行えればいいんですけどどうでしょう

託児所から写真の入ったSDカードが読み込めなくなったとTEL、リモートで見るとSDカード内のファイルが壊れている模様、フリーの復元ソフトでやってみるとなんとか復元出来ました・・・が、無料版では復元容量に制限がある為全部は無理でした

まあしかし、いろいろ便利なソフトは出てきていますね

今月は3連休が2回あるので稼働日が少ない、正味あと9日・・結構ハードになりそう

 

| ACCESSシステム開発 | 07:26 | comments(0) | - |
システム入替

岡山の新聞販売店への軽減税率対応版との入れ替え完了

なぜか、ワードのファイルのアイコンだけおかしくなっていた。原因調査中

K塾のHP更新完了

愛媛の進学塾さんの成績システムカスタマイズ完了

先日のメール不具合の件でロリポップからメールサーバーを変更したと連絡がありました

調子は良くなったみたい、ただ、仕事で使うメールが使い物にならなくて修復まで1週間以上かかったのであればちょっとおそまつすぎます

| ACCESSシステム開発 | 07:11 | comments(0) | - |
Google Map

Google Maps Platformなるものを調べてみた

$200/月分まで無料とのこと

1ヶ月200ドル分 = 約28000回Googleマップやストリートビューを表示
(以降は1000回あたり7ドルなので、1回あたり0.007ドルが課金されるようです)

表示1回は、ページを開いて地図などが読み込まれた場合はもちろん、
F5を押して、同じページを新たに更新した場合も1回とカウントされます・・・とのこと

とりあえずAPIキーを取得して、テスト版を作ってみようかな

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