كل يوم كود

شكراً أخى Sx1

وعفواً على التأخير ... نظراً لظروف شغلى...

كود 7:

سؤال؟؟؟

هل تريد عمل شريط تقدمى بطريقة بسيطة جداً؟ دون اللجوء إلى أدوات Activex؟؟؟

تفضل هذا الكود

Private Sub CommandButton1_Click()
Dim i As Integer, x As Double
Dim num As Integer, start As Double
num = 150
x = 5555 / num
For i = 1 To num
'-------------------------------
start = Timer
Do While Timer < start + 0.02
DoEvents
Loop
'-------------------------------
TextBox1.Width = i * x
Next i
End Sub

Private Sub Form_Load()
TextBox1.Width = 0
TextBox1.BackColor = vbYellow  '(or the color of your choice)
End Sub

قم بالضغط على زر Go ولاحظ السهولة...

إلى اللقاء

HProgressBar.rar

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

مثال هايل ياأخ هاني .. وفقك الله

مشكووووووووووو يعطيك العافية

السلام عليكم

اخي الكريم

لا يمكن ان يمر اي عضو علي هذا المثال بدون ابداء الدهشة والاعجاب بالمثال الجميل والبسيط والممتاز

والاجدر بالاعجاب ليس المثال بل صاحب المثال

بارك الله فيك والي الامام

اخوك فى الله

شكرا جزاك الله خيرا وكثر من امثالك ونفع بعلمكم المسلمين

الاخ هاني

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

اما بعد

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

سؤالي كالتالي :

عندي استعلام جدولي بقيم متغيرة واريد ان انشئ تقرير تلقائي جدولي لهذا الاستعلام برمجيا (في زر امر مثلا)

وشكرا مقدما

شكرا لك على الموضوع الرائع

احيانا اقوم بفتح اكثر من نموذج

هل هناك كود يجعل النماذج عند الفتح على شريط المهام على شكل ايقونات؟

تحياتي لك

شكراً أخوانى على مروركم الكريم وأخص بالشكر كل من قام بالرد أو المرور على هذا الموضوع. وأخص بالشكر مشرفنا "Ekseer" فمروره بمثابة شرف لى أنا الصغير بينكم...

و عفواً.. أخوانى الأعضاء... من قوانين المنتدى عدم طرح أكثر من سؤال لا يخص بالموضوع...

لذلك أحب أن أنوه مرة أخرى على الهدف من فكرة المشاركة كما قلت

اقتباس

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

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

ونظراً لضيق الوقت معى... وحفاظاً على الاستمرارية.. سأقوم بوضع الأكواد واحد تلو الآخر بهدوء

لذلك حتى لا يتشعب الموضوع... ولتعم الفائدة أكثر لجميع الأعضاء...

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

وشكراً مرة أخرى.

كود 8

فى الحقيقة هو ليس كود...

وهو ليس مثال..

هو برنامج يوفر عليك عناء كتابة الكود..

بمعنى آخر اختيار الدالة أو المتغير من قائمة دون اللجوء إلى الكتابة؟؟

هذا هو رابط التحميل

بعد التنصيب:

هذا ملف تسجيل المكتبات

HRegVba.rar

قم بنسخ المرفق داخل مسار البرنامج "C:\Program Files\Code VBA"

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

عند تحرير التعليمات البرمجية ستجد Wizard من خلالها قم بتخصيص طريقة استخدامك المتكررة للأكواد

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

وعند اختيار زر Code-VB ستظهر هذه القائمة ومن ثم قم باختيار ما تريده من نمط لكتابة الكود

وشكراً وإلى اللقاء.

بداية مجهود كبير فى مساعدة الاخرين

والبرنامج جارى تحميلة ولكن اعتقد انه يحتاج لبعض التوضيح

وشكر جزيلا لك

السلام عليكم

شكرا لك على هذه الاكواد الجميلة وبارك الله فيك

