Foksh

لا تشغل بالك يا صديقي ، جل من لا يسهو .. تفضل بعد التعديل على الاستعلامات ، تم تحقيق المطلوب في الملف المرفق ، jo2025.accdb

هل تمت التجربة بأكثر من احتمال !!!!!!!!!

أخي العزير @jo_2010 ، المرفق الذي ارفقته لا يطابق الصورة في ردك الأخير !!!!!!!!!!!!!!! فكيف برأيك سأعرف ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ في ملفك المرفق وتعديلي عليه وبعد تجربته يعمل بدون أي مشاكل . أما في ملفك الغير موجود بين الأيدي فلا أعلم المشكلة التي تواجهها ..

اين النموذج قوائم الذي به مربع التحرير والسرد 😥 ؟ جرب المرفق التالي :- Database.accdb

حسناً ، جرب هذا التعديل البسيط ,, Private Sub Comannd187_Click() Dim fdialog As Office.FileDialog Dim filepath As String Dim sdialog As New WIA.CommonDialog Dim imagefile As WIA.imagefile On Error GoTo errorhandle Dim fso As Object Dim fldrname, fldrpath, FoldrPath As String FoldrPath = "Pictures" Set fso = CreateObject("scripting.filesystemobject") fldrpath = CurrentProject.Path & "\" & FoldrPath If Not fso.FolderExists(fldrpath) Then fso.createfolder (fldrpath) End If '================================== Set fdialog = Application.FileDialog(msoFileDialogSaveAs) filepath = CurrentProject.Path & "\" & FoldrPath & "\" & Me.Key & ".jpg" Set imagefile = sdialog.ShowAcquireImage() imagefile.SaveFile filepath Me.PicPath2 = filepath Image.Requery errorhandleexit: Exit Sub errorhandle: If Err.Number = "-2147024816" Then If MsgBox("توجد صورة تحمل نفس الرقم" & vbNewLine & "هل تريد حذف الصورة القديمة" & vbNewLine & "في حال الرفض سيتم اضافة رقم عشوائي الى اسم الصورة لتمييزها", vbCritical + vbYesNo + vbMsgBoxRight, "تنبيه") = vbYes Then Kill filepath 'Set imagefile = sdialog.ShowAcquireImage() imagefile.SaveFile filepath Me.PicPath2 = filepath Image.Requery Else Dim g As String g = CurrentProject.Path & "\" & FoldrPath & "\" & Me.Key & "-" & Format(Now, "hhnnss") & ".jpg" imagefile.SaveFile g Me.PicPath2 = g Me.Image1.Picture = Me.Pic1 End If ElseIf Err.Number = "-2145320939" Then MsgBox "الاسكانر غير متصل", vbCritical + vbMsgBoxRight, "تنبيه" Else Me.PicPath2 = Err.Number MsgBox Err.Description End If Resume errorhandleexit End Sub

وعليكم السلام ورحمة الله وبركاته .. حالياً لعدم توافر ماسح ضوئي حالياً لدي ، سؤالي هو ، هل يتم فعلاً سحب الصورة من خلال السكانر ( الماسح الضوئي ) ولكن لا يتم عرضها في مربع الصورة ؟؟؟؟

التزاماً بسياسة وقوانين المنتدى ، ارجو منك فتح الموضوع كموضوع جديد ، وسيتم ان شاء الله متابعته يا صديقي ،

المطلوب غير مفهوم و واضح ، ولا وجود لمربع السرد والتحرير الذي ذكرته ؛ والفضول دفعني لسؤال وهو ما الفكرة من مربع السرد والتحرير في التقرير ؟؟؟؟ كما تعلم أن التقرير لعرض بيانات محددة تأتيك من استعلام مبني على شروط - أو بدون - حسب حاجتك أو من الجداول ، ولا اعتقد انك من خلال التقرير ستقوم باختيار القسم الذي تريده . على العموم قمت بفتح التقرير ولم يظهر لي أي خطأ وهذا ما جعلني أقوم بالتعليق

