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

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

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

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

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

برنامه نت در Access

برای دریافت برنامه بر روی اینجا کلیک کنید 

همچنین فارسی شده برنامه در اینجا کلیک کنید 

کاربرد رخدادها در فرم ها

این بخش در باره کاربرد رخدادها در طراحی فرمها در محیط vba در نرم افزار Access میباشد 

امیدوارم برای علاقه مندان سودمند باشد 

برای دانلود از این لینک استفاده کنید 

ترفندهایی در نرم افزار Microsoft Word

در این یادداشت به چند ترفند کارا در نرم افزار Microsoft Word میپردازیم 

• تغییر نمایش اعداد انگلیسی به فارسی 
  برای این منظور ابتدا برنامه را باز کرده و ازمنوی 
  
  File-->Option-->Advanced-->Show Document Content-->Numeral-->Context

انتخاب میگردد . و چنانچه عکس قضیه را بخواهیم مقدار Numeral را به System تغییر میدهیم 

• مخفی کردن بخشی از قسمتهای نوشته شده 
  در بعضی  مواقع لازم است که اسناد تهیه شده به گروههای خاصی ارائه گردد که دانستن بعضی از قسمتها باری همه گروهها لازم نمیباشد بدین منظور آن قسمت ها را ناپدید میکنیم 
  ابتدا متن مورد نظر را انتخاب کرده و از منوی 
  

  Font-->Efect-->Hidden

تیک Hidden را انتخاب میکنیم 
برای از حالت مخفی خارج کردن متن ناحیح مورد نظر را انتخاب کرده و تیک Hidden را از انتخاب خارج میکنیم