حسين العربى

استاذي الفاضل sandanet لو امكن التعديل علي كود سحب عدة صور من الكمبيوتر قص وادراجها في المسار المحدد في مربع نص مسار الفولدر التعديل الي انا عاوزه اني فولدر scanner ما يكونش في نفس مسار المجلد يكون في اي مكان في الكمبيوتر خوفا من عبث المستخدم او حذف البرنامج واشياء اخري ليست في الحسبان تحديد المسار من خلال مربع نص ان امكن بيحث لو تم تغير مكان الفولدر است السطر المعلم باللون الاحمر هو المطلوب التعديل عليه Dim strFileNames As Variant Dim rst As DAO.Recordset If Dir(Me.lenk_fiel, vbDirectory) = "" Then MsgBox "ÇáãÓÇÑ" & vbCrLf & Me.lenk_fiel & vbCrLf & _ "ÛíÑ ãæÌæÏ Ýí ÇáßãÈíæÊÑ" & vbCrLf & _ "Sorry, this folder does not exist" Exit Sub End If 'Call creat_folder Dim sFolder sFolder = Application.CurrentProject.Path & "\scanner" & "\" Dim Msg, Style, Response Msg = "ÓíÊã äÓÎ ÌãíÚ ÇáãáÝÇÊ åá ÊÑíÏ ÇáÇÓÊãÑÇÑ¿¿ " & vbCrLf & _ "ÇÐÇ ßäÊ ÊÑíÏ ÇÎÊíÇÑ ãáÝÇÊ ãÚíäÉ ãä ÇáßãÈíæÊÑ ÝÞØ ÇÖÛØ áÇ" Style = vbYesNo + vbCritical + vbDefaultButton2 Response = MsgBox(Msg, Style, Title, Help, Ctxt) If Response = vbYes Then sFolder = Replace(sFolder, "\\", "\") Set rst = Me.Table2.Form.RecordsetClone StrFile = Dir$(sFolder & "*.*") Do While Len(StrFile) > 0 FileExt = Mid(StrFile, InStrRev(StrFile, ".") + 1) File_Path_Name = Replace(StrFile, "\\", "\") File_Name = Replace(File_Path_Name, sFolder, "") Name sFolder & File_Path_Name As Me.lenk_fiel & "\" & Format(Now(), "yyyy-mm-dd HH.mm.ss") & "_" & File_Name rst.AddNew rst!ImagePath = Me.lenk_fiel & "\" & Format(Now(), "yyyy-mm-dd HH.mm.ss") & "_" & File_Name rst!File_Check = 2 rst!emp_id = Me.ITEM_NO rst.Update StrFile = Dir$() Loop Else strFilter = "All Files " & _ "(*.*)" & vbNullChar & _ "*.*" & vbNullChar & vbNullChar strFileNames = apiBrowseFiles("Select a File, OR Multiple Files", sFolder, , strFilter) If UBound(strFileNames) = 0 Then Exit Sub End If SelectedFiles = UBound(strFileNames) sFolder = strFileNames(1) Do While Right(sFolder, 1) <> "\" sFolder = Left(sFolder, Len(sFolder) - 1) Loop sFolder = Replace(sFolder, "\\", "\") Set rst = Me.Table2.Form.RecordsetClone For i = 1 To UBound(strFileNames) FileExt = Right(strFileNames(i), 3) File_Path_Name = Replace(strFileNames(i), "\\", "\") File_Name = Replace(File_Path_Name, sFolder, "") FileCopy File_Path_Name, Me.lenk_fiel & "\" & Format(Now(), "yyyy-mm-dd HH.mm.ss") & "_" & File_Name Kill File_Path_Name rst.AddNew rst!ImagePath = Me.lenk_fiel & "\" & Format(Now(), "yyyy-mm-dd HH.mm.ss") & "_" & File_Name rst!File_Check = 2 rst!emp_id = Me.ITEM_NO rst.Update Next i End If وجزاكم الله خيرا