وعليكم السلام ورحمة الله تعالى وبركاته ، هي فعلاً مشكلة كبيرة تواجه الكثيرين أخي @jo_2010 ، ولكن بالحيلة قد تحصل على مطلبك بكل بساطة ، 1. الفكرة هي أننا في مصدر سجلات النموذج الفرعي ، سنقوم بإضافة حقل جديد على سبيل المثال لنحصل على نوع المختبر ( إن صح التعبير ) :- External_Lab_Name: DLookUp("[External_lab]","Tbl_Lab_All","pcode=[PCode]") 💥 الهدف أن اكسيس سيعتبر أن مربع النص "مرتبطاً" بالسجل الحالي ( لكل سجل ) ، وبالتالي ستعمل التنسيقات الشرطية بشكل طبيعي . 2. في النموذج الفرعي ، قم باختيار مربع النص MB وحدد له مصدر بيانات = الحقل الذي تم انشاءه سابقاً . طبعاً المرفق لم يتم تعديله كما شرحت أعلاه ، ولكن الفكرة هي ذاتها ، وقد تم تعديل المشاركة دون تعديل المرفق. jo2025.accdb

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

انا كنت منتظر ردك هذا بعد سؤالك .. بارك الله فيك ، ومتابعة بعد الافطار للتجربة

لي النصيب الكبير أن تكون أفكاركم معلمنا القدير محل تفكيري وخاطري .. هههههههه خفت انت ، ما تخافش انا قبل المغرب حالياً هادي ، وبعد المغرب بكون برضو هادي هههههههههه يا مزوء انت ياللي بتعرف ترتب الكلام وتظبطه على التمام 💖

وانا كمان زيك منتظر التحديث ههههههههه ، لكن والله انشغالات بمشاريع متفرقة هي اللي أخرتني

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

وعليكم السلام ورحمة الله وبركاته ، قد يفيدك مراجعة هذا الموضوع هنا ، .

اعتذر عن المتابعة أخي الكريم ، عل أحد الإخوة والأساتذة يفيدك في تحقيق مطالبك والتعامل مع المسميات باللغة العربية بشكل أفضل مني .

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

يا صديقي ، الحلول البسيطة والمفهومة تأتيك وحدها عند سلامة التأسيس ، كل الشكر والتقدير والاحترام لك 😇 سأحاول غداً إن شاء الله تعالى لتلبية مطلبك الجديد

وعليكم السلام ورحمة الله تعالى وبركاته اخي @أبو أحمد ، تفضل الكود التالي بعد تعديل المسميات في مثالك. Private Sub أمر26_Click() On Error GoTo ErrorHandler Dim db As dao.Database Dim rst1 As Recordset, rst2 As Recordset Dim fld As Field Dim sqlUpdate1 As String, sqlUpdate2 As String Dim recordID As Long If Me.searinumber = 0 Or IsNull(Me.searinumber) Or Me.searinumber = "" Then MsgBox "الرجاء إدخال رقم السجل", vbExclamation Me.searinumber.SetFocus Exit Sub End If recordID = Val(Me.searinumber) Set db = CurrentDb() If DCount("*", "جدول تسجيل الكتب", "searinumber = " & recordID) = 0 Then MsgBox "رقم السجل غير موجود", vbExclamation Me.searinumber.SetFocus GoTo ExitSub End If Set rst1 = db.OpenRecordset("جدول تسجيل الكتب") 'الجدول الرئيسي sqlUpdate1 = "UPDATE [جدول تسجيل الكتب] SET " For Each fld In rst1.Fields If fld.Name <> "searinumber" Then 'المفتاح الأساسي If Not (fld.Attributes And dbAutoIncrField) Then sqlUpdate1 = sqlUpdate1 & "[" & fld.Name & "] = Null, " End If End If Next fld If Right(sqlUpdate1, 2) = ", " Then sqlUpdate1 = Left(sqlUpdate1, Len(sqlUpdate1) - 2) sqlUpdate1 = sqlUpdate1 & " WHERE searinumber = " & recordID End If Set rst2 = db.OpenRecordset("Marks") 'الجدول الفرعي sqlUpdate2 = "UPDATE Marks SET " For Each fld In rst2.Fields If fld.Name <> "NoMArks" Then 'الحقل المرتبط If Not (fld.Attributes And dbAutoIncrField) Then sqlUpdate2 = sqlUpdate2 & "[" & fld.Name & "] = Null, " End If End If Next fld If Right(sqlUpdate2, 2) = ", " Then sqlUpdate2 = Left(sqlUpdate2, Len(sqlUpdate2) - 2) sqlUpdate2 = sqlUpdate2 & " WHERE NoMArks = " & recordID End If db.Execute sqlUpdate1 db.Execute sqlUpdate2 MsgBox "تمت تصفية بيانات السجل رقم " & recordID & " في الجدولين", vbInformation Me.Requery ExitSub: If Not rst1 Is Nothing Then rst1.Close If Not rst2 Is Nothing Then rst2.Close Set rst1 = Nothing Set rst2 = Nothing Set db = Nothing Exit Sub ErrorHandler: MsgBox "حدث خطأ", vbCritical Resume ExitSub End Sub

