وضاح النوبه

23 ساعات مضت, Shivan Rekany said:

اليك هذا
في حدث عند فتح النموذج اكتب هذا
 

4 ساعات مضت, وضاح النوبه said:

 اخ شفان ماضبط معي ممكن نماذج يوضحكيف افتح النماذج بالارقام ونشكرك والقايمين والمشاركين

4 ساعات مضت, وضاح النوبه said:

 اخ شفان ماضبط معي ممكن نماذج يوضحكيف افتح النماذج بالارقام ونشكرك والقايمين والمشاركين

Private Sub Form_Open(Cancel As Integer)
Me.KeyPreview = True
End Sub

وفي حدث عند الضغط الازرار 
اكتب هذا
 

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 49 Then
MsgBox "مرحبا"
End If
End Sub

واضغط على مفتاح شيفت مع رقم واحد راح يظهر مسج بوكس بيقولك مرحبا
وتكدر بدل مسج بوكس تنطي اي كود فيها
48 = 0

49 = 1

50 = 2

51 = 3

52 = 4

53 = 5

54 = 6

55 = 7

56 = 8

57 = 9

 

 اخ شفان ماضبط معي ممكن نماذج يوضحكيف افتح النماذج بالارقام ونشكرك والقايمين والمشاركين

واذا كانت مفاتيح ارقام مثلا رقم 1 يفتح فورم كذا ومفتاح 2 يفتح فورم كذا

ماهي طريقه فتح النماذج من الكيبورد بالارقام مثلا رقم 1 يفتح نموذج فاتوره ورقم2 يفتح مرتجع وهكذا وشكرا للقائمين على الموقع والمشاركين

 

 

السلام عليكم

 

تفضل أخي

 

الكود اصبح:

Option Compare Database
Public Ok_to_Print As Integer

Private Sub Form_BeforeUpdate(Cancel As Integer)
'On Error Resume Next

Beep
    If Ok_to_Print = 0 Then
        If MsgBox("هل ترغب بحفظ الفاتوره؟" & vbCrLf & _
                  "أضغط (نعـم) للحفظ  ،  أو (لا) لإلغاء الأمر .", _
                  vbInformation + vbMsgBoxRight + vbOKCancel + vbDefaultButton2, _
                  "تنبيـــه : تاكيد") = vbOK Then
    
            Ok_to_Print = 1
    
        Else
            Cancel = True
            Me.Undo
            'DoCmd.RunCommand acCmdUndo
        End If
    End If
    
End Sub

Private Sub أمر67_Click()

    Call Form_BeforeUpdate(True)
    
    If Ok_to_Print = 1 Then
    
        DoCmd.RunCommand acCmdSaveRecord
        DoCmd.OpenReport "rpt_Cash_invoice", acViewPreview, , "[رقم السند]=" & Me.[رقم السند]
        
        Ok_to_Print = 0
    End If
    
End Sub

 

جعفر

568.احتاج مساعدتكم اخواني.accdb.zip

شكرا اخ جعفر

 

السلام عليكم

 

تفضل أخي

 

الكود اصبح:

Option Compare Database
Public Ok_to_Print As Integer

Private Sub Form_BeforeUpdate(Cancel As Integer)
'On Error Resume Next

Beep
    If Ok_to_Print = 0 Then
        If MsgBox("هل ترغب بحفظ الفاتوره؟" & vbCrLf & _
                  "أضغط (نعـم) للحفظ  ،  أو (لا) لإلغاء الأمر .", _
                  vbInformation + vbMsgBoxRight + vbOKCancel + vbDefaultButton2, _
                  "تنبيـــه : تاكيد") = vbOK Then
    
            Ok_to_Print = 1
    
        Else
            Cancel = True
            Me.Undo
            'DoCmd.RunCommand acCmdUndo
        End If
    End If
    
End Sub

Private Sub أمر67_Click()

    Call Form_BeforeUpdate(True)
    
    If Ok_to_Print = 1 Then
    
        DoCmd.RunCommand acCmdSaveRecord
        DoCmd.OpenReport "rpt_Cash_invoice", acViewPreview, , "[رقم السند]=" & Me.[رقم السند]
        
        Ok_to_Print = 0
    End If
    
