Foksh

وعليكم السلام ورحمة الله وبركاته.. حاول اعمل "ضغط وإصلاح قاعدة البيانات"

وعليكم السلام ورحمة الله وبركاته اخي الكريم.. الحقل المحسوب A ، هل هو حقل محسوب في نفس جدوله ، أم من معادلة داخل الاستعلام مصدر بيانات النموذج الفرعي ؟؟ لا ضرر في إرفاقك ملف صغير كدعم للمساعدة 🤗

وعليكم السلام ورحمة الله وبركاته ،، أعتقد أن الفكرة تتمثل بخطوات بسيطة ، مثل :- 1. حساب Google Drive للمختبر ( على سبيل المثال لا الحصر ) . 2. ملفات التقارير Pdf ، ويتم رفعها على الموقع بشكل يدوي ( الفكرة المرجحة ) . 3. وجود نموذج يقوم بتحويل النص ( الرابط بعد رفع الملف ) الى QR ويتم حفظ الصورة باسم المربض او رقمه الطبي .... إلخ ، لتسهيل الوصول إليه لاحقاً . ومن ثم ارساله للمريض أو طباعته ( حسب الطريقة التي تراها مناسبة أو سياسة المختبر ) . هذا تصوري لكيفية عمل النظام .

تم تعديل الخطأ في مسميات الكود 😬

دون تحميل المرفق ، وحسب ما فهمت ، جرب هذا المديول :- public function foksh(class as string, gender as string, total_t as string) as string if class = "الأول" then if gender = "ذكر" then if total_t = "غ" then foksh = "منقول للصف الثاني" else foksh = "منقول للصف الثاني" end if elseif gender = "انثي" then if total_t = "غ" then foksh = "منقولة للصف الثاني" else foksh = "منقولة للصف الثاني" end if end if end if end function وفي الاستعلام انشىء حقل جديد واكتب فيه السطر التالي :- status: foksh([class], [gender], [total_t]) هذا تصوري للحقول والأسماء ، اذا كانت الأسماء غير ذالك فاستبدلها حسب اسماء الحقول لديك 🤗

أعتذر عن التأخر بالرد ، ولكن لم أكن متواجداً عند الكمبيوتر يا صديقي ، إن كان في العمر بقية إن شاء الله حشوف الملف . 🤗 .

Private Sub مربع_تحرير_وسرد50_AfterUpdate() DoCmd.OpenForm "ادراج التوقيت", acNormal [Forms]![ادراج التوقيت]![المادة].Value = Me.مربع_تحرير_وسرد50.Value End Sub

استخدم الحدث بعد التحديث لفتح النموذج من خلال السطر :- Private Sub مربع_تحرير_وسرد50_AfterUpdate() DoCmd.OpenForm "ادراج التوقيت", acNormal End Sub وإذا كان غير ذلك ، فأرجو الشرح الكافي والوافي

كمشاركة جانبية .. لا وجود للجدول او الاستعلام faturas

أنا ( وأعوذ بالله من كلمة أنا ) ، لقيته في مديول عندي مع إلغاء جزئية الكسر العشري واستبدالها بالمطلوب 😂 وأدينا بنستنا الطفرة الجينية وإضافتها للمكتبة العامرة 😁

اخي الكريم @ahmed_204079 هل يوجد شروط للنسخ من الحقل المصدر إلى الحقل الهدف ؟ إن كان لا ، فجرب هذا الكود Sub CopyData() Dim db As DAO.Database Dim rs As DAO.Recordset Dim strSQL As String Set db = CurrentDb strSQL = "SELECT * FROM DATA_TECH" Set rs = db.OpenRecordset(strSQL, dbOpenDynaset) rs.MoveFirst Do While Not rs.EOF If Not IsNull(rs!a1) Then rs.Edit rs!a6 = rs!a1 & "qena1.moe.edu.gov.eg@" rs.Update End If rs.MoveNext Loop rs.Close Set rs = Nothing Set db = Nothing MsgBox "تم نسخ البيانات وتحديث الحقل بنجاح", vbInformation End Sub وفي الزر Btn_Doit كمثال تستطيع استدعاء الدالة من خلال الإسم :- Private Sub Btn_Doit_Click() CopyData End Sub

