د.كاف يار

تفضل هذا التعديل open.zip

نفس الكود راح يعطيك النتيجة

تفضل التعديل 1678743215_.accdb

استبدل FrmAbilities في Defs بالتالي Public Sub FrmAbilities(frmName As String) Dim SF As Control, strsbfrm As String With MyUser ContinueCode = True Forms(frmName).AllowAdditions = IIf(DLookup("A", "Frm Ability", "sn=" & [Forms]![frm-UserLogon]![user]) = -1, True, False) Forms(frmName).AllowEdits = IIf(DLookup("E", "Frm Ability", "sn=" & [Forms]![frm-UserLogon]![user]) = -1, True, False) Forms(frmName).AllowDeletions = IIf(DLookup("D", "Frm Ability", "sn=" & [Forms]![frm-UserLogon]![user]) = -1, True, False) For Each SF In Forms(frmName).Controls If SF.ControlType = acSubform Then strsbfrm = SF.SourceObject If Not IsNull(DLookup("FRM", "FRMS", "FRM = '" & strsbfrm & "'")) Then If .GetAbility(strsbfrm, OpenForm) Then SF.Form.AllowAdditions = .GetAbility(strsbfrm, Add) SF.Form.AllowEdits = .GetAbility(strsbfrm, Edit) SF.Form.AllowDeletions = .GetAbility(strsbfrm, del) Else SF.SourceObject = "" SF.Visible = False End If Else SF.Form.AllowAdditions = Forms(frmName).AllowAdditions SF.Form.AllowEdits = Forms(frmName).AllowEdits SF.Form.AllowDeletions = Forms(frmName).AllowDeletions End If End If Next End With End Sub

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

كود التشفير يعمل بدون مشكلات لكن تأكد من أن جميع الأجهزة لديك يتم تخفيض الأمان بها و تمكين وحدات الماكرو انت تريد الغاء التشفير Function decode(A, b As String) As String On Error Resume Next Dim r, i As Integer, S, u As String u = getcode(A, b) i = Val(mID(u, 1, 1)) + 1 u = mID(u, i + 1, Len(u) - i) If Len(u) Mod 3 <> 0 Then u = mID(u, 1, Len(u) - 1) S = "" For r = 1 To Len(u) - 2 Step 3 S = S + Chr(Val(mID(u, r, 3))) Next decode = S End Function ان اردت ذلك فلن تكون بياناتك مشفرة فإن حصل دخول غير مشروع ستكون البيانات مكشوفة

ممتاز هل توجد رسالة أو رقم خطأ ؟

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

عفوا هل السيرفر داخلي أم خارجي على استضافة

تفضل هذه الفكرة 1678743215_.accdb R_RECEIVING.pdf

بإمكانك حذفها لكن ماهو المطلوب ؟ ما هي المشكلة التي تواجهك ؟

تصميم جميل و احترافي مشاء الله لا قوة إلا بالله

لمعرفة المخزون بشكل عام استخدم الكود التالي Nz(DSum("Quantity_Store", "Store", "[Drug_ID] Like '*" & Drug_ID & "*'"), 0) لمعرفة اجمالي المصروف Nz(DSum("Quantity", "Dispensing", "[Drug_ID] Like '*" & Drug_ID & "*'"), 0) بالإمكان خصم قيمة المخزون من قيمة الصرف لتحصل على صافي المخزون

مشاركة مع الإخوة تجربة.accdb لكي تستخدم الشرط في الاستعلام يجب ان يكون كذ IIF

تفضل strSQL = "INSERT INTO clients ( [no], name, notice ) IN '" & txtPath & "'" & _ " SELECT Nz(Dmax('[no]','clients'),0)+1, clients.name, clients.notice FROM clients"

ارفق رابط المشاركة المعنية

