ما وظيفة هذا المديول

[ابو عبد الرحمن اشرف]

 

Option Compare Database

Option Explicit

 

Type OPENFILENAME

  lStructSize As Long

  hwndOwner As Long

  hInstance As Long

  lpstrFilter As String

  lpstrCustomFilter As String

  nMaxCustFilter As Long

  nFilterIndex As Long

  lpstrFile As String

  nMaxFile As Long

  lpstrFileTitle As String

  nMaxFileTitle As Long

  lpstrInitialDir As String

  lpstrTitle As String

  Flags As Long

  nFileOffset As Integer

  nFileExtension As Integer

  lpstrDefExt As String

  lCustData As Long

  lpfnHook As Long

  lpTemplateName As String

End Type

 

Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias _

  "GetOpenFileNameA" (OFN As OPENFILENAME) As Boolean

 

Private Declare Function GetSaveFileName Lib "comdlg32.dll" Alias _

  "GetSaveFileNameA" (OFN As OPENFILENAME) As Boolean

Private Const ALLFILES = "All files"

 

Function MakeFilterString(ParamArray varFilt() As Variant) As String

  Dim strFilter As String

  Dim intRes As Integer

  Dim intNum As Integer

 

  intNum = UBound(varFilt)

  If (intNum <> -1) Then

    For intRes = 0 To intNum

      strFilter = strFilter & varFilt(intRes) & vbNullChar

    Next

    If intNum Mod 2 = 0 Then

      strFilter = strFilter & "*.*" & vbNullChar

    End If

 

    strFilter = strFilter & vbNullChar

  End If

 

  MakeFilterString = strFilter

End Function

 

Private Sub InitOFN(OFN As OPENFILENAME)

  With OFN

    .hwndOwner = hWndAccessApp

    .hInstance = 0

    .lpstrCustomFilter = vbNullString

    .nMaxCustFilter = 0

    .lpfnHook = 0

    .lpTemplateName = 0

    .lCustData = 0

    .nMaxFile = 511

    .lpstrFileTitle = String(512, vbNullChar)

    .nMaxFileTitle = 511

    .lStructSize = Len(OFN)

    If .lpstrFilter = "" Then

      .lpstrFilter = MakeFilterString(ALLFILES)

    End If

    .lpstrFile = .lpstrFile & String(512 - Len(.lpstrFile), vbNullChar)

  End With

End Sub

 

Function OpenDialog(OFN As OPENFILENAME) As Boolean

  Dim intRes As Integer

  InitOFN OFN

  intRes = GetOpenFileName(OFN)

  If intRes Then

    With OFN

      .lpstrFile = Left$(.lpstrFile, InStr(.lpstrFile, vbNullChar) - 1)

    End With

  End If

  OpenDialog = intRes

End Function

 

 

 

ما وظيفية هذا المديول بارك الله فيكم

 

Private Sub HBypassKey_Click()
ChangeProperty "AllowBypassKey", DB_Boolean, False
End Sub