الاستاذ مجدى
عزيزي الزائر / عزيزتي الزائرة يرجي التكرم بتسجبل الدخول اذا كنت عضو معنا
او التسجيل ان لم تكن عضو وترغب في الانضمام الي اسرة المنتدي
سنتشرف بتسجيلك
شكرا
ادارة المنتدي







 
الرئيسيةالأستاذ التعليماليوميةس .و .جبحـثالأعضاءضع التسجيلالمجموعاتدخولالتسجيل
سبحانك لا علم لنا إلا ما علمتنا أنك أنت العليم
عزيزى الزائر قم بالتسجيل بالمنتدى لمشاهدة باقى الاقسام المهمه
مع تحيات مجدى عبد المنعم محمود يونس ببورسعيد " مدير المنتدى "
أهلا بك من جديد يا زائر آخر زيارة لك كانت في
آخر عضو مسجل ahmed su فمرحبا به

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


شاطر | 
 

  فكرة الكشكول لكودات مهمة

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

عدد المساهمات : 723
تاريخ التسجيل : 22/02/2013
العمر : 63

مُساهمةموضوع: فكرة الكشكول لكودات مهمة   الإثنين مارس 04, 2013 5:15 am

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

للكتابة في الحقل باستخدام أحرف كبيرة

Private Sub VinNo_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub


Form Size

لتحديد حجم النموذج ، ارتفاع وعرض

Private Sub Form_Load()
Me.Form.InsideHeight = 6900
Me.Form.InsideWidth = 12700
End Sub


Record Source
لتحديد مصدر السجلات للنموذج في أي مرحلة ، عند التحميل ، بعد إنهاء عملية فرز أو بحث أو .....

Form.RecordSource = "SELECT tbl1ref08.* FROM tbl1ref08;"


أو يكون جملة

Form.RecordSource = "SELECT tbl1ref08.* FROM tbl1ref08" _
& " WHERE (((tbl1ref08.[strCenter]) Like '" & MyStr & "' & '*'));"



Doblecated recorde

في النموذج نختار رقم الفرع أو المعرض ثم نثبت السنة ثم نختار رقم الطلبية ، بعدها يبدأ عمل الكود (قبل التحديث أو بعد التحديث) ، فانا لا أريد تكرار السجل لرقم الطلبية لهذا الفرع لهذه السنة ، ثلاثة متلازمة ، هذا الكود يمنع التكرار .


Private Sub OrderID_AfterUpdate()
Dim rst As Recordset
Set rst = Me.RecordsetClone

rst.MoveFirst
Do Until rst.EOF
If rst!strOrder = Me!OrderID And rst!strCenter = Me!Center And rst!strYear = Me!Year Then

MsgBox " Doblecated recorde
", vbExclamation + vbMsgBoxRight + vbMsgBoxRtlReading, " Note;. "

Me.Undo
DoCmd.CancelEvent
Exit Do
End If
rst.MoveNext
Loop
rst.Close

End Sub



Conditional Formatting, Alert, Statistics

أريد ان انفذ التنسيق الشرطي عبر الكود ، بقيمة حقل او حقلين أو غيره ، بشرط معين او شروط اطبق نتيجة بصرية في النموذج ، من باب التنبيه أو الاحصاء.
الكود التالي يؤدي الغرض

Private Sub Form_Current()
If Me.strDate < Date Then
Me.ID.BackColor = vbRed
End If
End Sub




لإظهار تاريخ اليوم والوقت بدل اسم النموذج ، الكود التالي يفي بالغرض مع تثبيت الرقم 1000 في Timer Interval

Private Sub Form_Timer()
Me.Caption = " Today is " & "Date :" & " " & Format$(Now()), "dd mm yyyy " & " Time : " & "h:mm:ss AMPM"
End Sub



_________________
عندما تولد يابن ادم يؤذن فى أذنك من غير صلاة وعندما تموت يصلى عليك من غير أذان وكأن حياتك فى الدنيا ليست سوى الوقت الذى تقضيه بين الأذان والصلاة فلا تقضيهما فيما لاينفع
---((الله ناظرى الله سامعى الله مطلع علي))-

الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو http://magdi54.forumegypt.net
هاشم بركات



عدد المساهمات : 3
تاريخ التسجيل : 23/08/2014

مُساهمةموضوع: رد: فكرة الكشكول لكودات مهمة   الأحد أكتوبر 25, 2015 5:03 am

بارك الله فيك استاذ مجدي
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو
مجدى يونس
Admin
avatar

عدد المساهمات : 723
تاريخ التسجيل : 22/02/2013
العمر : 63

مُساهمةموضوع: رد: فكرة الكشكول لكودات مهمة   الثلاثاء أبريل 19, 2016 2:41 pm

وبارك فيك

_________________
عندما تولد يابن ادم يؤذن فى أذنك من غير صلاة وعندما تموت يصلى عليك من غير أذان وكأن حياتك فى الدنيا ليست سوى الوقت الذى تقضيه بين الأذان والصلاة فلا تقضيهما فيما لاينفع
---((الله ناظرى الله سامعى الله مطلع علي))-

الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو http://magdi54.forumegypt.net
 
فكرة الكشكول لكودات مهمة
استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
الاستاذ مجدى :: قسم مجموعة الاوفيس :: قسم الاكسيس-
انتقل الى: