Alttaki gibi mesaj kutusuna gerek kalmadı.

Alıntı:farklı aylarda aynı kişi için açıklama eklemek mümkün olabilir mi

Bunun için uğraşmam gerek bilmiyorum yapabiliriyim.Ay ve yıl içinde bir alan ekleyip sorgular ekleme ile yapılır gibi.

Sub aciklamaEkle(veri As String)

    Dim x As String, y As String, z As Long

    

    y = Nz(DLookup("[aciklama]", "tblAciklama", "[id] =" & PERNO & " and [ay] ='" & veri & "'"), "")



    If y <> "" Then

        x = InputBox("aciklama: " & y, "aciklama yaz")

    Else

        x = InputBox("aciklama: Bos", "aciklama yaz")

    End If

    

    If x = "" Then Exit Sub

    

    z = Nz(DLookup("[id]", "tblAciklama", "[id] =" & PERNO & " and [ay] ='" & veri & "'"), 0)

    If z = 0 Then

        CurrentDb.Execute "INSERT INTO [tblAciklama]([id], [ay], [aciklama]) " & "VALUES (" & PERNO & ", '" & veri & "','" & x & "')"

    ElseIf z > 0 Then

        CurrentDb.Execute "UPDATE [tblAciklama] SET [aciklama] = '" & x & "' Where [id] = " & PERNO & " And [ay] = '" & veri & "'"

    End If

End Sub