چون همه عملیات در Backend انجام میشه کدهای فرم جمع و جور و کم است:
Option Compare Database
Option Explicit
Private Sub NewComment_AfterUpdate()
If Trim(Nz(Me.NewComment, "")) = "" Then Exit Sub
Echo False
With Me.Recordset
.AddNew
!Comment = Me.NewComment
.Update
End With
Me.NewComment = ""
Echo True
End Sub
Private Sub Btn_Create_Click()
Dim i, MaxRow As Integer
MaxRow = Nz(DMax("Row", "Comments"), 0)
Echo False
With Me.Recordset
For i = 1 To 10
.AddNew
!Comment = "Comment " & (i + MaxRow)
.Update
Next
End With
Echo True
End Sub
Private Sub Btn_Clear_Click()
Echo False
Me.Recordset.MoveLast
DoCmd.RunSQL "DELETE FROM Comments"
Me.Requery
Echo True
End Sub