سلسلة - أكواد الأكسس

أتمنى أن تحوز على رضى مرتادي هذا المنتدي الجميل بكل أعضائه

أولاً :-

لتحريك الفورم (none) أي بدون شريط عنوان .

ضع أداة صور Image1 وانسخ الكود:

Dim MoveFlag As Integer

Dim MXstart As Single

Dim MYstart As Single

Private Sub Image1 _MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)

MousePointer = 5

MXstart = x

MYstart = y

MoveFlag = True

End Sub

Private Sub Image1 _MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)

If MoveFlag Then

Move Left + (x - MXstart), Top + (y - MYstart)

End If

End Sub

Private Sub Image1 _MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)

MoveFlag = False

MousePointer = 1

End Sub

*******************************************************************

ثانياً :-

لرسم دوائر تصغ وتكبر حول المشيرة

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Me.DrawWidth = 2

Dim R

R = 10

Do

Cls

R = R + 10

Circle (X, Y), R, vbRed

If R = 400 Then

R = 10

End If

DoEvents

Loop

End Sub

******************************************************************

ثالثاً :-

أنا مستعد هذه واحدة معروفة لجعل النافذة تومض

بدالةFLASHWINDOW:

عرف الدالة التالية في قسم الإجراءات أو في MODULE :

Code:

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

PUBLIC DECLARE FUNCTION FLASHWINDOW LIB "USER32"_

(BYVAL HWND AS LONG,BYVAL BINVERT AS LONG)AS LONG

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

أكتب الحدث التالي في تايمر واجعل قيمتها 100

Code:

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

PRIVATE SUB TIMER1_TIMER()

FLASHWINDOW(ME.HWND,0)

END SUB

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

أولاً نقوم بتعريف الدالة FLASHWINDOW.

ثانيا في حدث التايمر نكتبFLASHWINDOW(ME.HWND,0)نقوم بأخد مقبض النافذة في الإجراء ME.HWND ومن ثم تكون قيمة الإجراء الآخر صفر لكي لا تكون TRUE أو FALSEأي تعمل دائماً

******************************************************************

رابعاً :-

كود لأضافة ايقونة عند ساعة الويندوز :

Code:

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

Private Declare Function Shell_NotifyIcon Lib "shell32.dll" _

Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, _

lpData As NOTIFYICONDATA) As Longprivate

Type NOTIFYICONDATA

cbSize As Long

hwnd As Long

uID As Long

uFlags As Long

uCallbackMessage As Long

hIcon As Long

szTip As String * 64

End Type

Private Const WM_RBUTTONDOWN = &H204

Private Const WM_RBUTTONUP = &H205

Private Const WM_RBUTTONDBLCLK = &H206

Private Const NIM_ADD = &H0

Private Const NIM_DELETE = &H2

Private Const NIM_MODIFY = &H1

Private Const NIF_ICON = &H2

Private Const NIF_MESSAGE = &H1

Private Const NIF_TIP = &H4

Private Ic As NOTIFYICONDATA 'هنا تعريف المتغير من نوع NotifyIcon

'''''''''''''''''''''''''''''''''''''''''''

'''''''''''''''''''''''''''''''''

Private Sub Load_Form()

Ic.cbSize = Len(Ic)

Ic.hwnd = Me.hwnd 'مقبض النافذة

Ic.uID = 1&

Ic.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE 'يحتوي على : ايقون + ملاحظات + رسائل الفأرة

Ic.uCallbackMessage = WM_RBUTTONDOWN Or WM_RBUTTONUP Or WM_RBUTTONDBLCLK 'رسائل الفأرة النشطة

Ic.hIcon = Picture 'ضع هنا الايقونه

Ic.szTip = "My Program First" 'الملاجظات الخاصة للبرنامج او ما يسمىToolTipText

Shell_NotifyIcon NIM_ADD, Ic 'الأمر اضافة للأيقونة

End Sub

'''''''''''''''''''''''''''''''''''''''''''''''

