Private Sub Form_Current()
Dim rs As DAO.Recordset
Set rs = Me.RecordsetClone
rs.Boomark=Me.Bookmark
str = rs.Fields("フィールド3") & vbCrLf _
& rs.Fields("フィールド7") & vbCrLf _
& rs.Fields("フィールド8") & vbCrLf _
& rs.Fields("フィールド9") & vbCrLf
End Sub
最新の画像[もっと見る]
-
hello world 7年前
-
クエリーの結果をデータシートビューでポップアップ表示する 11年前
-
クエリーの結果をデータシートビューでポップアップ表示する 11年前
-
リレーションシップでデータシートの3階層入力 12年前
-
リレーションシップでデータシートの3階層入力 12年前
-
リレーションシップでデータシートの3階層入力 12年前
-
データシートの行選択 13年前
-
フォームのデータシート表示で列幅を調整する方法 13年前
-
複数のサブフォームのイベント発生順を変更する。 13年前
-
他mdbのFunction呼び出し 15年前