eng aoff

يا ريت المساعدة بحل المشكلة ...وهي إظهار الصورة بالتقرير

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

اعتذر عالتخير بالرد لاني قليل جدا متواجد على النت وجزاك الله خيرا اخي العزيز

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

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

تمام اخي جعفر هذا هو المطلوب بارك الله فيك

استاذتي احتاج فقط نموذج الارتباط بالسيرفر من بعد امركم؟ اشكرك اخي كاسر

يعطيكم العافية اساتذتي الكرام وبارك الله فيكم

شكرا على الرد اخواني الاعزاء تم حل المشكلة وبارك الله بألاخت زهرة لديها مثال على هذا الموضوع اليكم المرفق MyLink.rar

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

السلام عليكم اساتذتي الكرام لدي قاعدة بيانات منقسمة الجداول الرئيسية محمية من الاستيراد ولكن جداول المستخدمين يتم استيرادها والتحكم بها ....كيف يمكن ان اخفيها علما اني حاولت بكل الطرق ولكن لم انجح وجزاكم الله خيرا

بارك الله فيك اخي شفان

السلام عليكم اساتذتي الكرام هل يمكن قراءة المساحة المتبقية لوحدة الخزن (هارديسك) في السيرفر كنسبة مئوية؟

جزاك الله خيرا اخي ما قصرت

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

https://www.mediafire.com/file/0dlnhqe491bx9ra/Database10.accdb تفضل اخي العزيز

تفضل اخي العزيز ولكن الملف يعمل تاريخ النفاذ.rar

تفضل اخي العزيز اليك المرفق تاريخ النفاذ.rar

ممكن المساعدة؟

السلام عليكم اساتذتي الكرام انا بحاجة الى تحديد عدد الشهور كما موضح ادناه واكون شاكرا لحضراتكم

ياريت المساعدة

السلام عليكم استاذتي الكرام انا بحاجة الى مساعدتكم في اكمال مشروعي لقد قمت بأنشاء نظام ارشفة الكترونية ولكن مشكلة لدي هي نسخ المرفقات الى السيرفر من شاشة المستخدم عندما يقوم المستخدم بأضافة مرفقات من حاسوبه يتم حفظ المرفقات في حاسوبه فقط لان الكود يقرأ اسم المجلد ان وجد... ياريت من حضرتكم تعديل بسيط على الكود لاضافة مسار السيرفر وحاولت كثيرا وبحثت كثيرا في المنتدى مع الاسف لم اتوصل الى الحل اليكم الكود Dim path_folder_attaced As String If IsNull([id]) Or IsNull([number]) Or IsNull([data]) Or IsNull(name_Arc) Or IsNull([name_Arc]) Then Dim my_msg As String my_msg = MsgBox("لن يتم إرفاق اى ملفات لعدم إكتمال كل البيانات" & vbCrLf & _ "- رقم الكتاب" & vbCrLf & _ "- تاريخ الكتاب" & vbCrLf & _ "-موضوع الكتاب", _ vbOKOnly, _ "خطـــــأ") 'Call add_id_new_rec Else path_folder_attaced = db_path() & "مرفقات" & "مرفقات ادارة\" & "\صادر ادارة\" & [id] & "\" If Dir(path_folder_attaced, vbDirectory) = "" Then MkDir path_folder_attaced End If Me.pate = path_folder_attaced On Error GoTo err_cmd_Open_desktob_Click Dim strFileNames As Variant Dim strFilter Dim sFolder Dim SelectedFiles strFilter = "All Files " & _ "(*.*)" & vbNullChar & _ "*.*" & vbNullChar & vbNullChar sFolder = "C:\" ' call the API for the Multi File Dialog strFileNames = apiBrowseFiles("Select a File, OR Multiple Files", sFolder, , strFilter) ' user didn't select any file, s/he proceed cancel If UBound(strFileNames) = 0 Then Exit Sub End If SelectedFiles = UBound(strFileNames) ' number of selected files ' take the 1st file name and extract the Folder name from it ' Don't Dim sFolder, it has been declared as Global variable ' so that the last folder visited will be opened again sFolder = strFileNames(1) Do While Right(sFolder, 1) <> "\" sFolder = Left(sFolder, Len(sFolder) - 1) Loop sFolder = Replace(sFolder, "\\", "\") Dim rc Dim i Set rst = Me.frm_Sub_attachmentssede.Form.RecordsetClone rst.MoveLast: rst.MoveFirst rc = rst.RecordCount ' Add the selected items, and seperate them by a ; so that we use it as Row Source for ' list the files selected in the Listbox lstMultipleFiles For i = 1 To UBound(strFileNames) Dim File_Path_Name Dim FileExt Dim File_Name Dim New_File File_Path_Name = Replace(strFileNames(i), "\\", "\") FileExt = mID(strFileNames(i), InStrRev(strFileNames(i), ".") + 1) FileExt = IIf(FileExt = File_Path_Name, "", FileExt) 'file has No Extension File_Name = Replace(File_Path_Name, sFolder, "") New_File = "image" & Me.id & "_" & i + rc & "." & FileExt ' Copy the original file to Folder in the main Form FileCopy File_Path_Name, Me.pate & "\" & New_File rst.AddNew rst!name_morfke = New_File rst!tayp = FileExt rst!emp_id = Me.id rst.Update Next i Exit_cmd_Open_desktob_Click: Exit Sub err_cmd_Open_desktob_Click: If err.number = 3021 Then rc = 0 Resume Next Else MsgBox err.number & vbCrLf & err.Description End If End If

السلام عليكم أساتذتي الكرام عساكم بخير يارب قمت بأنشاء نظام أرشفة وقمت بمشاركة النظام عن طريق windows server 2008r2 وكانت النتيجة مذهلة جدا ولكن المشكلة عند اضافة مرفقات من الكمبيوتر يفتح صفحة السيرفر وليس صفحة التحميل من الكمبيوتر أرجو المساعدة في هذه المشكلة وجزاكم الله خير علما ان مشروعي متوقف على هذه المشكلة

بارك الله فيك استاذي ابو خليل على هذا العمل الرائع جدا ولكن لدي سكنر يحسب اكثر من ورقة لا يعمل ارجو من حضرتك التعديل على كود السكنر علما بان السكنر كانون DR-C125 وجزاك الله خيرا

جزاك الله خيرا اخي العزيز ولكن اريد ان لا تظهر هذه الرسالة؟