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

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

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

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

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

مشكور

اى خدمة