الإخوة الكرام
السلام عليكم وبعد
ما سأقدمه هنا منقول من موقع مايكروسوفت وهو ملخص لطريقة وليس لقواعد تسمية الكائنات وعناصر التحكم في أكسس
أولاً : كائنات قاعدة البيانات
مثال بداية الاسم الكائن
Table tbl tblCustomer
Query qry qryOverAchiever
Form frm frmCustomer
Report rpt rptInsuranceValue
Macro mcr mcrUpdateInventory
Module bas basBilling
ثانياً : حقول الجدول
مثال بداية الاسم نوع الحقل
Binary bin binInternal
Byte byt bytFloorNum
Counter lng lngPKCnt
Currency cur curSalary
Date/Time dtm dtmHireDate
Double dbl dblMass
Integer int intUnit
Long lng lngPopulation
Memo mem memComments
Ole ole oleEmpPhoto
Single sng sngScore
Text str strFirstName
Yes/No ysn ysnDiscounted
ثالثاً : عناصر التحكم في النماذج والتقارير
المثال بداية الاسم نوع العنصر
Chart (graph) cht chtSales
Check box chk chkReadOnly
Combo box cbo cboIndustry
Command button cmd cmdCancel
Frame (object) fra fraPhoto
Label lbl lblHelpMessage
Line lin linVertical
List box lst lstPolicyCode
Option button opt optFrench
Option group grp grpLanguage
Page break brk brkPage1
Subform/report sub subContact
Text box txt txtoginName
Toggle button tgl tglForm
رابعاً : المتغيرات في الوحدة النمطية
مثال بداية الاسم نوع المتغير
Control ctl Dim ctlVapor As Control
Currency cur Dim curSalary As Currency
Database db Dim dbCurrent As Database
Document doc Dim docRelationships as Document
Double dbl Dim dblPi As Double
Field fld Dim fldLastName as Field
Form frm Dim frmGetUser As Form
Group gru Dim gruManagers as Group
Index idx Dim idxOrderId as Index
Integer int Dim intRetValue As Integer
Long lng Dim lngParam As Long
Object obj Dim objGraph As Object
Parameter prm Dim prmBeginDate as Parameter
Property prp Dim prpUserDefined as Property
QueryDef qdf Dim qdfPrice As QueryDef
Recordset rec (or rst) Dim recPeople as Recordset
Relation rel Dim relOrderItems as Relation
Single sng Dim sngLoadFactor As Single
String str Dim strUserName As String
Table tbl Dim tblVendor As Table
TableDef tdf (or tbd) Dim tdfBooking as TableDef
Variant var Dim varInput As Variant
Workspace wrk (or wsp) Dim wrkPrimary as Workspace
Yes/No ysn Dim ysnPaid As Integer
علماً بأنني تركت بعض الأشياء الفرعية حرصاً على عدم التشويش
تحياتي للجميع
أخوكم / أبو هاجر