بارك الله فيك اخي هانى عوض وجزاك خير الجزاء

حقاً بارك الله فيك

أود أن أعرب عن امتنانى وشكرى لكل من شارك أو قام بالمرور ...

شكراً جزيلاً أخوانى الأعضاء..

كود 9

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

كالتالى

Option Compare Database
Option Explicit
Dim X1 As Integer
Dim FormWidth As Integer

Private Sub CmdClose_Click()
	DoCmd.Close
End Sub

Private Sub Form_Open(Cancel As Integer)
	Me.TimerInterval = Frame6
End Sub

Private Sub Form_Resize()
	FormWidth = Me.Width
End Sub

Private Sub Form_Timer()
	ScrollingText = " " & ScrollingText
	If Len(ScrollingText) * 43 > ScrollingText.Width Then
		ScrollingText = "الفريق العربى للبرمجة"
	End If

	ScrollingTextBackward = Mid(ScrollingTextBackward, 2)
	If Len(ScrollingTextBackward) = 0 Or IsNull(ScrollingTextBackward) Then
		ScrollingTextBackward = Space(135) & "إهداء من أخوكم هانى عوض"
	End If
End Sub

Private Sub Frame6_AfterUpdate()
	Me.TimerInterval = Frame6
End Sub

أرجو أن يحوز هذا المثال على إعجابكم..

HScrollingText.rar

عفواً لتأخر الموضوع فترة... سأحاول إن شاء الله الفترة القادمة الافادة أكثر ...

كود 10

هذا الكود يقوم بإغلاق كافة النماذج المفتوحة فى القاعدة فى وقت واحد...

Public Function CloseAllForms(Optional ByVal ExceptName As String = vbNullString)
	Dim i As Integer
	Dim x As Integer

	x = Forms.Count - 1

	For i = x To 0 Step -1
		If Forms(i).Name <> ExceptName Then
			DoCmd.Close acForm, Forms(i).Name
		End If
	Next i
End Function
'ــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ
Private Sub CmdClose_Click()
	Call CloseAllForms
End Sub

قم بوضع هذا الكود داخل نموذج وعمل زر أمر باسم "CmdClose" وضع فيه هذا الكود ... وقم بفتح عدة نماذج فى نفس الوقت.. ولاحظ ما سيحدث..

أرجو أن يحوز على إعجابكم..

إلى اللقاء مع كود آخر..

جزاك الله خيراً

أخي الغالي / هاني عوض

تحية طيبة ،،،،،،،،

ما شاء الله عليك ... بارك الله فيك على مجهودك الكبير ووقتك الذي تبذله لهذا المنتدى

اللهم يجعلك نبراساً للعلم

مع أطيب تحياتي لك بالتوفيق

شكراً لكم أخوانى على هذه الردود الجميلة

وبالأخص أخى ومعلمى الكبير kamal alnahhal فنحن نقطة فى بحركم اللامتناهى...

بالنسبة لسؤال أخى الكريم Planner بخصوص filter by selection أو تصفية حسب التحديد فهى لها أكثر من طريقة لعملها بالكود.. وهذه الطرق موجودة بكثرة فى المنتدى .. فهناك طرق للبحث تعطيك النتيجة المطلوبة.. وإليك هذا الكود وساضعه مع الباقى نظراً لأنه يحتوى على فكرة....

كود 11

إن أسهل هذه الطرق للحصول على تصفية بالكود؛ استخدام الـ Constants الموجودة فى Object model كالتالى

DoCmd.RunCommand acCmdFilterBySelection

وعلى فكرة يمكن استبدال أى Constants بالقيمة الخاصة بها Value

أى ممكن أن يكتب بهذه الطريقة

DoCmd.RunCommand 208

حيث acCmdFilterBySelection قيمتها 208 وهكذا مع باقى Constants

وشكراً

بارك الله فيك اخي العزيز