ادراج التاريخ بمجرد الضغط على مفتاح *

بدأه sama202 في 2 مارس 2013 · 8 رد · 667 مشاهدة · في قواعد بيانات Microsoft Access

#12 مارس 2013 في 01:53 صاحب الموضوع

السلام عليكم اخوانى بالمنتدى

اناعندى مربع اسمه x5 الغرض منه بكتب فيه اى تاريخ
وعند وقوفى فى مربع تاريخ الصرف اضغط * " نجمة" فيتم ادراج التاريخ الموجود فى x5 فى تاريخ الصرف
ولكنى عند كتابة التاريخ فى مربع تاريخ الصرف بطريقه يدويه عاديه لايتم الادراج ويخرج من المربع فما الحل
هذا بالاضافة انه يتعارض مع الكود الخاص بعدم التكرار بمعنى انه عند كتابة تاريخ جديد يالنى هل تريد الحفظ ام لا
مع العلم هذا الكود معمول عند تكرار الشيك مع صاحب الحق مع البنك
واسف للاطاله.

za-تسويات البنك-UP2.zip

اقتباس

#22 مارس 2013 في 21:41

السلام عليكم

جرب التالي

في كود الفورم الملون

استبدل هذا الكود

Private Sub تاريخ_الصرف_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 106 Then Me.تاريخ_الصرف = x5
Me.الصرف = Me.تاريخ_الصرف
Me.Refresh
DoCmd.GoToControl "m"
End Sub

بهذا

Private Sub تاريخ_الصرف_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 106 Then
Me.تاريخ_الصرف = x5
Me.الصرف = Me.تاريخ_الصرف
Me.Refresh
DoCmd.GoToControl "m"
End If
End Sub

حسابي على الفيسبوك

حسابي على التويتـــر

صفحتي الشخصية في منتدى أوفيسنا

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

#33 مارس 2013 في 07:18

مشكور اخى على تعاونك

ولكن لسه مشكلة رسالة التكرار التى تظهر عند ادراج تاريخ الصرف

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

اقتباس

#43 مارس 2013 في 16:08

السلام عليكم

في بداية الكود (في الاعلى ) اعلن عن هذا المتغير Abu_Ahmed

الصق هذا السطر

Public Abu_Ahmed As Boolean

ثم استبدل كود قبل تحديث الفورم بهذا

Private Sub Form_BeforeUpdate(Cancel As Integer)
On Error Resume Next
If Abu_Ahmed Then Exit Sub
If DLookup("[رقم_الشيك]", "رئيسى", "[رقم_الشيك] = " & Me![رقم_الشيك] & " AND [البنك] = " & Me![البنك] & " AND [العملاء] = " & Me![العملاء]) Then
     If MsgBox(" هل تريد حفظ البيانات .. اضغط ( نعم ) للحفظ او ( لا ) للإلغاء ", vbCritical + vbYesNo, "تحذير") = vbNo Then
     DoCmd.CancelEvent
     Me.Undo
Else
DoCmd.Save
End If
End If
Exit Sub

If DCount("[رقم_الشيك]", "رئيسى", "[رقم_الشيك] = " & Me![رقم_الشيك] & " AND [البنك] = " & Me![البنك] & " AND [العملاء] = " & Me![العملاء]) > 0 Then
     If MsgBox(" هذا السجل موجود مسبقا ولا يمكن تكراره اضغط ( نعم ) للتكرار او ( لا ) للإلغاء ", vbCritical + vbYesNo, "تحذير") = vbNo Then
     DoCmd.CancelEvent
     Me.Undo
     Me![رقم_الشيك].SetFocus

End If
End If
End Sub

وكود مربع تاريخ الصرف بهذا

Private Sub تاريخ_الصرف_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 106 Then
Me.تاريخ_الصرف = x5
Me.الصرف = Me.تاريخ_الصرف
Abu_Ahmed = True
Me.Refresh
DoCmd.GoToControl "m"
Abu_Ahmed = False
End If
End Sub

حسابي على الفيسبوك

حسابي على التويتـــر

صفحتي الشخصية في منتدى أوفيسنا

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