Foksh

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 ... إلخ ) . وفي مثالك أخي أحمد لو كنت مكانك لما تطرقت إلى هذه الفكرة . ليس إحباطاً للمعنويات ، ولكن وجهة نظر .. وإرجو الإهتمام من صاحب الموضوع لتحديد أهداف الطلب في هذا الموضوع ، وإن كان هناك تقرعات في طلبه فليتوجه لقتح موضوع جديد في طلبه الجديد

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

الف سلامة عليك ، وربي يشافيك ويعافيك ،

اعتقد أفضل طريقة هي إنك تعمل سطل قهوة أو شاي ، وتستفرد انت ونفسك مع قاعدة البيانات وتدور بين الأكواد على الكائنات اللي انت مش عايزها يا صديقي .

اممممم ، طيب لو جينا مثلاً مثلاً يعني وغيرنا مربع نص إيجار الساعة من مربع نص لكومبوبوكس يا ترى هيحصل ايييييه أكيد هتحصل طرطشة كبيرة أوي يعني لو انا جيت السنتر عندك و خدت الجهاز رقم 2 واللي هو متسعر أساساً 100 جنيه ( على سبيل المثال انا بقول ) ، وانا شغال وفي عز المعركة في اللعبة جيت انت وقلتلي انا هحسبلك الساعة بـ 50 جنيه خصم .. يا ترى هتعمل ايه ؟؟ انت ما تعملش حاجة هو نفسه هيرجع يحسب السعر في الإجمالي على حسب السعر اللي انت غيرته من غير تحديث ولا ريفريش ولا حاجة . وجرب كده واديني رأيك . وكمان انا قلت للزر Stop يوقف مؤقت العداد ولو الزبون طلع عيل ورجع في كلامه وما جاش على باله يروح وقال انا عايز أكمل ، تقدر تضغط على زر Resume مرتين علشان البيه يكمل لعب وما تضطرش تفتحله وقت تاني جديد دي طئطوئة من اللي في دماغي لما أكون مضغوط في الشغل PlayStation.accdb

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

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

كلامك صحيح 100% يبدو ان العملية الحسابية لم تكن دقيقة ، سيتم التدقيق والتعديل ، ولا يهمك