End Sub

 

جعفر

568.احتاج مساعدتكم اخواني.accdb.zip

شكرا اخ جعفر

 

مشكوووووووووووووووووررررررررررررررررر اخي

شرح عمل التعديل على فاتوره بيع او شراء

ممكن شباب الله يحفكم طريقه عمل المرتجعات بالاكسس احد يعطينا نموذج يوضح فيه ولكم جزيل الشكر

السلام عليكم اخواني لو تكرمتو  ممكن احد يكمل لي التعديل في الفواتير بالملف المرفق وجزاكم الله خير

الفواتير.rar

ممكن شرح طريقه تعطيل مفتاح  بالاكس alt-F4

في ‏١١‏/‏٠٤‏/‏١٤٣٨ at 17:23, Shivan Rekany said:

الان انا بستخدم موبايل

غدا ان شاء الله راح اعمل على القاعدة البيانات

اذا ما سبقني احد

انتظرني

في ‏١١‏/‏٠٤‏/‏١٤٣٨ at 17:23, Shivan Rekany said:

الان انا بستخدم موبايل

غدا ان شاء الله راح اعمل على القاعدة البيانات

اذا ما سبقني احد

انتظرني

اخواني الكرام اريد كود بعد الحفظ التلقائئ بشرط بعدم ظهور رساله وأين اضع الكود بالخصائص

في ‏١١‏/‏٠٤‏/‏١٤٣٨ at 17:23, Shivan Rekany said:

الان انا بستخدم موبايل

غدا ان شاء الله راح اعمل على القاعدة البيانات

اذا ما سبقني احد

انتظرني

اخي الله يجزيك خير حاولت ساعدنا الله  يحفظك رفعت اليك الفاتوره اعمل لي زر يكون يحفظ ويطبع ولكن الطباعه تكون بعد الحفظ تجي الرساله هل تريد الطباعه أولا اذا فرضا قلت لا يكون حفظ وهذا المطلوب وجزاك الله خير

والله ياخي ما دريت كيف اشكرك انك رجل طيب وقفت معائ وهذا من طيبك ربنا يخليك

2 ساعات مضت, Shivan Rekany said:

الان انا بستخدم موبايل

غدا ان شاء الله راح اعمل على القاعدة البيانات

اذا ما سبقني احد

انتظرني

اخي الله يجزيك خير حاولت ساعدنا الله  يحفظك رفعت اليك الفاتوره اعمل لي زر يكون يحفظ ويطبع ولكن الطباعه تكون بعد الحفظ تجي الرساله هل تريد الطباعه أولا اذا فرضا قلت لا يكون حفظ وهذا المطلوب وجزاك الله خير

جزاك الله خير اخي والله ما دريت كيف اشكرك

اخواني اسلام عليكم عندي مشكله في الحفظ والطباعه اريد تعديل النموذج بالمرفقات ان يحفظ وثم تجي رساله بعد ما يتم الحفظ هل تريد الطباعه وانا اطبع او لا ولكم اجمل تحيه

احتاج مساعدتكم اخواني.rar

اخي الله يجزيك خير حاولت ساعدنا الله  يحفظك رفعت اليك الفاتوره اعمل لي زر يكون يحفظ ويطبع ولكن الطباعه تكون بعد الحفظ تجي الرساله هل تريد الطباعه أولا اذا فرضا قلت لا يكون حفظ وهذا المطلوب وجزاك الله خير

اخواني الكرام في اخ جزاه الله خير ارسل لي الكود وانا كوني مبتد ممكن شرح الكود التالي

If MsgBox("هل تريد طباعة الفاتورة؟", vbYesNo) = vbYes Then DoCmd.OpenReport "p", acViewNormal, , "[id]=forms!from_data!id" DoCmd.Save Else Exit Sub End If End Sub

احتاج مساعدتكم اخواني.rar

اخي الله يجزيك خير حاولت ساعدنا الله  يحفظك رفعت اليك الفاتوره اعمل لي زر يكون يحفظ ويطبع ولكن الطباعه تكون بعد الحفظ تجي الرساله هل تريد الطباعه أولا اذا فرضا قلت لا يكون حفظ وهذا المطلوب وجزاك الله خير

Database5.rar

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