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

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





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


شاطر
 

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

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

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

 فكرة الكشكول لكودات مهمة Empty
مُساهمةموضوع: فكرة الكشكول لكودات مهمة    فكرة الكشكول لكودات مهمة Avatarالإثنين مارس 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



_________________
 فكرة الكشكول لكودات مهمة Aaa11
الرجوع الى أعلى الصفحة اذهب الى الأسفل
http://magdi54.forumegypt.net
هاشم بركات



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

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

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

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

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

وبارك فيك

_________________
 فكرة الكشكول لكودات مهمة Aaa11
الرجوع الى أعلى الصفحة اذهب الى الأسفل
http://magdi54.forumegypt.net
hororab



عدد المساهمات : 10
تاريخ التسجيل : 29/12/2017

 فكرة الكشكول لكودات مهمة Empty
مُساهمةموضوع: رد: فكرة الكشكول لكودات مهمة    فكرة الكشكول لكودات مهمة Avatarالثلاثاء يوليو 23, 2019 1:56 am

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

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

 فكرة الكشكول لكودات مهمة Empty
مُساهمةموضوع: رد: فكرة الكشكول لكودات مهمة    فكرة الكشكول لكودات مهمة Avatarالإثنين يوليو 29, 2019 9:23 pm

اى خدمة

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

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