السلام عليكم ورحمة الله وبركاته اخواني اعضاء ومشرفي المنتدي الكرام اقد لكم اليوم هديه برنامجي المتواضع الخاص بارشفة الصادر والوارد ويجع الفضل في هذا البرنامج للمولي عز وجل / ثم لا ستاذي الفاضل sandanet الذ ي بذل مجهود كبير جدا حتي وصلت به الي هذه الدرجه والشكر ايضا لاستاذي الفاضل محمد سلامه / واستاذي الفاضل ابا جودي / ولاستاذنا الكبير ومعلمنا الفاضل jjafferr الذي شرفنا بلمساته الفنيه الجميله الف شكر لكم استاتذتي الافاض لكم مني كل الشكر والتقدير وجعلكم الله عونا لكل محتاج للعلم وبارك الله لكم وعليكم وجراكم خير الجزاء https://drive.google.com/open?id=0B5oTVOnhU-rrTnJQRDFyNElNSDg

وانا اضم صوتي لصوت اخي الفاضلat_aziz البرنامج لا يعمل عندي رغم اتباع كل الخطوات

السلام عليكم ورحمة الله وبركاته اخواني اعضاء ومشرفي المنتدي الكرام اليكم نسخه من برنامج الصادر والوارد مع صلاحيات طبعا البرنامج ينقه بعض الاشياء سوف اكملها بأذن الله وارفق لكم اخر تعديل اريد تقييمكم للبرنامج وملاحظتكم اليوزر ADMIN الباسورد 1982 واشكر كل من قام بمساعدتي في هذا البرنامج وله مني جزيل الشكر وانشاء الله لما ارفق اخر تعديل سوف اذكر اسماء كل من قام بمساعدتي في البرنامج برنامج ارشيف صادر وارد.rar

الف شكر اخواني تم التوصل الي حل الحمدلله

الف شكر استاذي الفاضل جزالك الله خير وزادك الله من علمه ( بالفعل هذا هو المطلوب ) استاذتي الافاضل هذا الكود Dim x As FileDialog Set x = Application.FileDialog(msoFileDialogFilePicker) x.AllowMultiSelect = True If x.Show = -1 Then For i = 1 To x.SelectedItems.Count CurrentDb.Execute "insert into [table2]([emp_id],[ImagePath]) values(" & ITEM_NO & ",'" & x.SelectedItems(i) & "')" Next i Me.Table2.Requery End If ياأخذ الصور من الكمبيوتر ويدرجها في النموذج الفرعي اريد تعديل عليه بحيث ينسخ الصوره الي المسار المحدد في مربع النص المسار ويعطيها تاريخ اليوم والوقت وشكرا لكم

لوتكرمتوا اساتذتي الافاضل ممكن تعديل بسيط علي المرفق https://www.officena.net/ib/applications/core/interface/file/attachment.php?id=127678 بعد انشاء فولدر جديد برقم الوارد يتم جلب مسار الفولدر الجديد في مربع نص المسار ليتم حفظ الصور فيه بدل ما اروح ادور علي الفولد واجب مساره يدويا هيكون في تعب علي المستخدم وممكن بالخطأ يجلب مسار فلودر غير لرقم وارد غير

الف شكر استاذ الفاضل ابا جودي ظبط عندي الف الف شكر

الف شكر استاذ الفاضل jjafferr علي مروك الطيب واهتمامك بمشاركتي بس انا كنت عاوز تعديل في الكود ولاكن الحين ظبط معاي الف شكر

استاذي الفاضل المحترم ابا جودي جزاك الله خيرا علي اهتمام وهذا من كرم اخلاق وطيب قلبك ( بارك الله فيك كود جميل جدا ) ولاكن هذا ليس طلبي / طلبي موجود في المرفق الموجود في المشاركه الاولي المرفق اسمه عمل فولدر او مجلد بتاريخ اليوم.rar به كود جميل جدا بياخد رقم الوارد واسم الفولدر هل هو صادر ام وارد من مربع نص بينشأه بتاريخ اليوم وبيخاد مسار انشاء الفولدر من مربع نص المسار بس مشكله الكود الي داخل المرفق في زر امر انشاء فولدر اني عاوزه يجلب لي المسار بعد عمل الفولدر بدل ما ني احدد له المسار

up

الف شكر استاذي الفاضل ظبط معي

