اعمال کنترل برای قبول و یا رد تغییرات بر روی داده ها در فرم

در بسیاری از موارد ممکن است به صورت سهوی در هنگام مرور اطلاعات موجود تغییراتی ناخواسته اعمال شود

بدین منظور اعمال کد زیر میتواند گره گشا باشد

Private Sub Form_BeforeUpdate(Cancel As Integer)
If Me.Dirty = True Then    If MsgBox("اطلاعات تغییر کرده آیا تغییرات ذخیره گردد ", vbYesNo + vbQuestion, "ذخیره سازی اطلاعات ") = vbNo Then
    Me.Undo
    End If
End If
End Sub

ایجاد فرم جستجو بر اساس انتخابها

در این مثال با وارد کردن بخشی از آنچه را که قرار است جستجو نمائید را وارد کرده و نتایج را در قالب یک لیست مشاهده میکنید

Option Compare Database
Option Explicit
Dim sel As String, Sortby As String


Private Sub Command6_Click()

Dim sql As String
If Me.Select = 1 Then
    sel = "Students.LastName Like '*" & Me.Text2 & "*'"
ElseIf Me.Select = 2 Then
    sel = "Students.CellPhoneNomber = '" & Me.Text2 & "'"
ElseIf Me.Select = 3 Then
    sel = "Students.SchoolName like '*" & Me.Text2 & "*'"
End If

sql = "SELECT Students.CellPhoneNomber, Students.SchoolName, Students.LastName, Students.FirstName, Students.StudentId " _
    & "FROM Students " _
    & "WHERE " & sel & "" _
    & "ORDER BY Students.LastName "
   
   
 Me.List0.RowSource = sql
 Me.List0.Requery
 Me.List0.Visible = True
 Me.List0.ForeColor = 333
 Me.List0.ColumnHeads = True
 Me.List0.ColumnWidths = "2.5 cm; 2.5 cm; 3 cm; 2 cm;2 cm"

End Sub

در نهایت نتیجه به شکل زیر خواهد بود