'''''''''''''''''''''''''''''

Private Sub Form_Unload()

Ic.cbSize = Len(Ic)

Ic.hwnd = Me.hwnd

Ic.uID = 1&

Shell_NotifyIcon NIM_DELETE, Ic 'الأمر حذف للأيقونة

End Sub '''''''''''''''''''''''''''''

'''''''''''''''''''''''''''''''''''''''''''''''

Private Sub Timer1_Timer()

Ic.szTip = "My Program Second"

Shell_NotifyIcon NIM_MODIFY, Ic 'الأمر تعديل في الأيقونة وهنا كان التعديل فقط على الملاحظات

End Sub

******************************************************************

خامساً :-

هذي علشان النافذة دائما في الاعلى :

في الـ Module :

Code:

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

Private Declare Function SetWindowPos Lib "user32" _

(ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, _

ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Declare Sub ReleaseCapture Lib "user32" ()

Declare Function SendMessage Lib "user32" Alias "SendMessageA" _

(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Long) As Long

Const HWND_TOPMOST = -1

Const SWP_NOMOVE = &H2

Const SWP_NOSIZE = &H1

Public Function PutWindowOnTop(Form1 As Form)

Dim lngWindowPosition As Long

lngWindowPosition = SetWindowPos(Form1.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE)

End Function

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

ثم في الفورم :

Code:

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

Private Sub Form_Load()

Call PutWindowOnTop(Me)

End Sub

رائع هل من مزيد

...................

شكرا اخ انور وسعودي31 ياليت تكثرون من

هذه الاكواد في نفس هذه الصفحه عشان

لوقت الحاجه وتكون مرجع لنا ،،،،

وجزاكم الله خير ،،،،،

:D :D :D :D :D :D

الأخ : أنور

جزاك الله خيراً على مجهودك

ملاحظة فقط لمن يريد المشاركة في وضع أي كود

هناك الكثيرون من مرتادي المنتدى ومن الأعضاء قد لا يعرفون أين توضع الأكواد ( وأنا أولهم طبعاً )

لذلك نرجو ممن يضع كود هنا أن يوضح أكثر عن طريقة تشغيله

مثلاً :

نقول قبل وضع الكود نضع مربع نص في النموذج ونسميه ( text1 ) ونضع الكود في حدث الحالي للنموذج أو في أي مكان

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

أو نقول ننشأ نموذج ونسميه ( نموذج 1 ) وهكذا ..

__________

المقصود من ذلك توضيح مكان وضع الكود حتى لا تكثر الأسئلة عن أين أضع الكود أو قمت بنسخ الكود فلم يعمل بل تخرج رسالة خطأ ويقوم البرنامج بتضليل ( text1) طبعا لأنه لم يسمي مربع النص الذي عنده بـtext1

نريد هذه المساحة لوضع الأكواد لتكون مرجع للجميع

___________

شكراً لك يا أخ خالد محمد

شكراً لك يا أخ alhajri

والشكر موصول للجميع

حاضر ياخوي بس لو لاحظت لوجدت أن كل كود يتم وضعه في النطاق الذي يتم العمل فيه فمثلاً كود عمل دوائر على رأس المؤشر يتم وضعه في الفورمة النموذج وأرى يتم معفتها من رأس كتابة الكود وعلى العموم المعذة ؛ واليكم المزيد إن شاء الله أن تكوت أوضح :-

* ضع الكود في الزر لإضهار الآلة الحاسبة

shell "c:windowscalc.exe"

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

لجعل مؤشر الماوس لا يخرج من حدود الفورم ،اليكم الكود .

السلام عليكم و رحمة الله

إخواني الاعزاء

لأسر مؤشر الفأره داخل حدود الفورم اليكم بالتالي :

ضع الكود التالي داخل مديول :

Type RECT

Left As Long

Top As Long

Right As Long

Bottom As Long

End Type

Declare Function ClipCursor Lib "user32" (lpRect As Any) As Long

ثم ضع الكود التالي في الفورم :

Private Sub Form_Load()

'The form should not be set to sizable or this will not work. You should also call the code each time the user moves the form.

Dim lngX As Long

Dim lngY As Long

Dim lngReturn As Long

Dim NewRect As RECT

'Get the screens Twips per pixel (form's scalemode must be Twips)

lngX = Screen.TwipsPerPixelX

lngY = Screen.TwipsPerPixelY

'Set cursor region to that of form

With NewRect

.Left = Me.Left / lngX

.Top = Me.Top / lngY

.Right = .Left + Me.Width / lngX

.Bottom = .Top + Me.Height / lngY

End With

lngReturn = ClipCursor(NewRect)

End Sub

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

وسلامتكم

الأخوة الأعزاء :

مجهود عظيم ووافر إن شاء الله ، لكن عندي اقتراح لماذا لا تضعو هذا الموضوع ضمن الأرشيف تحت بند الوحدات النمطية . حتى لا نخرج عن موضوع الأرشيف المخصص لذلك فعلا .

أشرف خليل

أنا أخالفك الرأي يا أخ أشرف خليل

فوضع الموضوع هنا يجعل الجميع يشاركون فيه

فالشخص أول ما يدخل على المنتدى يبحث عن الموضوع الذي في المقدمة

فلو وضع في الأرشيف فربما لا يراه أحد لأن الأرشيف لا يرجع له إلا عند الحاجة إليه وبذلك يتم إنهاء الموضوع هذا قبل أن يبدأ

آمل تأجل وضع الموضوع هذا في الأرشيف وترك الفرصة للجميع ليشاركوا فيه

ولك جزيل شكري

لمنع المستخدم من الضغط على زر الفأرة الأيمن كما هو في المتصفح

ضع هذا الكود في حدث عند الضغط على الماوس

في مقطع التفصيل وفي خصائص النموذج

______________________________

If Button = 2 Then

MsgBox "ممنوع الضغط بزر الفأرة الأيمن"

DoCmd.CancelEvent

End If

_______________________________

لمنع المستخدم من الضغط على زر الفأرة الأيسر كما هو في المتصفح

ضع هذا الكود في حدث عند الضغط على الماوس

في مقطع التفصيل وفي خصائص النموذج

If Button = 1 Then

MsgBox "ممنوع الضغط بزر الفأرة الأيسر"

End If

_______________________________

وشكرا

أنا شخصيا من رأي أشرف

لأن البحث عن كود بعد ذلك سيكون سهلا من عنوان الموضوع اذا كان كل كود فى موضوع بمفرده

و قد رأيت فى بعض المنتديات مواضيع مثل هذا وصلت الي عشر صفحات و اكثر و بالتالي تصبح الاستفادة منها مستحيلة

فانا أفضل أن يكون كل كود أو مجموعة أكواد مرتبطة ببعضها تحت عنوان منفصل

و بالمناسبة الارشيف متضمن ضمن المنتدي فى البحث

أي أنك عندما تبحث فى المنتدي

يدخل الارشيف ضمن نطاق البحث

و لن أنقل موضوع الي الارشيف الا بعد انتهاء نقاشه

أخي محمد طاهر :

طالما أن الموضوع جيد ولن يتم نقله إلا بعد فترة فلو تكرمت قم بتثبيت الموضوع حتى لا يضيع مع الصفحات الأخرى وبعد الانهاء قم بالنقل .

أشرف خليل (f)

أخي محمد : ما رأيك بتصفية الموضوع من المشاركات التي ليس بها أكواد .

وهذا اقتباس للأخ العظيم أبو حمود بموضوع كان قد بدأه من قبل :

اقتباس

بعض أوامر RunCommand  

الجزء الأول :  

هذه هو الجزء الأول من شرح لبعض أوامر RunCommand وسيتلوه إن شاء الله الجزء الثاني ثم بقية الأوامر التي لم اعرف طريقة عملها ، اي استفسار أو ملاحظات ارجو سرعة كتابتها حتى تكون في موضعها المناسب .  

إظهار مربع حول ميكروسوفت أكسس  

كود:  

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

DoCmd.RunCommand acCmdAboutMicrosoftAccess  

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

فتح عامل تصفية فرز متقدم  

كود:  

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

DoCmd.RunCommand acCmdAdvancedFilterSort  

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

محاذاة إلى الأسفل  

كود:  

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

DoCmd.RunCommand acCmdAlignBottom  

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

يجب أن يسبقها الأوامر التالية :  

1- أمر فتح النموذج أو التقرير في عرض التصميم .  

2- أمر اختيار كل الكائنات :  

اختيار كل الكائنات  

كود:  

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

DoCmd.RunCommand acCmdSelectAll  

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

والأوامر الستة التالية يشترط لها الشرطين السابقين .  

محاذاة إلى اليسار  

كود:  

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

DoCmd.RunCommand acCmdAlignLeft  

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

محاذاة إلى اليمين  

كود:  

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

DoCmd.RunCommand acCmdAlignRight  

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

محاذاة إلى الشبكة  

كود:  

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

DoCmd.RunCommand acCmdAlignToGrid  

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

محاذاة إلى الأعلى  

كود:  

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

DoCmd.RunCommand acCmdAlignTop  

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

محاذاة إلى الأقصر  

كود:  

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

DoCmd.RunCommand acCmdAlignToShortest  

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

محاذاة إلى الأطول  

كود:  

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

DoCmd.RunCommand acCmdAlignToTallest  

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

إظهار مربع حوار معالج الأداء  

كود:  

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

DoCmd.RunCommand  acCmdAnalyzePerformance  

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

تشغيل معالج محلل الجداول  

كود:  

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

DoCmd.RunCommand acCmdAnalyzeTable  

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

إظهار تعليمات الأكسس :  

كود:  

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

DoCmd.RunCommand acCmdAnswerWizard  

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

تطبيق معامل تصفية فرز متقدم :  

كود:  

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

DoCmd.RunCommand acCmdApplyFilterSort  

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

يأتي بعد عمل للنموذج تصفية فرز متقدم للنموذج قبل ذلك .  

تكبير إطار الأكسس للحجم الأقصى ، لاحظ إطار أكسس وليس غيره :  

كود:  

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

DoCmd.RunCommand acCmdAppMaximize  

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

إرجاع إطار الأكسس إلى الخلف (لماذا يختلف العمل عن الاسم ؟!!) :  

كود:  

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

DoCmd.RunCommand acCmdAppMinimize  

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

تحريك إطار الأكسس :  

كود:  

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

DoCmd.RunCommand acCmdAppMove  

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

استرجاع (تصغير) نافذة الأكسس :  

كود:  

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

DoCmd.RunCommand acCmdAppRestore  

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

تغيير حجم ناذة الأكسس :  

كود:  

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

DoCmd.RunCommand acCmdAppSize  

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

ترتيب تلقائي :  

والمقصود به ترتيب الرموز في إطار أكسس بأحد الطرق التالية :  

كود:  

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

DoCmd.RunCommand acCmdArrangeIconsAuto  

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

يجب أن يسبقها أمر اختيار إطار قاعدة البيانات بأحد الطرق التالية :  

كود:  

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

SendKeys "%{ط}", False

SendKeys "{1}"  

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

أو :  

كود:  

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

DoCmd.SelectObject acQuery, , True  

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

للفائدة :  

يمكنك استبدال acQuery بأحد الاختيارات التالية ليفتح على صفحة التبويب الخاصة بأحد هذه الكائنات :  

النوع / رقماً / توضيح  

AcTable / 0 / جدول  

AcQuery / 1 / استعلام  

AcForm / 2 / نموذج  

AcReport / 3 / تقرير  

AcMacro / 4 / ماكرو  

AcModule / 5 / وحدة نمطية  

AcDataAccessPage / 6 / صفحة بيانات أكسس  

AcServerView / 7 / طريقة عرض الملقم  

AcDiagram / 8 / رسم بياني أو تخطيطي  

AcStoredProcedure / 9 / إجراء مخزن  

و True يعني من إطار قاعدة البيانات الحالية و False إذا كان الكائن مفتوحاً مسبقاً .  

الأربعة التالية تحتاج نفس الطريقة السابقة .  

حسب تاريخ الإنشاء  

كود:  

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

DoCmd.RunCommand acCmdArrangeIconsByCreated  

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

حسب تاريخ التعديل  

كود:  

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

DoCmd.RunCommand acCmdArrangeIconsByModified  

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

حسب الاسم  

كود:  

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

DoCmd.RunCommand acCmdArrangeIconsByName  

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

حسب النوع  

كود:  

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

DoCmd.RunCommand acCmdArrangeIconsByType  

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

إظهار مربع حوار التصحيح التلقائي  

كود:  

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

DoCmd.RunCommand acCmdAutoCorrect  

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

ملاحظة : تحتاج لوضع عبارة اعتراض الخطأ لظهور خطأ في حالة ما إذا نقر المستخدم زر إلغاء الأمر .  

اتصال هاتفي تلقائي :  

كود:  

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

DoCmd.RunCommand acCmdAutoDial  

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

يجب أن يسبقها أمر نقل التركيز لمربع النص مثلا الذي يحتوي على رقم الهاتف .  

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

كود:  

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

DoCmd.RunCommand acCmdAutoFormat  

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

لابد أن يسبق هذا الأمر أمر فتح النموذج أو التقرير في وضع التصميم .  

مسح شبكة الاستعلام:  

كود:  

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

DoCmd.RunCommand acCmdClearGrid  

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

يسبقه أمر فتح الاستعلام في عرض التصميم .  

إغلاق الكائن النشط :  

كود:  

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

DoCmd.RunCommand acCmdClose  

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

إغلاق الأكسس :  

كود:  

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

DoCmd.RunCommand acCmdCloseWindow  

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

يظهر مربع حوار عرض العمود في استعلام أو جدول  

كود:  

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

DoCmd.RunCommand acCmdColumnWidth  

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

يسبقه أمر فتح الاستعلام أو الجدول .  

ترجمة كافة الوحدات النمطية  

كود:  

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

DoCmd.RunCommand acCmdCompileAllModules  

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

ترجمة كافة الوحدات النمطية وحفظها  

كود:  

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

DoCmd.RunCommand acCmdCompileAndSaveAllModules  

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

تحويل وحدات ماكرو إلى فيوجل بيسك :  

كود:  

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

DoCmd.RunCommand acCmdConvertMacrosToVisualBasic  

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

يسبقه هذا الأمر الأمر التالي :  

كود:  

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

DoCmd.SelectObject acMacro, "اسم الماكرو المطلوب تحويله", True  

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

نسخ كائن :  

كود:  

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

DoCmd.RunCommand acCmdCopy  

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

يسبقها أمر اختيار كائن كالذي في المثال السابق مع ملاحظة أن اسم الكائن مطلوب .  

إنشاء قائمة لنموذج :  

كود:  

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

DoCmd.RunCommand acCmdCreateMenuFromMacro  

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

يسبقها أمر اختيار ماكرو .  

يغلق قاعدة البيانات المفتوحة وينشئ نسخة مماثلة :  

كود:  

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

DoCmd.RunCommand acCmdCreateReplica  

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

يظهر مربع إنشاء اختصار لكائن في قاعدة البيانات :  

كود:  

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

DoCmd.RunCommand acCmdCreateShortcut  

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

يسبقها أمر اختيار الكائن .  

إنشاء قائمة من ماكرو :  

كود:  

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

DoCmd.RunCommand acCmdCreateShortcutMenuFromMacro  

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

يسبقها أمر اختيار ماكرو .  

إنشاء شريط أدوات من ماكرو  

كود:  

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

DoCmd.RunCommand acCmdCreateToolbarFromMacro  

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

يسبقها أمر اختيار ماكرو .  

قص كائن :  

كود:  

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

DoCmd.RunCommand acCmdCut  

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

يسبقها أمر اختيار الكائن .  

عرض صفحة بيانات (يسبقه أمر اختيار الصفحة)  

كود:  

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

DoCmd.RunCommand acCmdDataAccessPageBrowse  

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

عرض صفحة بيانات في عرض التصميم (يسبقه أمر اختيار الصفحة)  

كود:  

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

DoCmd.RunCommand acCmdDataAccessPageDesignView  

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

خصائص قاعدة البيانات الحالية  

كود:  

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

DoCmd.RunCommand acCmdDatabaseProperties  

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

جعل النموذج لإدخال البيانات فقط  

كود:  

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

DoCmd.RunCommand acCmdDataEntry  

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

فتح نموذج كصفحة بيانات  

كود:  

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

DoCmd.RunCommand acCmdDatasheetView  

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

يسبقها إما أمر اختيار النموذج أو أمر فتح النموذج في عرض التصميم أما إذا كان النموذج المطلوب هو النموذج النشط فلا حاجة لما سبق .  

فتح نافذة الدبج في النموذج الحالي  

كود:  

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

DoCmd.RunCommand acCmdDebugWindow  

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

حذف كائن  

كود:  

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

DoCmd.RunCommand acCmdDelete  

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

يسبقها أمر اختيار الكائن .  

حذف صفحة  

كود:  

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

DoCmd.RunCommand acCmdDeletePage  

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

يسبقها أمر اختيار الكائن .  

حذف عمود من تقرير في وضع التصميم  

كود:  

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

DoCmd.RunCommand acCmdDeleteQueryColumn  

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

يسبقها أمر اختيار الكائن .  

حذف سجل .  

كود:  

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

DoCmd.RunCommand acCmdDeleteRecord  

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

يسبقه أمر فتح جدول أو استعلام في العرض العادي .  

يحذف الحقل الأول في جدول مفتوح في عرض التصميم :  

كود:  

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

DoCmd.RunCommand acCmdDeleteRows  

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

يحذف العمود الأول في جدول مفتوح في العرض العادي :  

كود:  

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

DoCmd.RunCommand acCmdDeleteTableColumn  

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

يفتح الكائن النشط في عرض التصميم :  

كود:  

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

DoCmd.RunCommand acCmdDesignView  

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

تكبير اطار الكائن النشط :  

كود:  

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

DoCmd.RunCommand acCmdDocMaximize  

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

تصغير اطار الكائن النشط :  

كود:  

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

DoCmd.RunCommand acCmdDocMinimize  

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

تحريك اطار الكائن النشط :  

كود:  

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

DoCmd.RunCommand acCmdDocMove  

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

إستعادة اطار الكائن النشط :  

كود:  

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

DoCmd.RunCommand acCmdDocRestore  

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

تغيير حجم اطار الكائن النشط :  

كود:  

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

DoCmd.RunCommand acCmdDocSize  

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

إظهار معالج التوثيق :  

كود:  

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

DoCmd.RunCommand acCmdDocumenter  

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

إظهار مربع حوار إدراج ارتباط تشعبي :  

كود:  

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

DoCmd.RunCommand acCmdEditHyperlink  

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

تحرير علاقة (يسبقها أمر فتح إطار العلاقات) :  

كود:  

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

DoCmd.RunCommand acCmdEditRelationship  

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

تشفير/فك شفرة قاعدة البيانات  

كود:  

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

DoCmd.RunCommand acCmdEncryptDecryptDatabase  

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

غلق القاعدة والاكسس  

كود:  

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

DoCmd.RunCommand acCmdExit  

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

إظهار مربع حوار إضافة إلى المفضلة  

كود:  

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

DoCmd.RunCommand acCmdFavoritesAddTo  

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

إظهار مربع حوار فتح المفضلة  

كود:  

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

DoCmd.RunCommand acCmdFavoritesOpen  

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

إظهار مربع قائمة الحقول (يسبقها أمر فتح النموذج أو التقرير في عرض التصميم)  

كود:  

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

DoCmd.RunCommand acCmdFieldList  

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

تصفية بواسطة النموذج  

كود:  

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

DoCmd.RunCommand acCmdFilterByForm  

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

تصفية بواسطة التحديد  

كود:  

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

DoCmd.RunCommand acCmdFilterBySelection  

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

تصفية مع استبعاد التحديد  

كود:  

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

DoCmd.RunCommand acCmdFilterExcludingSelection  

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

إظهار مربع بحث واستبدال  

كود:  

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

DoCmd.RunCommand acCmdFind  

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

تكرار البحث :  

كود:  

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

DoCmd.RunCommand acCmdFindNext  

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

إظهار مربع حوار خط (يسبقه أمر فتح الجدول أو الاستعلام أو النموذج –عرض صفحة بيانات- في العرض العادي)  

كود:  

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

DoCmd.RunCommand acCmdFont  

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

إظهار مربع تنسيق صفحة البيانات (يسبقه أمر فتح الجدول أو الاستعلام أو النموذج –عرض صفحة بيانات- في العرض العادي)  

كود:  

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

DoCmd.RunCommand acCmdFormatCells  

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

عرض رأس وتذييل النموذج (يسبقه أمر فتح النموذج في عرض التصميم )  

كود:  

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

DoCmd.RunCommand acCmdFormHdrFtr  

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

عرض النموذج  

كود:  

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

DoCmd.RunCommand acCmdFormView  

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

تجميد أعمده (يسبقه أمر فتح الجدول أو الاستعلام أو النموذج –عرض صفحة بيانات- في العرض العادي)  

كود:  

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

DoCmd.RunCommand acCmdFreezeColumn  

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

إخفاء عمود في صفحة بيانات  

كود:  

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

DoCmd.RunCommand acCmdHideColumns  

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

إنقاص التباعد الأفقي (يسبقه فتح النموذج أو التقرير في عرض التصميم وكذلك أمر اختيار كل الكائنات)  

كود:  

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

DoCmd.RunCommand acCmdHorizontalSpacingDecrease  

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

زيادة التباعد الأفقي (كالسابق)  

كود:  

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

DoCmd.RunCommand acCmdHorizontalSpacingIncrease  

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

مساواة التباعد الأفقي (كالسابق)  

كود:  

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

DoCmd.RunCommand acCmdHorizontalSpacingMakeEqual  

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

تحرير نص العرض للإرتباط التشعبي (يسبقه نقل التركيز لمربع النص المربتط بحقل من نوع ارتباط تشعبي)  

كود:  

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

DoCmd.RunCommand acCmdHyperlinkDisplayText  

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

إظهار مربع الحوار استيراد  

كود:  

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

DoCmd.RunCommand acCmdImport  

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

إظهار مربع حوار فهارس (يسبقه أمر فتح الجدول في عرض التصميم)  

كود:  

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

DoCmd.RunCommand acCmdIndexes  

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

ActiveXإدراج عنصر تحكم  

كود:  

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

DoCmd.RunCommand acCmdInsertActiveXControl  

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

إدراج تخطيط في تقرير (يسبقه أمر فتح التقرير في عرض التصميم)  

كود:  

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

DoCmd.RunCommand acCmdInsertChart  

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

إدراج ارتباط تشعبي (يسبقها فتح النموذج أو التقرير في عرض التصميم)  

كود:  

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

DoCmd.RunCommand acCmdInsertHyperlink  

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

إدراج عمود بحث في جدول (في العرض العادي)  

كود:  

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

DoCmd.RunCommand acCmdInsertLookupColumn  

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

إدراج عمود بحث في جدول (في عرض التصميم)  

كود:  

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

DoCmd.RunCommand acCmdInsertLookupField  

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

إدراج كائن في نموذج أو تقرير (في عرض التصميم)  

كود:  

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

DoCmd.RunCommand acCmdInsertObject  

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

أشرف خليل

شكراً لك استاذي محمد طاهر

شكراً لك استاذي أشرف خليل

هذا الكود يغير لون كل محتويات مربع النص عند كتابة كل حرف،كيف استطيع جعل كل حرف ياخذ لون معين عند كتابته بحيث تظهر حروف النص مختلفة الالوان. أنشأ مربع نص على النموذج وسمه Text1

وضع في خصائصه في حدث ( عند التغيير )

هذا الكود

_________________________________

Private Sub Text1_Change()

Static i As Integer

i = i + 1

Select Case i

Case 1

Text1.ForeColor = vbRed

Case 2

Text1.ForeColor = vbGreen

Case 3

Text1.ForeColor = vbBlue

Case 4

Text1.ForeColor = vbYellow

End Select

If i = 4 Then i = 0

End Sub

__________________________________

أيضا هذا الكود نفس الكود أعلاه ولكن يعتمد على جميع ألوان الشاشة وليس على أربعة الوان فقط . أنشأ مربع نص على النموذج وسمه Text1

وضع في خصائصه في حدث ( عند التغيير )

هذا الكود

_________________________________

Private Sub Text1_Change()

Randomize

r = Int(Rnd * 255) + 1

g = Int(Rnd * 255) + 1

b = Int(Rnd * 255) + 1

Text1.ForeColor = RGB(r, g, B)

End Sub

____________________________________

وشكرا للجميع

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

ضع في الوحدة النمطية العامة

_______________________

Public Function CountChar(StringToSearch As String, Character As String) As Integer

CountChar = 0

For i = 1 To Len(StringToSearch)

If Mid(StringToSearch, i, 1) = Character Then CountChar = CountChar + 1

Next i

End Function

_________________________

وضع في حدث ( عند النقر ) للزر الكود التالي

n = CountChar("الفريق العربي للبرمجة .. منتدى قواعد بيانات مايكروسوفت ", "م")

MsgBox n

___________________________

أضغط على الزر ليقوم البرنامج بعد حرف ( الميم ) في الجملة هذه

طريقة تجزئة جملة نصية عن طريق عرضها في رسالة

ضع هذا الكود في حدث ( عند النقر ) للزر

____________________________

Dim str As String

Dim x() As String

str = "الفريق##العربي##للبرمجة##منتدى##قواعد##البيانات##مايكروسوفت"

x() = Split(str, "##")

For Each y In x()

MsgBox y

Next

_____________________________

هذه طريقة تأجيل تنفيذ الكود لفترة معينة

ضع في الوحدة النمطية الخاصة بالنموذج الكود التالي

Public Sub Delay(HowLong As Date)

TempTime = DateAdd("s", HowLong, Now)

While TempTime > Now

DoEvents

Wend

End Sub

__________________

وضع في حدث ( عند النقر ) للزر الكود التالي

Delay 5

MsgBox "الفريق العربي للبرمجة ... منتدى قواعد البيانات مايكروسوفت"

...........................

سوف يتم عرض هذه الرسالة بعد خمس ثواني كما هو محدد في الكود

___________________________

وشكرا لكم

تم وضع رابط للموضوع مع باقي المشاركات التعليمية و الهامة

فى الموضوع المثبت

http://www.arabteam2000.com/vb/showthread....45744#post45744

الأخ سعودي و باقي الأخوة

أرجو طرح كل كود أو مجموعة أكواد ذات علاقة فى موضوع منفصل

حتي نتمكن من مناقشة الكود ، لتعم الفائدة ، و أيضا ليتمكن من يبجث عن الكود فى المستفبل أن يجده بسهولة

و سيكون من السهل الوصول للأكواد التي ستنقل الي الارشيف بعد انتهاء منناقشتها أو تجربتها

حيث أن فهرس الاكواد مستقل فى موضوع محتويات الارشيف المثبت

و حتي لا نضطر الي تثبيت الكثير من المواضيع

هذا رأيي و سننفذ ما ستتفقون عليه ، و مؤقتا الغيت التثبيت وو ضعت رابط للموضوع فى موضوع المشاركات التعليمية المثبت كحل وسط مثبت

و شكرا

مشرفنا الغالي : محمد طاهر

السلام عليكم

أنا رأيي من رأيك

وأشكرك على اهتمامك بمحاولة تنظيم المنتدى

فهذا العمل تشكر عليه ونتمنى لك الأجر والمثوبة

للرفع

____

وأرجو المشاركة بما لديكم

لا زلنا ننتظر مشاركة كبار هذا المنتدى للمشاركة

وكل من لديه علم بالأكواد

أخي العزيز

ألم تنفق علي جعل المشاركات فى مواضيع منفصلة

ليمكن مناقشتها ، و يستطيع من يبحث أن يجد طريقه اليها

نرجو منك القيام بذلك

جزاكم الله اااااااااااااااااااالف خير على الموضوع الرائع فعلاً

واتمنى المزيد لكي الجميع يستفيد

مع خالص تحياتي لكم