استاذي الفاضل تم تجربة المرفق سحب الصور من الفولد بدون فتح قوائم عند سحب عدة صور يسحب تما م اما عند الضغط علي زر ( لا ) واختيار صوره واحده تظهر هذه الرسالة

السلام عليكم ورحمة الله وبركاته اخواني واساتذتي اعضاء ومشرفي المنتدي الكرام كل عام وانتم بخير سوالي خاص ببرنامج الصادر والوارد وهو انا عندي فولدر اسمه وارد. في ال D لما ادخل الي شاشة عمل وارد. واحط رقم الوارد وباقي البيانات. يبقي في زر امر عندي ينشأ لي فولد داخل فولدر الوارد ويسميه برقم الورد الموجود في مربع النص رقم الوارد ويعطيه تاريخ اليوم لو امكن. بعد ذلك يجلب مساره الي مربع نص مسار الفولد الي هو اسمه برقم الورد وتاريخ اليوم. طبعا المسار هيكون كده مثلا D:/وارد/رقم الوار مثلا 1 بعد كده تاريخ اليوم يجلبه في مربع نص مسار الفولدر ويجلب اسم الفولد في اسم الفولدر وجزاك الله خيرا اليكم نسخة من البرنامج نظام الصادر والوار ليتضح الامر طباع امن خلا ل بحثي في المنتدي وجد مثال مطبق عليه ما اريد بالظبط ولاكن ينقصه شي بسيط هو انه مايدرج المسار لحاله لازم المستخدم هو الي يحدد المسار اولا بعدين يضغط علي زر انشاء فولدر وارد اليكم المرفق للنظر اليه وتعديل مايلزم تعديله نظام الصادر والوارد.rar عمل فولدر او مجلد بتاريخ اليوم.rar

بارك الله فيك استاذي الفاضل وجزاك الله خيرا والف شكر لاستاذنا الفاضل ومعلمنا الاستاذ الكبير @jjafferr هذا هو المطلوب بال ظبط وبالنسبه للمو ضوع الذي اعتزر عن الرد عليه سوف افتح موضوع جدي واسميه برنامج صادر وارد وادرج الرابط هنا وهذا هو رابط الموضوع الجديد

استاذي الفاضل الظاهر لم يصلك فكرة ما اطلب او لم تقرا طلبي جيدا علي العموم انا هشرح بتفصيل انا عندي فولدر اسمه وارد. في ال D لما ادخل الي شاشة عمل وارد. واحط رقم الوارد وباقي البيانات. يبقي في زر امر عندي ينشأ لي فولد داخل فولدر الوارد ويسميه برقم الورد الموجود في مربع النص رقم الوارد ويعطيه تاريخ اليوم لو امكن. بعد ذلك يجلب لي مسار الفولد الي هو اسمه برقم الورد وتاريخ اليوم. طبعا المسار هيكون كده مثلا D:/وارد/رقم الوار مثلا 1 بعد كده تاريخ اليوم يجلبه في مربع نص مسار الفولدر ويجلب اسم الفولد في اسم الفولدر وجزاك الله خيرا

استاذي الفضل الف شكر بالنسبه للتجربه فانا رديت علي حضرتك من امس وقلت لحضرتك انه شغال وتمام عندي بس المشكله انك لما تلغي امر سكان لايقبل الموضوع ده انا بناقش فيه صادر ووارد. وده اخر كلام

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

