تلميحات سريعة في النماذج

تلوين حقل وترك حقل في النموذج الفرعي استخدم هذا الكود

Get row colors to alternate on Subform's and Datasheets. 
 ''\\ HOW TO...
''\\ Add a  Textbox named RS onto your form, in the ControlSource Property enter "=RowState()"
''\\ On the Form_Load Event add the following code

Private Sub Form_Load()
ResetConditions Me
SetConditions Me
End Sub
''Add a Code Module to you Project and Enter the following Code....

Public g_RowState As Long

Public Function RowState() As Long
''\\ This function sets the Rowstate switch to determine the row condition or color
If g_RowState = 0 Then g_RowState = 1 Else g_RowState = 0
RowState = g_RowState
End Function

Public Sub SetConditions(frm As Form)
''\\THE NEXT LINE WILL IGNORE CONTROLS SUCH AS LABELS AND COMMAND BUTTONS
On Error Resume Next
Dim BColor As Long
Dim ctl As Control
''\\CHANGE THE BACKGROUND COLOR ON THE NEXT LINE
BColor = 14803425 
For Each ctl In frm.Controls
With ctl.FormatConditions.Add(acExpression, acNotEqual, "[RS]")
.BackColor = BColor
End With
Next

End Sub

Public Sub ResetConditions(frm As Form)
On Error Resume Next
Dim BColor As Long
Dim ctl As Control
BColor = -2147483633
For Each ctl In frm.Controls
''\\ REMOVE PREVIOUS FORMATS
ctl.FormatConditions.Item(0).Delete
ctl.FormatConditions.Item(1).Delete
ctl.FormatConditions.Item(2).Delete
Next

End Sub

لديك نموذج و تريد أن تعرف رقم السجل الحالي و عدد كل السجلات: مثلا

السجل 10 من 250

الطريقة كالتالي:

افتح النموذج في وضع التصميم, صمم حقل غير منضب على النموذج و سميه txtCurrent

في خصائص النموذج في الحالي أنسخ الكود التالي :

Dim sCurrent As Integer
Dim sTotal As Integer

sCurrent = Me.CurrentRecord
Me.RecordsetClone.MoveLast
sTotal = Me.RecordsetClone.RecordCount

If sCurrent > sTotal Then
sTotal = sTotal + 1
Else
End If

Me!txtCurrent = "سجل " & sCurrent & " من " & sTotal

قم بالحفظ و هكذا أصبح لديك عداد للسجلات.

هذه بعض الطرق للتخصيص واجهة نموذج حسب الرغبة

لتحسن الشكل ...

إزالة قائمة الاختصار من نموذج

1.افتح النموذج في طريقة عرض "التصميم".

2.انقر نقراً مزدوجاً فوق محدَّد النموذج لفتح صفحة خصائص النموذج.

3.في مربع الخاصية "قائمة الاختصار"، انقر فوق "لا".

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

إزالة محدَدات السجلات من نموذج

1.افتح النموذج في طريقة عرض "التصميم".

2.انقر نقراً مزدوجاً فوق محدَّد النموذج لفتح صفحة خصائص النموذج.

3.في مربع الخاصية "محددات السجل"، انقر فوق "لا".

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

إزالة أزرار التنقل من نموذج

1.افتح النموذج في طريقة عرض "التصميم".

2.انقر نقراً مزدوجاً فوق محدَّد النموذج لفتح صفحة خصائص النموذج.

3.في مربع الخاصية "أزرار_التنقل"، انقر فوق "لا".

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

تعطيل الزر "إغلاق" في نموذج

1.في طريقة عرض "التصميم"، انقر نقراً مزدوجاً فوق محدد النموذج لفتح صفحة الخصائص.

2.في مربع الخاصية "زر_إغلاق" ، انقر فوق "لا".

//ملاحظات//

·عند تعيين الخاصية "زر_إغلاق" إلى "لا"، يقوم Microsoft Access بتعطيل الزر "إغلاق" وكذلك تعطيل الأمر "إغلاق" في القائمة "التحكم".

·إذا أردت إزالة الزر "إغلاق" نهائياً، فقد تحتاج استخدام الخاصبة "نمط_الحدود".ولكن تذكر ان تضيف زر امر داخل النموذج لغلق النموذج اذا رغبت ذلك .

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

إضافة أشرطة تمرير إلى نموذج أو مربع نص أو إزالتها

1.افتح النموذج في طريقة عرض "التصميم" .

2.افتح صفحة الخصائص لمربع النص أو النموذج. لفتح صفحة الخصائص لمربع النص، انقر فوقها، ثم انقر فوق "خصائص" فى شريط الأدوات. لفتح صفحة خصائص النموذج، انقر نقراً مزدوجاً فوق محدد النموذج.