أنا مش خايف يا عسل أنا قلت أنوِّه بس ، للتذكير ليس إلا

وعليكم السلام ورحمة الله تعالى وبركاته استخدم الدالة التالية في مديول :- Function GetAcademicYear() As String Dim currentDate As Date Dim currentYear As Integer Dim nextYear As Integer currentDate = Date currentYear = Year(currentDate) nextYear = currentYear + 1 If currentDate >= DateSerial(currentYear, 9, 1) Then GetAcademicYear = currentYear & " - " & nextYear Else GetAcademicYear = (currentYear - 1) & " - " & currentYear End If End Function في مربع النص اجعل مصدر بياناته = =GetAcademicYear() وتقدر تستخدمه في استعلام على سبيل المثال ، بالشكل التالي :- SELECT IIf(Date() >= DateSerial(Year(Date()), 9, 1), Year(Date()) & " - " & (Year(Date()) + 1), (Year(Date()) - 1) & " - " & Year(Date())) AS AcademicYear; النتيجة :- 1️⃣ إذا كان التاريخ الحالي بعد أو يساوي 1 سبتمبر 2024 ، ستكون النتيجة 2024 - 2025 2️⃣ إذا كان التاريخ الحالي قبل 1 سبتمبر 2024 ، ستكون النتيجة 2023 - 2024 🔚 بهذه الطريقة ، يمكنك الحصول على السنة الدراسية الحالية والسنة اللاحقة بناءً على التاريخ المحدد AcademicYear.accdb

في الكود الأخير لي ، لا أعتقد أنه يوجد نهاية للترقيم ❗ من -2,147,483,648 إلى 2,147,483,647 Dim maxNum As Long

ربي يخليك ويسعدك ، بالعكس دا انا اللي بحب أستنير بأفكاركم العظيمة ،

مساهمتي المتواضعة مع الأساتذة ، وتقصيراً لكود المهندس @ابو جودي ، Public Function FlexiBranchSerial(tableName As String, serialField As String, branchCode As String) As String On Error GoTo ErrorHandler If Trim(tableName & serialField & branchCode) = "" Then FlexiBranchSerial = "خطأ: مدخلات غير صالحة" Exit Function End If Dim db As DAO.Database Dim maxNum As Long Dim sql As String Dim qdf As QueryDef Set db = CurrentDb sql = "SELECT Max(Val(Left([" & serialField & "], InStr([" & serialField & "],'/') - 1))) AS MaxNum " & _ "FROM " & tableName & " WHERE [" & serialField & "] LIKE '*" & branchCode & "'" Set qdf = db.CreateQueryDef("", sql) maxNum = Nz(qdf.OpenRecordset()(0), 0) + 1 FlexiBranchSerial = Format(maxNum, "00") & "/" & branchCode Set qdf = Nothing Set db = Nothing Exit Function ErrorHandler: FlexiBranchSerial = "خطأ: فشل في توليد الرقم" End Function الإستدعاء :- Private Sub Specialty_AfterUpdate() DoctorID = FlexiBranchSerial("tblDoctors", "DoctorID", Specialty.Column(2)) End Sub ترقيم تلقائي حسب الفرع.accdb جميل جداً ، للخبرة دور في ترك أثر عظيم يدل على ركازة التفكير أبدعتم معلمنا الحبيب

وعليكم السلام ورحمة الله وبركاته .. طلبك يا صديقي غير واضح ، فما هي الشروط التي على أساسها سيتم تحديد القسط والمدة ( الشرط الذي على أساسه سيتم تحديد نوع الإلتزام ) ؟؟ لنفترض في السجل رقم 50 ، كيف سيتم تحديد القيم التي تريد جلبها وأين تريد إضافة المدة ( في أي خلية ) اذا اعتمدنا ان MAX Installment limit = قيمة القسط على سبيل المثال .