نجوم المشاركات

السلام عليكم لا يمكن إدراج معادلات مستعمل فيها دوال الإكسيل -مهما كانت- داخل "كائن" (مربع نص أو غيره) ولكن يمكن إدراج معادلة بسيطة جدا (ولا تقبل الكائنات غيرها) وهذه المعادلة تكون من الشكل: A1= حيث A1 هو عنوان خلية (مع إمكانية استعمال الرمز $ لتثبيت رقم الصف أو رقم العمود)... وكفكرة يمكن وضع المعادلة التي تريد في أي خلية وداخل الكائن تضع المعادلة : عنوان_الخلية_المعنية= ليس لي فكرة أخرى... بن علية حاجي

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

Dim a As Single a = MsgBox("هل تريد الانتقال الى النموذج التالي", vbMsgBoxRight + vbYesNo, "تنبيه") If a = vbYes Then DoCmd.Close DoCmd.OpenForm "اسم النموذج التالي" End If

اخي ههـ 88 اخي @hh88 انت ما ارفقت القاعدة لذلك استاذنا الحبيب @محمدنجار اعطاك الكود

استخدم هذا Private Sub WorkScope_AfterUpdate() Dim rst As DAO.Recordset Dim D 'As Integer Dim X As Integer ' = Cycles Dim E ' = CSN Dim F ' = CSO Dim Z ' = VisitSeq Set rst = CurrentDb.OpenRecordset("Select * From qry_workscope_utility") rst.MoveLast: rst.MoveFirst X = rst!Cycles rst.MoveNext D = rst!VisitNo E = rst!CSN F = rst!CSO Z = rst!VisitSeq rst.MovePrevious If D = "NA" Then Else If IsNull(Form_frm_WORKSCOPE.VisitNo) Then rst.Edit rst!VisitNo = D + 1 rst.Update rst.Close: Set rst = Nothing Else End If End If If E = "NA" Then Else If IsNull(Form_frm_WORKSCOPE.CSN) Then rst.Edit rst!CSN = E + X rst.Update rst.Close: Set rst = Nothing End If End If If IsNull(Form_frm_WORKSCOPE.Visit_Seq) Or Form_frm_WORKSCOPE.Visit_Seq = "" Then rst.Edit rst!CSO = "" rst.Update rst.Close: Set rst = Nothing End If If Z = "0" Then rst.Edit rst!CSO = X rst.Update rst.Close: Set rst = Nothing End If If Z >= "1" Then rst.Edit rst!CSO = X + F rst.Update rst.Close: Set rst = Nothing End If Me.frm_WORKSCOPE.Requery End Sub اليك مرفقك qs-4.rar

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

:: تفضل اخي الكريم تعديل شرط الدالة ... بالتوفيق =DCount("[id]";"tbl1";"Hour(b-a)*60+Minute( b-a )>30")

في عدة طرق ، بس الاسهل ، مع الحدث بعد تحديث n1 ، مع الضغط على زر البحث: Private Sub أمر176_Click() Me.n1 = Me.n1 - 1 Call n1_AfterUpdate Call أمر20_Click End Sub Private Sub أمر183_Click() Me.n1 = Me.n1 + 1 Call n1_AfterUpdate Call أمر20_Click End Sub جعفر

السلام عليكم الحمدلله انك استطعت الوصول الى حل بالنسبة الى السجل السابق والسجل التالي ، تستطيع استعمال هذا الكود Private Sub cmd_Previous_Click() On Error GoTo err_cmd_Previous_Click DoCmd.GoToRecord , , acPrevious Exit Sub err_cmd_Previous_Click: If Err.Number = 2105 Then MsgBox "هذا هو الســجل الأخير", vbInformation + vbOKOnly, "تنبيه" Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub Private Sub أمر176_Click() On Error GoTo err_أمر176_Click ' Me.Refresh ' ' With Recordset ' If .AbsolutePosition = .RecordCount - 1 Then ' MsgBox "هذا هو الســجل الأخير", vbInformation + vbOKOnly, "تنبيه" ' Else ' DoCmd.GoToRecord , , acNext ' End If ' End With DoCmd.GoToRecord , , acNext Exit Sub err_أمر176_Click: If Err.Number = 2105 Then MsgBox "هذا هو الســجل الأخير", vbInformation + vbOKOnly, "تنبيه" Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub . جعفر

مافي مشكلة ، طيب اخبرينا كيف تريدينا نشتغل على برنامجك المرفق؟ اعطينا مثال لوسمحتي جعفر

:: تفضل استخدم هذه الدالة حيث وقت الخروج [a] وقت الدخول . بالتوفيق =DCount("[id]";"tbl1";"minute([b]-[a])>30")

وعليكم السلام أختي عندي اسئلة ومحتاجة توضيحات لوسمحتي: في الجدول T2 ، عندك سجل واحد فقط لكل موظف لكل شهر ، فالطريقة التي اوضحتيها في الصورة غير صحيحة ، لأنك تجمعين 3 اشهر !! جعفر

في نماذج اليوميه ايردات وضعت الكود الاتي في الحالي تابع15.Requery وهذا عند التحميل Me.n1 = Forms![اليوميه]![n1] Me.n2 = Forms![اليوميه]![n2] وكذا انحلت المشكله يغلق الموضوع شكر خاص لاخي واستاذي جعفر والأستاذ شفان دوما وهم سند لي شكر لكم من كل أعماق قلبي وشكر لكل المشاركين

السلام عليكم ورحمة الله تم عمل المطلوب في الملف المرفق... أرجو أن يفي الغرض... بن علية حاجي ثلاث شهادات2.rar

مرحبا أخي أياد ممكن ترفق لنا ورقة عمل توضح بها المطلوب و لك الشكر

اتفضل اليك هذا On Error Resume Next Me.RecordSource = "" Me.البحث_العام.SourceObject = "" Dim sql As String Dim sql1 As String 'sql = "ALTER TABLE السجل ALTER COLUMN التسلسل COUNTER PRIMARY KEY" ' تحديد حقل کمفتاح اساسي 'sql = "ALTER TABLE السجل ADD id INT AUTO_INCREMENT;" ' اضافة حقل نمبر sql = "ALTER TABLE السجل DROP COLUMN التسلسل" sql1 = "Alter TABLE السجل ADD التسلسل AUTOINCREMENT(1)" DoCmd.RunSQL (sql) DoCmd.RunSQL (sql1) Me.RecordSource = "السجل" Me.البحث_العام.SourceObject = "البحث العام" سيحذف الحقل التسلسلي ويعمل حقل جديد بارقام جديدة تصفير الارقام التسلسلية.rar

السلام عليكم ورحمة الله عند فتح الملف ضاعت الأكواد كلها، هل من الممكن إدراج الأكواد في رد آخر... بن علية حاجي

السلام عليكم اخي عمار هل جربت ضغط البرنامج في الوين رار قبل اضافته الى المنتدى او ضع المرفق في مواقع التحميل وضع الرابط في المنتدى مثال موقع كوكل درايف او ماكا فان لم ينجح الامر معك يمكنك التواصل معي على الواتساب او التلغرام على الرقم 00905456969400

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