3.في مربع الخاصية "أشرطة-التمرير"، انقر فوق أحد الاعدادات.

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

إخفاء خطوط قاسم السجلات في نموذج مستمر

1.افتح نموذجاً في طريقة عرض "التصميم".

2.انقر نقراً مزدوجاً فوق محدد النموذج لفتح صفحة خصائصه.

3.في مربع الخاصية "خطوط_التقسيم"، انقر فوق "لا".

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

إخفاء قائمة "التحكم" في نموذج

1.افتح النموذج في طريقة عرض "التصميم".

2.انقر نقراً مزدوجاً فوق محدَّد النموذج لفتح صفحة خصائص النموذج.

3.في مربع الخاصية "مربع عنصر التحكم" انقر فوق "لا".

//ملاحظات//

·إذا تم تعيين خاصية "نمط_الحدود" للنموذج إلى "بلا"، لن يكون للنموذج قائمة "التحكم" حتى لو تم تعيين خاصية "مربع_عنصر_التحكم" إلى "نعم".

·عند تعيين الخاصية "مربع_عنصر_التحكم" إلى "لا"، يتم إخفاء الأزرار "تصغير"، و"تكبير"، و"إغلاق" أيضاً.

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

إخفاء زري "تكبير" و"تصغير" من نموذج

1.افتح النموذج في طريقة عرض "التصميم".

2.انقر نقراً مزدوجاً فوق محدَّد النموذج لفتح صفحة خصائص النموذج.

3.في مربع الخاصية "زرا_التصغير_التكبير"، انقر فوق أحد الإعدادات.

ملاحظة إذا تم تعيين خاصية "نمط_الحدود" للنموذج إلى "بلا" أو "مربع حوار"، لن يكون النموذج أياً من زري "تكبير" و"تصغير"حتى لو تم تعيين الخاصية "زرا_التصغير_التكبير" إلى "تمكين التصغير"، أو "تمكين التكبير"، أو "تمكين كليهما".

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

فتح أي نموذج مؤقتاً كمربع حوار

1.قم بإنشاء ماكرو أو إجراء حدث يستخدم إجراء OpenForm لفتح النموذج.

2.قم بتعيين الوسيطة Window Mode للإجراء OpenForm إلى Dialog (acDIALOG لإجراء حدث).

عند فتح نموذج تم تعيين الوسيطة Window Mode الخاصة به إلى Dialog، يقوم Microsoft Access بتعيين الخاصيتين "منبثق" و"مشروط" للنموذج إلى "نعم" إلى أن يتم إغلاق النموذج. كما يقوم أيضاً بتعطيل تركيبات المفاتيح المعرفة من قبل المستخدم ومفاتيح الوظائف الأخرى في Microsoft Access وتعطيل الماكرو أو إجراء الحدث بشكل مؤقت حتى تقوم بإغلاق النموذج أو إخفائه. ويمكنك إخفاء نموذج بواسطة إعداد الخاصية "مرئي" له إلى "لا" باستخدام الإجراء Set Value.

لفتح اي تطبيق لديك في جهاز الكمبيوتر بالاكسيس اضف زر امر وليكن command1 ثم في حدث عند النقر اكتب الكود التالي

Private Sub Command1_Click()
Dim stAppName As String
stAppName = "C:\Program Files\Adobe\Photoshop 6.0\Photoshp.exe" 
Call Shell(stAppName, 1)
End Sub

ملاحظة : غير اسم التطبيق في الكود وهو هنا تطبيق الفوتوشوب الى اي تطبيق تريده مع وضع الموقع الصحيح له

يعطيكم الف عافية ، ،، ومشكورين

لوضع ملف صوت يعمل مع فتح النموذج اجعل النموذج في عرض التصميم ثم من خصائص النموذج اختر حدث عند الفتح او التحميل وضع هذا الكود

Private Sub Form_Open(Cancel As Integer)
    Call PlaySound(Application.CurrentProject.Path & "\Ekhlas.wav")
        End Sub

Ekhlas.wavمع ملاحظة تغيير ملف الصوت بما هو لديك : ملف الصوت هنا هو

واذا رغبت بتشغيل الصوت عن طريق زر امر قم بعرض النموذج في وضع التصميم وانشئ زر امر وليكن

command

ومن خصائص هذا الزر اختر عند الضغط وضع هذا الكود

Private Sub command_Click()
    Call PlaySound(Application.CurrentProject.Path & "\Ekhlas.wav")
        End Sub

مع تغيير ملف الصوت

لجعل النموذج يأخذ كامل مساحة الشاشة

انشئ زر امر ثم ضع هذا الكود في حدث عند النقر

Private Sub Maximize_Click()
DoCmd.Maximize
End Sub

زر الامر هنا اسمه

Maximize

