Microsoft Access 掲示板
単純なキーブレイク処理 / 1
最新トピック
8
1 ヶ月前
Hatena様にご質問 1 ヶ月前
1
2 ヶ月前
排他制御 2 ヶ月前
6
5 ヶ月前
ﾓｼﾞｭｰﾙでｶﾚﾝﾄﾌｫｰﾑのｺﾝﾄﾛｰﾙを使うには 5 ヶ月前
7
6 ヶ月前
日付のテキストボックスからフォームが開けません 6 ヶ月前
9
6 ヶ月前
レポートにおける数値の間隔を広げる方法 6 ヶ月前
12
6 ヶ月前
リストボックスから複数選択しそれをテーブルに格納したい 6 ヶ月前
タグリスト
Markdown テーブル生成
Accessのテーブルやクエリのデータを貼り付ける場合は下記で、Markdown書式のテーブルに変換して貼り付けてください。
コードはこちらです。
Funcion keyBreak()
Dim rs As DAO.Recordset
Dim PreNo As Long
Dim strSQL As String
strSQL = "select * from Mtbl_社員 ORDER BY No"
Set rs = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset, dbFailOnError)
cnt = 0
Do Until rs.EOF
If PreNo = rs!No Then
cnt = cnt + 1
Else
If cnt = 1 Then
rs.MovePrevious
rs.Delete
rs.MoveNext
End If
PreNo = rs!No
cnt = 1
End If
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
End Function