استاذي الفاضل sandanet المرفق يعمل بكفائة وطبقته ببرنامجي الحين بقي عندي سحب من خلال الاسكان وعندي بديل اخر وهو زر سحب عدة صور من الكمبيوتر بصراحه استاذي الفاضل يعطيك العافيه وانا اشهد لك شهاده من كل قلبي علي صبرك معي في هذا المشاركه الفريده من نوعها وعن قريب سوف ارفع برنامجين برنامج صادر وارد وبرنامج ارشفه شئون موظفين بس اكتشفت شئ غريب عند الحفظ في نموذج الادخال انا عملت مرفق تجربه لأريه لحضراتكم كمثال للمشكلة الي اكتشفتها طبعا عند الضغط علي زر الحفظ انا حاطط كود به شرط داخل الزر لمربع نص رقم الوارد اذا كان خالي يظهر رساله ولا يحفظ عندما تضغط علي الرساله تختفي البيانات من السجلات ( اليكم المرفق ( وجربوا بنفسكم ملحوظه دع مربع نص رقم الوارد خالي واضغط علي حفظ قاعدة بيانات1.rar

الف شكر استاذي الفاضل وجاري التجربه اليوم بأن الله وسوف اخبرك بالنتيجه

تم الوصول الي حل والكود هيكون كلاتي On Error Resume Next If Len(Dir$(ImagePath)) > 0 Then Kill (ImagePath.value) Else MsgBox "الفيل غير موجود" Undo Exit Sub End If ''''''''' Dim Msg, Style, Response DoCmd.SetWarnings False Msg = "هل انت متأكد من عمليه الحذف " & vbCrLf & _ "Do you want to continue ?" Style = vbYesNo + vbCritical + vbDefaultButton2 Response = MsgBox(Msg, Style, Title, Help, Ctxt) If Response = vbYes Then DoCmd.RunCommand acCmdDeleteRecord End If DoCmd.SetWarnings True طبعا الكود بيروح يشك علي الفيل موجد ام لا اذا كان غي موجود يعطي رسالة الفيل غير موجود اذا كان موجود بيحذفه

استاذتي الافاضل ممكن اعدل علي كود حذف الصور من النموذج الفرعي بحيث عند حذف صوره يتم حذفها من الفولدر وليس من الجدول فقط On Error Resume Next Dim Msg, Style, Response DoCmd.SetWarnings False Msg = "هل انت متأكد من عملية الحذف " & vbCrLf & _ "Do you want to continue ?" Style = vbYesNo + vbCritical + vbDefaultButton2 Response = MsgBox(Msg, Style, Title, Help, Ctxt) If Response = vbYes Then DoCmd.RunCommand acCmdDeleteRecord End If DoCmd.SetWarnings True نظام الصادر والوارد.rar

UP

الف شكر استاذي الفاضل sandanet علي جهودك العظيمه طبعا انا عملت موضوع جديد باسم ارشيف شئون موظفين بناء علي طلب الاستاذ ابا جودي واحتراما لقواعد المنتدي وسوف اطرح اخر سؤال في هذه المشاركة وقد طرحته من قبل وهو ينفع نعمل رز امر خاص للسحب من الفولدر المؤقت بروحه ونحدد له مسار الفولدر في الكود نفسه تسيهيلا علي المستخدم فبمجرد الضغط علي الزر يقوم بسحب الصور الي المسار المحدد في مربع النص مسار الفولدر وبعد ذلك يحذف ما في الفولدر المؤقت يعني من غير مايفتح المستخدم مربع حوار ويروح علي الفودر المؤقت ويحدد الصور وهكذا ارجو ان يكون طلبي واضح وكان رد حضرتك ممكن لكن ماذا لو تغير اسم مجلد الصور المؤقت بالخطأ او لم يتم العثور عليه لسبب ما كيف تتم معالجتها؟ .. طيب لو اردت اختيار جزء من الصور لنقلها لمجلد البرنامج وليس جميعها فكيف ساقوم بذلك؟ صدقني ستجد نفسك في اشكالية انت بالغنى عنها استاذي العزيز هنالك امور تتطلب الجهد اليدوي من قبل المستخدم وليس كل شيء تلقائي ردي علي حضرتك انا عامل 2 زر امر زر للسحب مره واحده وزر لاختيار صوره وبالنسبه لتغير المسار للفولدر ممكن نعمل مربع نص منضم الي بيانات الموظف وعن طريق زر امر نجلب المسار الجديد وزر الامر جاهز عندي

استاذ الفاضل at_aziz الخطاء الذ ييظهر لك في الصوره الاولي وهو لابد من تغيير اسم الحقل pate الي اسم الحقل لديك لان اسم pate اسم حقل مسار الفولدر في هذه حال تابع موضوع الاستاذ ابا جودي لانه ( مشاء الله توصل ) الحل في هذا الموضوع