لاعادة النموذج لوضعه الطبيعي انشئ زر امر وفي حدث عند النقر ضع هذا الكود

Private Sub Restore_Click()
DoCmd.Restore
End Sub

زر الامر هنا اسمه

Restore

لتصغير النموذج الى اقصى حد انشئ زر امر وفي حدث عند النقر ضع هذا الكود

Private Sub Minimize_Click()
DoCmd.Minimize
End Sub

زر الامر هنا اسمه

Minimize

طربقة :

لعمل شريط متحرك يأعلى النموذج ، و شريط متحرك بالنموذج ، وشريط اسفل النموذج

قم بفتح نموذج جديد وسمة كما تشاء ، ثم افتح الوحدة النمطية داخل النموذج وقم بنسخ الكود (( باكامل)) ، وبعد النسخ ، قم بتغير التايمر عداد التايمر الى 100

وكما يجب عليك ان تضع مربع تسمية وليكن اسمة (A)

(مربع تسمية ، وليس مربع نص ) ........

كود :

Option Compare Database
Option Explicit

Public txtScrollStatus As String ' Needed for


Private Sub Form_Load()
' شريط متحرك بأعلى النموذج
Me.Caption = "........... تحياتي عبدالمانع ..........."

' شريط متحرك بالنموذج
Me.a.Caption = "أهلا بكم في منتيدات الفريق العربي للبرمجة  (قسم الاكسس)......................... "

' شريط متحرك بأسفل النموذج
txtScrollStatus = "منتديات الفريق العربي للبرمجة قسم الاكسس .. لا تنسونا من الدعاء" & Space(25)

End Sub

' Special Note ...........
' Set Form's Timer Interval to 100
Private Sub Form_Timer()

' Produce the Scrolling Text in Caption on the Form
Me.Caption = Mid(Me.Caption, 2, _
(Len(Me.Caption) - 1)) & Left(Me.Caption, 1)

' Produce the Scrolling Text in Label on the Form

Me.a.Caption = Mid(Me.a.Caption, 2, _
(Len(Me.a.Caption) - 1)) & Left(Me.a.Caption, 1)

' Produce the Scrolling Text in Status Bar of Access
SysCmd acSysCmdSetStatus, txtScrollStatus
txtScrollStatus = Mid(txtScrollStatus, 2, (Len(txtScrollStatus) - 1)) & Left(txtScrollStatus, 1)

End Sub

تحياتي لكم

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

يتم وضع هذا الكود في حدث (عند الفتح) الخاص بالنموذج

أو في أي حدث ترغب فيه انت

التحكم في ارتفاع النموذج.. يتم التغيير في الرقم فقط إلى الحجم المرغوب فيه
Me.Form.InsideHeight = 4150

التحكم في عرض النموذج.. يتم التغيير في الرقم فقط إلى الحجم المرغوب فيه
Me.Form.InsideWidth = 8070

عندما أريد إغلاق جميع حقول النموذج عند الفتح وعدم السماح بالتعديل فيها أو الحذف

أضع في حدث في الحالي وفي حدث بعد التحديث للنموذج هذا الكود

Form.AllowEdits = True
===============

فتح حقل معين مع تمكينه

[اسم_الحقل].Enabled = True


إقفال حقل معين  مع عدم تمكينه

[اسم_الحقل].Enabled = False

قفل الحقل مع تمكينه
[اسم_الحقل].Locked = True

فتح الحقل بعد قفله
[اسم_الحقل].Locked = False

سلام عليكم

لجعل عنوان او مربع نص يومض (يؤشر)

ضع في حدث عند عداد الوقت الكود التالي

Me!last.Visible = Not (last.Visible)

حيث ان last هو اسم النص او مربع النص

وعند الفاصل الزمني ضع القيمة التي تريد ولتكن 500

وشكرا لكم

السلام عليكم وجزاكم الله خيرا إن شاء الله ولكم منا الف تحيه على جهودكم القيمه وبالتوفيق , أخوكم الراشد ولو إنى متأخر نرجو السموحه .

biskra كتب:

لديك نموذج و تريد أن تعرف رقم السجل الحالي و عدد كل السجلات: مثلا

السجل 10 من 250

الطريقة كالتالي:

افتح النموذج في وضع التصميم, صمم حقل غير منضب على النموذج و سميه txtCurrent

←

يا جماعة وش المقصود بـــــ حقل غير منضب. وش الاداة التي تعمل لك هذا النوع من الحقول

المقصود فيه غير منضم أخي / m00j

والكائن غير المنضم هو الكائن غير المرتبط بحقل في جدول او استعلام ويسمى unbound

ولو اني جربت لحد ما عرفت سابقا بس يا عيني عليك يا ايهاب عثمان هذا الي كنت ابي اعرفه .. يعطيك العافية