على العموم ,, Private Sub V_Change() If Me.Creatinine_clearence = True Then Dim C As Double Dim age As Integer Dim wt_kg As Double Dim S As Double Me.C = Me.U * Me.V / (1440 * Me.S) End If End Sub Private Sub S_Change() If Me.Cockcroft = True Or Me.MDRD = True Then Dim C As Double Dim age As Integer Dim wt_kg As Double Dim S As Double ' استعادة القيم من النموذج age = Me.age wt_kg = DLookup("wt_kg", "resrvation_frm", "id = " & Me.ID) S = Me.S If Me.Cockcroft = True Then ' Cockcroft formula If Me.gender = "Male" Then C = (140 - age) * wt_kg / (72 * S) Else C = (140 - age) * wt_kg / (72 * S) * 0.85 End If Me.C = C ElseIf Me.MDRD = True Then ' MDRD equation If Me.gender = "Male" Then C = 175 * S ^ (-1.154) * age ^ (-0.203) Else C = 175 * S ^ (-1.154) * age ^ (-0.203) * 0.742 End If Me.C = C End If End If End Sub Private Sub Creatinine_clearence_AfterUpdate() If Me.Creatinine_clearence = True Then Me.Cockcroft = False Me.MDRD = False Call V_Change End If End Sub Private Sub Cockcroft_AfterUpdate() If Me.Cockcroft = True Then Me.Creatinine_clearence = False Me.MDRD = False Call S_Change End If End Sub Private Sub MDRD_AfterUpdate() If Me.MDRD = True Then Me.Creatinine_clearence = False Me.Cockcroft = False Call S_Change End If End Sub

أخي بلال أود المساعدة فعلاً ، ولكني لم أفهم المطلوب بشكل واضح للأسف .. ولكن طريقة تصميمك للجداول أعتقد أنها بحاجة إلى إعادة النظر بأمرها .. فمثلاً القيم ( تحضيري ، أولى .... خامسة ) اعتقد يجب ان تكون في جدول مستقل مع ترقيم لكل سجل . وكذلك الأمر لحقل الفوج إن كان كما هو واضح في الجدول تحديد القسم أن (تحضيري يقابلها 1) ، و (أولى يقابلها 2) ... إلخ اهتم بالمسميات أيضاً التي مثل ( mdd,mr,,rr,,rk .... إلخ ) أعانك الله على الشرح الوافي ليتضح المطلوب ويصبح ذا معنى مفهوم ، ومتأكد إنك ستجد الإجابة المناسبة

أختنا الكريمة @safaa salem5 ، تماشياً مع قوانين المنتدى ، أتمنى الإلتزام بما يلي ,, 1. الشرح الوااااااااافي الكافي للمطلوب . 2. إدراج ملف مرفق وهذا أمر ضروري أيضاً . 3. استخدام الرمز المشار إليه بالدائرة الحمراء عند وضع الأكواد . وتذكري أن الجميع هنا أخوة وأصدقاء ونساند بعضنا بكل ما نملكه من صفاء النية ولا أحد يحمل في قلبه ذرة حقد أو كره لأحد

أخي @بلال اليامين ، انت حاولت في الحل ، ولم تحاول حتى توضيح المطلوب كما أشار أستاذنا @عمر ضاحى في مشاركته .

