جایی برای یادآوری مطالب  اکسل اکسس پاوری

مدیریت خطا

Private Sub Command28_Click()

  On Error GoTo problem

{

your code

}
Exit Sub

problem:
MsgBox "پیغام خطا", vbMsgBoxRtlReading + vbInformation, "narmakgroup"

Exit Sub
end sub

------------------------------------------------------------------------------------------------------------------------

باز کردن  فرم 

DoCmd.OpenForm "frmsetting"

بستن فرم 

DoCmd.Close acForm, "frmSendmesage"

or 

Unload me

---------------------------------------------------------------------------------------------------------------------------

اشاره به آبجکت در فرم دیگر 

Form_frmname.lbtitle.Caption

------------------------------------------------------------------------------------------------------------------------

فرمت متن ثابت در تکس باکس

@;[Blue]" جستجو..."

بازکردن فرم و درج اطلاعات جدید

DoCmd.OpenForm "frmname"
DoCmd.GoToRecord , , acNewRec
 

بازکردن فرم و اصلاح  اطلاعات  رکورد جاری

DoCmd.OpenForm "frmname"

DoCmd.ApplyFilter , "custid =" & Form_frmcustomer.frmcustomerS.Form.custid   

حذف اطلاعات رکورد جاری

Select Case MsgBox("آیا با حذف رکورد جاری موافق هستید ؟", vbYesNo + vbMsgBoxRight, "NarmakGroup")

 Case vbYes

 CurrentDb.Execute "DELETE * FROM tblcustomer WHERE custid=" & Form_frmcustomer.frmcustomerS.Form.custid  

Form_frmcustomer.frmcustomerS.Requery   بروز رسانی لیست

 Case vbNo

 End Select

---------------------------------------------------

گرفتن خروجی اکسل