Microsoft Access 掲示板

Microsoft Access 掲示板

UPDATEする度にレコードが消えてしまいます / 22

33 コメント
views
4 フォロー
22
hatena 2024/02/02 (金) 11:12:16

こんな感じでどうでしょうか。

  If Nz(Me("txt_特記ID" & R).Value, "") <> "" Then '「txt_特記ID」が空でなければ
    Dim sAddress As String
    sAddress = HyperlinkPart(Me("txt_詳細リンク" & R).Value, acAddress)
    If sAddress <> "" Then s = "#" & Address & "#"
    strSQL = _
      "UPDATE T_特記事項 " & _
      "SET " & _
        "口座番号 = '" & Me.txt_口座番号.Value & "', " & _
        "特記事項 = '" & Me("txt_特記事項" & R).Value & "', " & _
        "特記事項詳細 = '" & sAddress  & "' " & _
      "WHERE ID = " & Me("txt_特記ID" & R).Value & ";"
      sqlList.Add strSQL
通報 ...