اوامر و كودات الاكسس

فيما يلي بعض كودات البرمجة بالاكسس
و يمكنكم تحميل كامل الملف بالملف المرفق
تغيير الخيارات في مربع الحوار خيارات بواسطة SetOption

الأخوة الأعضاء

أدوات=<خيارات
تستطيع بواسطة Visual Basic تغيير الاختيارات في مربع حوار خيارات .
تسطيع تغيير أي قيمة في مربع الحوار خيارات بواسطة السطر التالي :
[CODE2]
Object.SetOption " اسم الخيار", قيمة
[/CODE2]
والقراءة بالسطر التالي :
[CODE2] object.GetOption("اسم الخيار") [/CODE2]
حيث :
Object: كائن Application وهو اختياري يعني بإمكانك كتابة أو تركه .
اسم الخيار : الاسم الخاص بالخيار حيث كل خيار في مربع احوار خيارات له اسم خاص به .
قيمة : في عبارة SetOption هي القيمة الجديدة التي ترغب في إسنادها إلى اسم الخيار .

ولسرعة فهم طريقة ذلك إليك المثال التالي :
مثال يسأل عن رغبة المستخدم في تغيير نوع الحقل الافتراضي ويسبق ذلك التأكد من كون حقل النص هو الحقل الافتراضي أم لا :
[CODE2]
Const conText = 0
Dim varSize As Variant, intResponse As Integer
Dim strMsg As String

varSize = Application.GetOption("Default Field Type")

strMsg = "هل ترغب في تغيير نوع الحقل الافتراضي إلى نص؟"
If varSize <> conText Then ' هل الحقل الافتراضي نص؟
If MsgBox(strMsg, vbYesNo) = vbYes Then
Application.SetOption "Default Field Type", conText
End If
End If
[/CODE2]
طريقة أكثر وضوحاً لتغيير الانتقال بعد الإدخال :
[CODE2]
الاختيار_الحالي = Application.GetOption("Behavior Entering Field")
If الاختيار_الحالي <> 2 Then
Application.SetOption "Behavior Entering Field", 2
End If

تم التحميل

حمل الملف من المرفقات بالموضوع الاساسي