زر امر

الحجازي طارق كتب:

بسم الله الرحمن الرحيم

هل يمكن عمل زر امر يقوم بعمل اختصار لنموذج على سطح المكتب وشكرا

نعم اخي الكريم يمكن عمل ذلك بكل سهوله واليك الكود الخاص بإنشاء اختصار للنموذج على سطح المكتب

Private Sub CmdShortCutForm_Click()
    Dim strName As String
    Dim strShortcut As String
    Dim intType As Integer
    Dim strMsg As String

    strName = "frm1"
    intType = acForm

  On Error GoTo ErrNewShortCut
  DoCmd.SelectObject intType, strName, True
  strShortcut = Environ("USERPROFILE") & "\DESKTOP" & "\" & "Shortcut to " & strName & ".maf"
  SendKeys strShortcut, False
  SendKeys "~", False
  DoCmd.RunCommand acCmdCreateShortcut
  MsgBox "  تم انشاء اختصار النموذج على سطح المكتب بنجاح  ", vbInformation, "الف الف مبروك  -  زهره"
  Exit Sub

ErrNewShortCut:
  Select Case Err
    Case 2501
      Exit Sub
    Case 2544
      strMsg = " لا يوجد نموذج بإسم   " & strName & "."
      MsgBox strMsg, vbCritical, "Entry Error"
      Exit Sub
    Case Else
      MsgBox Err & vbCrLf & vbCrLf & Err.Description, vbCritical, "Error Message"
      Exit Sub
   End Select
    End Sub

strName = frm1

في هذا السطر فقط قم بتغيير اسم النموذج frm1 الى اسم النموذج الخاص بك

بالتوفيق