2019年6月29日

コメントシステムをDISQUSからMeTypeに変えてみたよ。

このブログを始めた当初からコメントシステムはDISQUSを使っていたのですが、最近になって広告が盛大に表示されるようになってしまい非常に見苦しい状態になっていました。

この広告を非表示にするには有料版にアップグレードする必要があるのですが、それには最低月に9ドル払わないといけません。

しかし、たまにしかコメントが無いのに月に9ドルは払いたくありません。

そこで、DISQUSに代わるものをいろいろ探してみました。

2019年6月19日

【初心者向け】入力フォーム(その5:削除機能の実装)






前回、編集ボタンの作成まで出来ましたので、今回は削除機能の実装をしていきたいと思います。



まずは、「F_入力」フォームに[削除]ボタンを追加します。

名前:buttonDelete
標題:削除

次にこの[削除]ボタンのクリック時イベントプロシージャに次のように記述します。
Private Sub buttonDelete_Click()

    Dim ans As VbMsgBoxResult
    
    ans = MsgBox("このレコードを削除してもよろしいですか?", vbYesNo + vbExclamation, "削除")
    
    If ans = vbYes Then
    
        '削除実行
        DoCmd.RunSQL "DELETE * FROM T_名物 WHERE ID = " & CStr(Me.ID.Value)
    
    End If

    'フォームを閉じる
    DoCmd.Close acForm, Me.Name

End Sub
ここでは何を行っているかというと、まずMsgBoxでメッセージを表示させレコードの削除の確認を行っています。そして[はい]のボタンが押された場合に「T_名物」テーブルから該当のレコードを削除しています。

2019年6月18日

【初心者向け】入力フォーム(その4:編集ボタンの作成)






前回で入力フォームからの新規追加の機能は完成しました。

今回は、同じ入力フォームを使って編集も出来るようにしていきたいと思います。


まずは、「F_名物」フォームに「編集」ボタンを追加します。

名前:buttonEdit
標題:編集



次に[編集]ボタンの「イベント」タブの「クリック時」のところの右端にある[...]をクリックします。

そして、[追加]ボタンの時と同じように「コードビルダー」を選択して[OK]をクリックします。

するとbuttonEdit_Click()というイベントプロシージャが作られますので、ここに下記のように記述します。
Private Sub buttonEdit_Click()

    DoCmd.OpenForm "F_入力", , , , , acDialog, CStr(Me.ID)

    Me.Requery

End Sub
追加のときと違うのは、最後のパラメータがCStr(Me.ID)となっていることです。これは、選択したIDを文字列として渡しています。これにより「F_入力」フォームでどのIDのレコード表示すればいいかが分かるようになります。

2019年6月17日

【初心者向け】入力フォーム(その3:イベントプロシージャの作成)






前回、入力フォームの作成まで出来ましたので、次にイベントプロシージャの作成を行っていきます。

イベントプロシージャとは、イベントが発生した時の処理のことを言います。

プログラミングの世界では「ボタンが押された」とか「テキストボックスの文字が書き換えられた」といった、何か事が起きたときのことをイベントと呼んでいます。

では、まず最初に「F_名物」フォームの「追加」ボタンのイベントプロシージャから作成していきます。


「F_名物」フォームをデザインビューで開いたら、「追加」ボタンを選択します。

2019年6月16日

【初心者向け】入力フォーム(その2:入力フォームの作成)






前回からの続きです。

追加入力フォームを作成していきます。


まず、このようにフォームを一つ追加します。

追加したら保存ボタンを押します。


するとこのようなダイアログが表示されてきますので、フォームの名前を設定します。
今回は「F_入力」としましたが何でも構いません。

2019年6月15日

【初心者向け】入力フォーム(その1:追加)



超初心者向けで作成したテーブルやフォームといった基本的な部分を応用して、データベースらしい機能の追加を紹介していきたいと思います。また、SQLについても触れていきたいと思っています。SQLはデータベースのデータを操作するための言語なんですが、SQLを使いこなせるようになれば複雑なデータの抽出も出来るようになります。また、SQLの基本を覚えておけば他のデータベースシステムでも活用することが出来ますのでぜひ覚えてほしいと思います。





今回は、脱初心者向けということで以前作成した「名物一覧」フォームに入力フォームを使ったデータの追加、修正、削除機能を実装していきたいと思います。