أخي @أحمد عمروف وعليكم السلام ورحمة الله وبركاته ,, تفضل فكرتي عليك بأسلوبين .. الأول بالكود التالي من خلال توزيع المبلغ بشكلك متسلسل ، وتستطيع استدعاءه من خلال زر باسم الالة فقط :- Sub DistributeAmounts() Dim db As DAO.Database Dim rsMain As DAO.Recordset Dim rsTawzee As DAO.Recordset Dim personID As Long Dim personName As String Dim totalAmount As Long Dim numDistributions As Integer Dim basicAmount As Long Dim remainingAmount As Long Dim i As Integer Set db = CurrentDb() Set rsMain = db.OpenRecordset("Tb_Main") Set rsTawzee = db.OpenRecordset("Tb_Tawzee") If Not rsMain.EOF Then rsMain.MoveFirst Do Until rsMain.EOF personID = rsMain!ID_Name personName = rsMain!Name_ totalAmount = rsMain!Price_ numDistributions = rsMain!Cou_Tawzee basicAmount = totalAmount \ numDistributions remainingAmount = totalAmount Mod numDistributions For i = 1 To numDistributions rsTawzee.AddNew rsTawzee!ID_Name = personID rsTawzee!Name_ = personName rsTawzee!No_Tawzee = i If i <= remainingAmount Then rsTawzee!Price_Tawzee = basicAmount + 1 Else rsTawzee!Price_Tawzee = basicAmount End If rsTawzee.Update Next i rsMain.MoveNext Loop End If rsMain.Close rsTawzee.Close Set rsMain = Nothing Set rsTawzee = Nothing Set db = Nothing MsgBox "تم توزيع المبالغ بشكل تسلسلي بنجاح!", vbInformation End Sub الثاني بالكود التالي من خلال توزيع المبلغ بشكلك عشوائي ، وتستطيع استدعاءه أيضاً من خلال زر باسم الالة فقط :- Sub DistributeAmountsRandomly() Dim db As DAO.Database Dim rsMain As DAO.Recordset Dim rsTawzee As DAO.Recordset Dim personID As Long Dim personName As String Dim totalAmount As Long Dim numDistributions As Integer Dim basicAmount As Long Dim remainingAmount As Long Dim i As Integer Dim distributions() As Long Dim index As Integer Set db = CurrentDb() Set rsMain = db.OpenRecordset("Tb_Main") Set rsTawzee = db.OpenRecordset("Tb_Tawzee") If Not rsMain.EOF Then rsMain.MoveFirst Do Until rsMain.EOF personID = rsMain!ID_Name personName = rsMain!Name_ totalAmount = rsMain!Price_ numDistributions = rsMain!Cou_Tawzee basicAmount = totalAmount \ numDistributions remainingAmount = totalAmount Mod numDistributions ReDim distributions(1 To numDistributions) For i = 1 To numDistributions distributions(i) = basicAmount Next i Randomize For i = 1 To remainingAmount index = Int((numDistributions * Rnd) + 1) distributions(index) = distributions(index) + 1 Next i For i = 1 To numDistributions rsTawzee.AddNew rsTawzee!ID_Name = personID rsTawzee!Name_ = personName rsTawzee!No_Tawzee = i rsTawzee!Price_Tawzee = distributions(i) rsTawzee.Update Next i rsMain.MoveNext Loop End If rsMain.Close rsTawzee.Close Set rsMain = Nothing Set rsTawzee = Nothing Set db = Nothing MsgBox "تم توزيع المبالغ بشكل عشوائي بنجاح!", vbInformation End Sub Tawzee.mdb

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

مشاركة مع المهندس @ابو جودي ، وأسأل الله لك الشفاء العاجل من كل سقم ,, تفضل أخي @ahmadhurira هذا المديول الجديد البعيد عن مديولك في المرفق السابق في النموذج أدخل المبلغ كمثال:- 150.320 = مائة وخمسون دينار و 320 فلس لا غير. تسديد حساب ذمم.zip

تفضل اخي الكريم @figo82eg هذا التعديل يتأكد مما اذا كان هناك ملف بنفس رقم الخطاب الحالي أو لا . وأيضاً من أن مربع النص "رقم الخطاب" غير فارغ . Private Sub OpenFiles_Click() If IsNull(Me.رقم_الخطاب) Or Me.رقم_الخطاب = "" Then MsgBox "الرجاء إدخال رقم الخطاب.", vbExclamation, "خطأ" Exit Sub End If Dim File_Path As String, File_Name As String, Name_Path As String File_Path = Application.CurrentProject.path & "\Edit\" File_Name = Dir(File_Path & Me.رقم_الخطاب & "*.pdf") If File_Name = "" Then MsgBox "ملف الخطاب غير موجود.", vbInformation, "تنبيه" DoCmd.OpenForm "sms1", acMaximize Exit Sub End If While File_Name <> "" Name_Path = File_Path & File_Name Application.FollowHyperlink Name_Path File_Name = Dir() Wend End Sub

خدمة إرسال رسالة قصيرة SMS هي خدمة مدفوعة ولها تكاليف تختلف حسب البلد ومزود الخدمة .

بسيطة ، ولا يهمك ، انتظرني في التعديل المطلوب 😇

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

جرب فكرتي أخي الكريم @ahmedabuzena ,, za-AKSAT-Pro-LAST- (1).accdb

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

من المتعارف عليه أن نظام القوائم المتعارف عليه يكون بإتجاه واحد من أحد الإتجاهات الأربعة فما الفكرة من التحدي بتوظيف السحب والإفلات للقوائم الرئيسية أو المتفرعة منها