اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

ارجو المساعده فى طريقة اضافة الملفات والمجلدات برقم السجل


الردود الموصى بها

السلام عليكم ورحمة الله وبركاته

 

قمت بعمل قاعدة بيانات لشؤن الموظفين ومحتاج لمساعده فى فى بعض المسائل :

 

-- اضافة بحث مخصص داخل فورم بيانات الموظفين واسمه Emp Personnel Detail بحيث يتم البحث بواسطة ( اسم الموظف - رقم الموظف ـ رقم الباسبور ـ رقم الاقامة ـ رقم التليفون ) بحيث يتم البحث باى حقل من الحقول المذكوره

 

---- فى نفس الشاشة عايز اضيف خاصية انشاء مجلد لملفات الموظف واضافة الملفات داخل المجلد وعرض الملفات الخاصة بكل موظف داخل نفس الفورم على هيئة لست

 

بتوضيح اكتر (( انا عندى ملفات عايز احفظها لكل موظف مثل صورة الجواز - صورة الاقامة - عقد العمل - صورة وثيقة التامين ) كلها ملفات بى دى اف او غيرها المطلوب انى اقدر اضيف لكل موظف كافة الملفات الخاصة بيه وفى نفس الوقت اقدر اشوفها من داخل قاعدة بيانات ولكن مش ارفقها فى القاعده تكون فى مجلد والمجلد ينشاء برقم الموظف

 

---

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

----

 

وحجم الداتا بيز 12 ميجا مش عارف ليه ياريت حد يشوف ليه حجمها كده

 

للتحميل من هنا

 

وشاكر جدااا تعاونكم معى مرفق لكم قاعدة البيانات

 

رابط هذا التعليق
شارك

يعنى انا  مثلا عندى للموظف اكتر من ملف عايز من داخل قاعدة البيانات ا وبالتحديد من داخل ملف الموظف اضيف مجلد يضاف برقم الموظف فى القاعده

 

وبعدين اضيف اى عدد من الملفات من داخل القاعده بحيث اقدر استعرض ملفات الموظف من داخل القاعده يعنى لما اكون عايز اشوف ملفات الموظف اضغط على استعرض ملفاته يفتحلى الفولدر الخاص بالموظف نفسه  دى الفكره اللى عندي

رابط هذا التعليق
شارك

حدد نمط تسمية المجلد ... !!

 

............

 

شكراً لإستجابتك لتعريب الإسم

 

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

 

وإخوتنا معنا يسعون في حاجتنا ...

 

.........

  • Like 1
رابط هذا التعليق
شارك

في مجلد التطبيق ننشيئ مجلد فارغ باسم Emp_Files

 

نضيف مريع نص مخفي للنموذج نسميه txtloc

 

في حدث (في الحالي للنموذج ) نضع الكود التالي

 

 

Me.txtloc = CurrentProject.Path & "\Emp_Files"

 
رابط هذا التعليق
شارك

ننشيئ زر أمر E_File في النموذج Emp Data ، وخلف حدث عند الضغط يتم وضع الكود


 


Private Sub E_File_Click()
On Error GoTo Err_E_File_Click

Dim fs As Object
Dim a As Object

    Set fs = CreateObject("Scripting.FileSystemObject")
        If fs.FolderExists(Me.txtloc & "\" & Me.EMP_NO) = True Then
           ' MsgBox "Folder exists"
            Call fHandleFile(Nz(Me.txtloc & "\" & Me.EMP_NO, ""), 1)
         Else
         If MsgBox("Folder Not Found , A New Folder Will Be Created For The Employee ", vbOKCancel) = vbCancel Then
         Exit Sub
         Else
               Set a = fs.Createfolder(Me.txtloc & "\" & Me.EMP_NO)
            'MsgBox "Folder was created"
            Call fHandleFile(Nz(Me.txtloc & "\" & Me.EMP_NO, ""), 1)
         End If
         End If

Exit_E_File_Click:
    Exit Sub

Err_E_File_Click:
    MsgBox Err.Description
    Resume Exit_E_File_Click
    
End Sub

 
رابط هذا التعليق
شارك

ننشيئ وحدة نمطية جديدة ، وننسخ اليها

 

 

Option Compare Database

Private Declare Function apiShellExecute Lib "shell32.dll" _
    Alias "ShellExecuteA" _
    (ByVal hwnd As Long, _
    ByVal lpOperation As String, _
    ByVal lpFile As String, _
    ByVal lpParameters As String, _
    ByVal lpDirectory As String, _
    ByVal nShowCmd As Long) _
    As Long

'***App Window Constants***
Public Const WIN_NORMAL = 1         'Open Normal
Public Const WIN_MAX = 2            'Open Maximized
Public Const WIN_MIN = 3            'Open Minimized

'***Error Codes***
Private Const ERROR_SUCCESS = 32&
Private Const ERROR_NO_ASSOC = 31&
Private Const ERROR_OUT_OF_MEM = 0&
Private Const ERROR_FILE_NOT_FOUND = 2&
Private Const ERROR_PATH_NOT_FOUND = 3&
Private Const ERROR_BAD_FORMAT = 11&

Function fHandleFile(stFile As String, lShowHow As Long)
Dim lRet As Long, varTaskID As Variant
Dim stRet As String
    'First try ShellExecute
    lRet = apiShellExecute(hWndAccessApp, vbNullString, _
            stFile, vbNullString, vbNullString, lShowHow)
            
    If lRet > ERROR_SUCCESS Then
        stRet = vbNullString
        lRet = -1
    Else
        Select Case lRet
            Case ERROR_NO_ASSOC:
                'Try the OpenWith dialog
                varTaskID = Shell("rundll32.exe shell32.dll,OpenAs_RunDLL " _
                        & stFile, WIN_NORMAL)
                lRet = (varTaskID <> 0)
            Case ERROR_OUT_OF_MEM:
                stRet = "Error: Out of Memory/Resources. Couldn't execute!"
            Case ERROR_FILE_NOT_FOUND:
                stRet = "Error: File not found.  Couldn't Execute!"
            Case ERROR_PATH_NOT_FOUND:
                stRet = "Error: Path not found. Couldn't Execute!"
            Case ERROR_BAD_FORMAT:
                stRet = "Error:  Bad File Format. Couldn't Execute!"
            Case Else:
        End Select
    End If
    fHandleFile = lRet & _
                IIf(stRet = "", vbNullString, ", " & stRet)
End Function


 
رابط هذا التعليق
شارك

جزاك الله خير تمام جربتها واشتغلت تمام  تسلم ايديك وربنا ان شاء الله يباركلك فى علمك وفى صحتك 

 

اخى الغالى ليا سؤال تانى هل ينفع من ضمن الملفات اللى هاضيفها للموظف يكون من ضمنها الصورة بس الصورة تظهر فى ملف الموظف فى قاعدة البيانات بمعنى :

 

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

رابط هذا التعليق
شارك

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

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information