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

[بسيط وكريم]

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

 

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

 

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

 

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

 

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

 

---

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

----

 

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

 

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

 

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

 

[أبو آدم]

أولاً : دعوة طيبة لطيب

http://www.officena.net/ib/index.php?showannouncement=21&f=89

 

.........

 

ثانياً : دعوة للإلتزام

http://www.officena.net/Tips/Questions.htm

 

 

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

[أبو آدم]

سنلتزم بالرّد على الموضوع المحدد بالعنوان ...  

 اضافة الملفات والمجلدات برقم السجل

 

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

[أبو آدم]

تم علاج تضخم قاعدة البيانات ، وتم إنشاء قاعدة جديدة بالمحتويات

 

مرفق التطبيق بحجم 1 ميجا

 

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

New Employee DataBase 2007.rar

[أبو آدم]

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

 

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

[بسيط وكريم]

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

 

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

[أبو آدم]

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

 

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

 

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

 

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

 

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

 

.........

[بسيط وكريم]

يعطيكم العافية والله على مجهودكم وتعبكم معايا

[بسيط وكريم]

مازلت فى الانتظار

[أبو آدم]

و أنا ما زلت أتحين فرصة ... وبعض وقت فراغ لأجهز لك التطبيق

 

أو أن يسبقنا أحد الإخوة بمساهمة طيبة

 

..........

[أبو آدم]

في مجلد التطبيق ننشيئ مجلد فارغ باسم 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


 

[أبو آدم]

بإنتظار ردّك وتطبيقك ...

 

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

تم تطبيق الروتين و الكودات بأعلاه وهي تعمل بشكل ممتاز

Routine and codes have been tested ... working perfectly

...........

[بسيط وكريم]

جارى التجربه

[بسيط وكريم]

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

 

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

 

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

[بسيط وكريم]

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

[أبو آدم]

قيد النظر ....

 

.........

[أبو آدم]

انظر الرابط .... http://www.officena.net/ib/index.php?showtopic=45856

لاستكمال الحوار