حسين العربى

up

up

عفوا استاذي الفاضل ممكن توضيح اكتر لاني الكود طويل / وهل استبد ل الكود الي باللون الاحمر ام اعدل عليه وما هي باقي الاسطر التي يتم التعديل عليها لو تكرمت

استاذ الفاضل الظاهر اني وضعت الكود خطأ فلم يعمل معي فكيف يكون التعديل لو تكرمت هل في السطر الي معلم باللون الاحمر في عدة سطور

الامر لله وحده / الف شكر استاذي الفاضل علي زوقك

هطمع في كرم اخلاقك وعلمك ممكن ياخد من مربع نص المسار

استاذي الفاضل 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