Microsoft Access 掲示板

Microsoft Access 掲示板

カラムにデータがあったら、別のカラムにデータを入力する方法 / 6

26 コメント
views
4 フォロー
6
hatena 2023/12/05 (火) 21:22:16 修正

SQLでやろうとするので複雑になるのです。
Recordsetを開いてそれを更新すれば簡単です。

'tn: テーブル名
'd1: 開始時刻
'Sc: 抽出条件
Function kousin1(ByVal tn As String, ByVal d1 As String, ByVal Sc As String, ByRef adoCn As ADODB.Connection)
    Dim rs As New ADODB.Recordset
    rs.Open "SELECT * FROM " & tn & Sc, adoCn 
    If rs.EOF Then
        MsgBox "対象レコードが存在しませんでした。"
    Else
        Dim dt As Date
        dt = CDate(d1)
        If IsNull(rs!休憩開始) Then
            rs!休憩開始 = dt
        Else
            rs1!休憩開始2 = dt
        End If
        rs.Update
    End If
    rs.Close
End Function
通報 ...