ついに実装されてしまうのか？
やっと実装できるのかwikieditish。
とりあえずテストですがな。TEST..
pluginディレクトリ丸見えなので.htaccessでIndex表示を回避。
Options -Indexes
SAKURAサーバへお引越しした途端成功。
blosxom.cgiのべースURL変更と前に失敗したときの.htaccessでそのままOK。
前に失敗したのは、やはりサーバの仕様の相性だったようだ。
なんかそのときの資料が見えなくなっている気がするので、.htaccessの内容だけ転記。
DirectoryIndex blosxom.cgi
RewriteEngine on
RewriteCond %{REQUEST_FILENAME} !-f
RewriteCond %{REQUEST_FILENAME} !-d
RewriteRule ^(.*)$ blosxom.cgi/$1 [L,QSA]
人の目には同じような空のコントロール、あるいはフィールドに見えても、
実際にはNull、Empty、ゼロ桁文字列などの別の値が格納されていることがある。
フォーム上で省略不能項目のチェックを行ったり、レコードセット上で値の有無をチェックしたいとき、
汎用の関数を定義していると便利だ。
以下の関数を定義し、「gfnc_value(調べたい値 or コントロール名)=True」なら何か値が入力されている。
'--------------------------------------------------
' Function : gfnc_Value
' 入力チェック
' varValue : 処理文字列
'--------------------------------------------------
Public Function gfnc_Value(ByVal varValue As Variant) As Boolean
If (IsEmpty(varValue) = True) Then
Exit Function
End If
If (IsNull(varValue)) Then
Exit Function
End If
If (varValue = vbNullString) Then
Exit Function
End If
If (StrComp(varValue, "") = 0) Then
Exit Function
End If
'---< CHECK OK >
gfnc_Value = True
End Function
vbNullStringについての判別は、StrCompを用いた「""(ゼロ桁文字列)」の判別より前におくべきである(2007-05-15修正)。 でないと、InputBoxでキャンセルした返り値で実行時エラー5が発生する。 InputBoxの返り値は空でOKしたものもキャンセルで回避したものもvbNullStringと判断されるが、 これを区別する場合にはStrPtr関数を使う。
前後の記事へのリンクを作成。
ブログのよくあるパーツ、カレンダーが表示できる。
検索フォームを付加。
年月で閲覧できるリストの出力。お約束パーツ。
カテゴリーごとに指定したアイコンを表示する。
月別表示のとき、記事のタイトルのみを列挙する。
年別表示のとき、記事のタイトルのみを列挙する。
ページの表示やらリンクやら、いわゆるページング機能。
月別表示のときは動作しない。
VBAから任意の名称のテーブルを削除する。
DoCmd.DeleteObject acTable, "テーブル名"
データベースmdb内に任意名のテーブルがあるかどうかを調べる。 テーブルを処理毎に作り直す等の場合に利用する。
'----------------------------------------------------
' Function : Table-Exist-Check
'----------------------------------------------------
Public Function gfnc_ExistTable(ByVal strTableName As String) As Boolean
Dim dbs As Database
Dim rst As Recordset
Dim tdf As TableDef
Set dbs = CurrentDb
'---< LOOP TABLEDEFS >
For Each tdf In dbs.TableDefs
If (tdf.Name = strTableName) Then
gfnc_ExistTable = True
Exit For
End If
Next tdf
End Function
gfnc_ExistTable("テーブル名")がTrueを返せば、その名称のテーブルが存在する。