@hassansaat تعلم الاستيراد بكل سهولة في البداية قم بإستدعاء مكتبة الإكسل الآن نقوم بإنشاء Module جديد و اضافة الكود التالي Public filenname As String Public Function importExcel(tablename As String) As String ', filenname As String Dim xlApp As Excel.Application Dim xlWb As Excel.Workbook Dim xlWs As Excel.Worksheet Dim intLine As Long Dim strSqlDml As String Dim strColumn1 As String, strColumn2 As String, strColumn3 As String varfile = filenname CurrentDb.Execute "DELETE * FROM List", dbFailOnError Set xlApp = New Excel.Application xlApp.Visible = False Set xlWb = xlApp.Workbooks.Open(varfile) Set xlWs = xlWb.Worksheets(1) intLine = 2 Do strColumn1 = Trim(xlWs.Cells(intLine, 1).Value) strColumn2 = Trim(xlWs.Cells(intLine, 2).Value) strColumn3 = Trim(xlWs.Cells(intLine, 3).Value) strSqlDml = "INSERT INTO List VALUES('" & strColumn1 & "', '" & strColumn2 & "', '" & strColumn3 & "')" CurrentDb.Execute strSqlDml, dbFailOnError xlWs.Cells(intLine, 1).Select intLine = intLine + 1 Loop Until IsEmpty(xlWs.Cells(intLine, 1)) xlWb.Close False xlApp.Quit Set xlApp = Nothing Set xlWb = Nothing Set xlWs = Nothing filenname = "" End Function Public Sub SelectFiles() Dim Addfile As Object Set Addfile = Application.FileDialog(3) With Addfile .AllowMultiSelect = False .InitialFileName = "" .Filters.Clear .Filters.Add "Excel Files", "*.xls,*.xlsx" If .Show = True Then filenname = Trim(.SelectedItems(1)) Else Exit Sub End If End With End Sub شرح مختصر للكود نقوم بالإعلان عن متغييرات تحمل اسماء مستعارة للأعمدة في ملف الإكسل مثلا strColumn1 -strColumn2 - strColumn3 Dim strColumn1 As String, strColumn2 As String, strColumn3 As String الأن نقوم بتعريف المتغييرات على الأعمدة في ملف الأكسل من خلال التعريف xlWs.Cells(intLine, 1).Value حيث أن رقم 1 هو العمود رقم 1 في الاكسل و هكذا strColumn1 = Trim(xlWs.Cells(intLine, 1).Value) strColumn2 = Trim(xlWs.Cells(intLine, 2).Value) strColumn3 = Trim(xlWs.Cells(intLine, 3).Value) تفضل التعديل Access-Import.accdb

ممتاز فعلا افضل حل و بإحترافية تامة

اخي هل انت متمسك جدا بالكود ؟ بالإمكان جعل الكود اسهل في الاستخدام و التعامل مماهو عليه الآن و بنفس تصميم النموذج الحالي فقط اقوم بتغيير الكود هل توافق ؟

تفضل هذا التعديل transport.accdb

تفضل اسم التقرير Report1 تم التجميع على حسب المنطقة و المجموعة transport.accdb

تفضل هذا التعديل لكن يلزمك اضافة عمود لكلمة المرور و كذلك اضافة فورم لعملية اختيار ملف قاعدة البيانات بحيث يكون بجوار كل مسار كلمة المرور الخاصة بكل قاعدة بيانات يتم اضافتها تم اضافة الفكرة للمجلد الأول فقط لأن طلبك يحتاج الى تعديلات كثيرة مثل اضافة بعض الاعمدة في الجداول و كذلك فوم لإختيار قاعدة البيانات نصيحتي لك ان تستخدم الطرق السهلة لكي تستطيع التعامل معها اختيار الطرق الصعبة ماهي الا مضيعة للوقت تفضل التعديل فقط على اول جزئية للمجلد baksw كرر نفس الطريقة لباقي المجلدات و لكن بعد التعديل على الجداول لديك بما يتوافق مع اسلوب كلمة المرور لديك sswd.zip

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

في محرر الأكواد

تفضل التعديل حساب عدد الورديات والساعات حسب التاريخ.zip