テーブルのリンクと削除

リンク
DoCmd.TransferDatabase acLink, "Microsoft Access", "ディレクトリi\ファイル名.mdb", acTable, "リンク元テーブル名", "テーブル名", False

削除
DoCmd.DeleteObject acTable, テーブル名

目次へ

別のブックのVBAを実行する VBA

Dim BookName As String
BookName = "フルパス\Macro001.xls"
Application.Run "'" & BookName & "'" & "!module?.プロシジャー名"

目次へ

Windowsが起動しない

2019年1月3日ノートパソコンVAIO Fit15Aが起動しない・・・

Windowsの起動に失敗しました のメッセージが表示される
BIOSをリセットしたら無時起動したが、スリープから復帰出来ない
再起動すると、またWindowsの起動に失敗しました のメッセージ
何度かBIOSのリセットとWindowsの起動を繰り返し何とかWindowsが起動したのでスキャンディスク、デフラグをした後にVAIOレスキューモードから修復セットアップを実行
これが致命的なダメージに！！
その後は全くWindowsが起動しなくなりました
HDDを取り出し、SATA－USB変換ケーブルを購入してデータを抽出も無理でした
ドスパラで診断してもらった結果かなりの重症、データ復旧業者の診断結果は普通は4万くらいですが状況が悪いので１０万以上かかるとの診断でした
実は今回の件で知ったのですがHDDが不調の時のスキャンディスクなどはご法度！
HDDが読み込めなくなる致命的なダメージを与える可能が高いようです
とりあえず、Windowsが起動できているうちに必要なデータのバックをするのが第一です

今回の件のまとめ
毎日使用しているHDDは５～６年が平均寿命(ちょっと早い気もしますが)
HDDが不調の時のスキャンディスクなどはご法度

パソコン購入時にする事（HDD故障時に交換で復旧するため）
①リカバリメディアを作成(USBフラッシュメモリー)
②システムイメージを外付けHDDに作成
③修復ディスクを作成(DVD)

その後は、自分で作成したファイルのバッアップをする 私はGoogleドライブに保存しています
月額250円で100GB利用できます
定期的にCrystalDiskInfoなどのフリーソフトでディスクの健康状態をチェックする
異常が見受けられたらHDD交換の準備をする

HDD以外の部品は何年持つのでしょうかという話にもなりますが・・・

目次へ

小樽の桜 2018

今年、小樽で撮影した桜です

早朝の手宮緑化植物園で撮影しました












花園橋の夜桜と天狗山からの夜景です






目次へ

フォームでキーボードの上下キーでレコードを移動します

フォームのプロパティでキーボードイベンの取得を はい にします

キークリック時のイベントプロシージャ―に下記の構文を貼り付けます

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

' 先頭、最後尾のレコードでこれを操作すると、エラー番号2105が発生します この､エラーを無視
On Error GoTo Err001

If KeyCode = vbKeyUp Then DoCmd.GoToRecord , , acPrevious '前レコードへ
If KeyCode = vbKeyDown Then DoCmd.GoToRecord , , acNext '次レコードへ
Exit Sub
Err001:
'エラー番号2105を無視します
If Err.Number = 2105 Then
Resume Next
Else
MsgBox Err.Number & vbNewLine & _
Err.Description & vbNewLine & _
"予期せぬエラーが発生しました"
End
End If

End Sub


目次へ