(اكسس) ( Qr Barcod الخطوط +انشاء تلقائي)+ Keybord لتهية مشروعك او نظامك تلقائية من المرفقات الى تثبيت + فك الضغط + اكسس 2025 + تحديد الصلاحيات المستخدمين مع تحديد تمكين اختصارات الكيبورد

[hanan_ms]

=============================================( صور + مرفق + فيديو )

Update: 🌹

< السابق >

1- شرح مبسط عن التثبيت + فك الضغط 

2- شرح مبسط عن اضافة مستخدمين وتحكم بالصلاحية بداله

 

<< الجديد >>

بعد انشاء نموذج او تقرير مباشر حدد تفعيل اختصارات الكيبورد 

 فقط لكل نموذج او تقرير اللصق كود 

الحدث عند المفتاح للاسفل

مع التأكد في نهائة الخصائص (مفتاح المعاينة ) = نعم 

الكود:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
 On Error Resume Next
Dim f As String

     '============================================('طباعة الفورم او التقارير X
If DLookup("[print_form]", "[Set_KeyBord]", "[Name_Form_Report] ='" & Me.Form.name & "'") = True Then
        If Shift = acCtrlMask And KeyCode = vbKeyP Then
        MsgBox " Not Allow Print Form And Sand Order Manger Cinter  غير مسموح لك طباعة الشاشة ", vbExclamation, " Close Ctrl + P " & Date
        KeyCode = 0
    End If
End If

    '===========================================(بحث واستبدال X
If DLookup("[Sarch_Fend_Change]", "[Set_KeyBord]", "[Name_Form_Report] ='" & Me.Form.name & "'") = True Then
      If Shift = acCtrlMask And KeyCode = vbKeyF Then
      KeyCode = 0
  End If
  
        If KeyCode = vbKeyShift And vbKeyF4 Then
        KeyCode = 0
  End If
End If

      '===========================================(تراجع وتوسيط X
If DLookup("[back and center]", "[Set_KeyBord]", "[Name_Form_Report] ='" & Me.Form.name & "'") = True Then
       If Shift = acCtrlMask And KeyCode = vbKeyF8 Then
       KeyCode = 0
  End If
End If
  
If DLookup("[Escape]", "[Set_KeyBord]") = True Then
        If KeyCode = vbKeyEscape Then
        KeyCode = 0
  End If
End If

      '===========================================(تحديد الكل وحذف X
If DLookup("[Selected All]", "[Set_KeyBord]", "[Name_Form_Report] ='" & Me.Form.name & "'") = True Then
       If Shift = acCtrlMask And KeyCode = vbKeyA Then
       KeyCode = 0
  End If
End If
  
       If KeyCode = vbKeyF2 Then
       KeyCode = 0
  End If

If DLookup("[Selected_Delete]", "[Set_KeyBord]", "[Name_Form_Report] ='" & Me.Form.name & "'") = True Then
       If KeyCode = vbKeyDelete Then
       KeyCode = 0
  End If
End If

      '===========================================(ادوات التحرير  X
If DLookup("[Cut]", "[Set_KeyBord]", "[Name_Form_Report] ='" & Me.Form.name & "'") = True Then
       If Shift = acCtrlMask And KeyCode = vbKeyX Then
       KeyCode = 0
  End If
End If

If DLookup("[Copy]", "[Set_KeyBord]", "[Name_Form_Report] ='" & Me.Form.name & "'") = True Then
       If Shift = acCtrlMask And KeyCode = vbKeyC Then
       KeyCode = 0
  End If
End If

If DLookup("[Past]", "[Set_KeyBord]", "[Name_Form_Report] ='" & Me.Form.name & "'") = True Then
       If Shift = acCtrlMask And KeyCode = vbKeyV Then
       KeyCode = 0
  End If
End If

      '===========================================(تحديد عامود وتحكم في الجدول المعروض  X
If DLookup("[Selected_dawon_tablet]", "[Set_KeyBord]", "[Name_Form_Report] ='" & Me.Form.name & "'") = True Then
       If Shift = acCtrlMask And KeyCode = vbKeyDown Then
       KeyCode = 0
  End If
End If

      '===========================================(اضافة بيانات وتحكم بتنقل الى جديد  X
If DLookup("[add_New_record]", "[Set_KeyBord]", "[Name_Form_Report] ='" & Me.Form.name & "'") = True Then
       If Shift = acCtrlMask And KeyCode = vbKeyTab Then
       KeyCode = 0
  End If
End If

If DLookup("[tab]", "[Set_KeyBord]", "[Name_Form_Report] ='" & Me.Form.name & "'") = True Then
       If KeyCode = vbKeyShift And vbKeyTab Then
       KeyCode = 0
  End If
End If
  
  '==============================================( Enter )
If DLookup("[Enter]", "[Set_KeyBord]", "[Name_Form_Report] ='" & Me.Form.name & "'") = True Then
      If KeyCode = vbKeyReturn Then
        MsgBox "hello"
    End If
End If

Select Case KeyCode


 End Select

End Sub

تابع الفيديو للتوضيح اسفل الموضوع + تحميل المرفق

☕

=============================================( مرفق + فيديو )

 

v2_1_Control_User_With_Keybord_Auto(LognIN)_Ms_Access.rar