Shivan Rekany

اعمل هذا استعلام ... استعلام تحديث UPDATE [استعلام 1] INNER JOIN [جدول أ] ON [استعلام 1].[رقم الملف] = [جدول أ].[رقم الملف] SET [جدول أ].[اسم ولى الامر] = [استعلام 1]![اسم ولى الامر]; وقم بتشغيل الاستعلام بواسطة اي زر تريد سيتم نقل كل الاسماء في استعلام 1 الى جدول أ الناجحين.rar

اتمام المعلومة واذا تسميت الكائن وبها مسافة يجب عليك ان تكتبه في محرر الاكواد [] اي النموذج باسم InvoiceDetails Table Subform سيكون [InvoiceDetails Table Subform] هذا والله يعلم

انا ما فكرت في الامر فلترة

استأذن من استاذنا ابو خليل اخ @athal اتفضل استخدمت هذا الكود Private Sub InvSave_Click() Dim MyFormCount As Integer Dim i As Integer Dim Sql As String MyFormCount = Nz(Forms![invoice table]![InvoiceDetails Table Subform]!MyFormCount, 0) If MyFormCount = 0 Then MsgBox "" Exit Sub Else DoCmd.SetWarnings False Forms![invoice table]![InvoiceDetails Table Subform].SetFocus DoCmd.GoToRecord , , acFirst For i = 1 To MyFormCount Sql = "INSERT INTO InvSaveTable ( ItemID, Quantity, ItemName, ItemPrice, InvoiceID, InvoiceDate ) SELECT [Forms]![Invoice Table]![InvoiceDetails Table Subform].[Form]![ItemID] AS ItemID, [Forms]![Invoice Table]![InvoiceDetails Table Subform].[Form]![Quantity] AS Quantity, [Forms]![Invoice Table]![InvoiceDetails Table Subform].[Form]![ItemName] AS ItemName, [Forms]![Invoice Table]![InvoiceDetails Table Subform].[Form]![ItemPrice] AS ItemPrice, [Forms]![Invoice Table]![InvoiceDetails Table Subform].[Form]![InvoiceID] AS InvoiceID, [Forms]![Invoice Table]![InvoiceDate] AS InvoiceDate" DoCmd.RunSQL (Sql) DoCmd.GoToRecord , , acNext Next i DoCmd.SetWarnings False End If MsgBox (MyFormCount & " new recoreds are saved") End Sub واليك المرفق invoice2-2003.rar

استأذن من استاذنا @Gamal.Saad اخي الحبيب السبب يرجع لانك استخدمت هذه المعادلة فس استعلام 1 لكي تحصل على اسم ولي الامر اسم ولى الامر: [XA2]+" "+[XA3]+" "+[XA4]+" "+[XA5]+" "+[XA6] ولان عندك اسم ولي الامر في جدول لذا لا داعي لذلك لذا فس استعلام1 خذ اسم الولي الامر من الجدول وبعدين في استعلام المكرر اعمل ماتريد القي نظرتا الى المرفق الناجحين (1).rar

استأذن من استاذنا @محمدنجار استاذنا عبدالله قدوري حسب معلوماتي السبب يرجع لعملية في حقل الرصيد حضرتك استخدمت هذه المعادلة فقه =Nz(DSum("nz( [trdebit] )-nz( [trcredit] )";"kashf";"[id]<=" & [id]);0) احذف المعادلة سترى ان النتيجة هي كما تريد ولكي تحصل على المعادلة اعمل استعلام وفي استعلا اضف حقل جديد بهذه المعادلة واجعله مصدر النموذج الفرعي شوف انا عملت ما قلت في هذه المرفق وهذا هو الاستعلام SELECT kashf.*, Nz(DSum(Nz([trdebit],0)-Nz([trcredit],0),"kashf","[id]<=" & [id]),0) AS Rasid FROM kashf; Microsoft Access Database جديد.zip او استخدم =DSum("[TrCredit]";"kashf") و =DSum("[TrDebit]";"kashf") بدل =Nz(Sum([TrCredit])) و =Nz(Sum([Trdebit])) كمصدر لمرعات النصية في نموذج فرعي باسم تيكست 55 و تيكست 66 كما في المثال المرفق Microsoft Access Database جديد (1).zip اختر ماتريد

استاذنا ابوابراهيم الغامدي هل هناك وظيفة ان يستخرج الارقام كلها من بين نصوص مثلا 34HRV5T765HH545 بيكون 345765545

انتظرني سارجع مع المثال ان شاء الله

هناك ملاحظة انا عملت التجربة الان و عملت نموذج بها زرين للحذف واحد كتبت في اوله DoCmd.SetWarnings False وزر الاخر لم كتبت ذلك السطر واولا قمت بالحذف بواسطة زر الاول وبعدين عملت حذف بزر الثاني لم اعاني رسالة تحذير ======= بعدين عملت نموذج اخر على جدول اخر و عملت عليها زرين واحد استخدمت ماكرو والاخر بالكود حذفت سجل واحد فقط بواسطة زر الحذف بواسطة ماكرو لم يعطيني رسالة التنبيه لكن في مرة الثانية اعطاني رسالة التحذير ولكن حين عملت الحذف بواسطة كود لم اعطاني رسالة التحذير ... اي يعني الماكرو بيجدد التحذير !! قمت بتحويل الماكرو الى الكود وعملت الحذف بواسطته لم يعطاني رسالة التحذير هذا والله يعلم

انت على الحق استاذي الحبيب وانا نزلت مرفق السيد طارق عديد مرات وحذفت لاني لا عرفت ما هو المطلوب لان شفت ان مافي مشكلة في تقريب 11.76 الى الاعلى او الى الاسفل والباقي من الارقام الا ان بها عدد من الارقام ما تقدر تعمله بواسطة تقريب شوف الصورة اللي عليها مربع احمر لذالك انا طلبت لكن الجواب حينئذ فكرت في المعادلة في اكسل وبعدين اجيت الى اكسس وتم الحمدلله

هل تدخل الاسماء في الجدول مباشرتا ام بواسطة نموذج ؟ 1/ اذا نموذج نقدر ان نعمل تحديث مباشرتا بعد ادخال الاسم 2/ اذا تدخل في الجدول مباشرتا يجب ان تشتغل الاستعلام لكي يعمل التحديث =========== ونقدر ان نعمل لك استعلام اخر ونضيف حقل ونعطي المسافة بين كلمة "عبد" و "ال" ولكن سيكون في الجدول الاسماء كما هي اي كما يدخل المستخدم فقط سيغير في الاستعلام

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

بعد تفكير عرفت ما هو المعادلة في اكسل هذا هو المعادلة في اكسل =ROUND(((D3-E3)/D3)*100;0) وبالمقابل في اكسس سيكون كالتالي kk: IIf([SumOfSumOfmontaj]<>0;Round(((([SumOfSumOftotal]-[SumOfSumOfmontaj])/[SumOfSumOftotal])*100)+0.00000000001;0);0) اتفضل اليك ملف اكسل واكسس بهما المعادلة القي نظرتا الى استعلام باسم "q_تجميع شهري استلام دفعات هوية" اليك الملف 112233.rar Q_datedafaa.rar

فكر انك في اي منتدى الان ولا تفكر في اي منتدى اخر ! اتفضل اليك هذا الاستعلام مادام انك تريد فقط للاسماء اللي في بدايته عبدال..... UPDATE Table1 SET Table1.myname = Replace([myname],"عبدال","عبد ال"); غير Table1 باسم جدولك وغير myname باسم حقل الاسماءك في الجدول

اخي طارق السلام عليكم ورحمة الله وبركاته اخي طارق بلا زحمة ممكن تشرح لنا من اي معادلة اخذت تلك الارقام اي وضح لاساتذنا المطلوب بالتوضيح مثلا هذا الحقل تقسيم هذا الحقل ناقص فلان زائد فلان هكذا وبعدين تقريب الة الاسفل ام اعلى ماتريد بالتوضيح

استأذن من استاذنا @محمد ايمن اتفضل اليك تعديل التاريخ قبل وبعد2.rar

!!

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

اخي ريباز لا يعطيني هذه الرسالة تأكد من المرفق شوف هذه الفيديو لفتح الاستعلام Video_2017-06-15_045258.rar

الان ماذا تريد ما يعطيني اي رسالة وهذه صورة للاستعلام ممكن توضيح

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

نعم عند وجود كلمة سر للمحرر الفيجوال لا يتم الحذف اي كائن من الكائنات اللي عليها كود اي مثلا عدنا تقريرين و واحد من التقارير مثلا عند فتح بها كود في محرر فيجوال مثلا كود maximize ما يحذف هذا التقرير والاخر ما بها اي اكواد داخل محرر فيجوال سيحذفه اي ما يحذف اي من وحدات نمطية و النماذج اللي عندها كود في محرر فيجوال والتقارير ايضا وسيحذف جميع الجداول والاستعلامات و ماكروات و سيحذف جميع نماذج اللي ما بها اي كود و التقارير لكن في حالة عدم وجود رقم سري على محرر فيجوال سيتم حذف جميع كائنات عدى هذا الفورم اللي بيعمل عليها حذف جميع الكائنات واليك قاعدة بيانات للتجربة 212.rar

اتفضل اليك وحدة نمطية هذا Function DeleteAll() On Error Resume Next Dim db As Database Dim idx As Long Dim strName As String Set db = CurrentDb ''Relationships For idx = db.Relations.Count - 1 To 0 Step -1 strName = db.Relations(idx).Name If Left(strName, 4) <> "msys" Then db.Relations.Delete strName Else Debug.Print strName End If Next idx ''Forms For idx = CurrentProject.AllForms.Count - 1 To 0 Step -1 strName = CurrentProject.AllForms(idx).Name DoCmd.DeleteObject acForm, strName Next idx ''Macros For idx = CurrentProject.AllMacros.Count - 1 To 0 Step -1 strName = CurrentProject.AllMacros(idx).Name DoCmd.DeleteObject acMacro, strName Next idx ''Reports For idx = CurrentProject.AllReports.Count - 1 To 0 Step -1 strName = CurrentProject.AllReports(idx).Name DoCmd.DeleteObject acReport, strName Next idx ''Queries For idx = db.QueryDefs.Count - 1 To 0 Step -1 strName = db.QueryDefs(idx).Name If Left(strName, 4) <> "~sq_" Then db.QueryDefs.Delete strName Else Debug.Print strName End If Next idx ''Tables For idx = db.TableDefs.Count - 1 To 0 Step -1 strName = db.TableDefs(idx).Name If Left(strName, 4) <> "msys" Then db.TableDefs.Delete strName Else Debug.Print strName End If Next idx ''Modules For idx = CurrentProject.AllModules.Count - 1 To 0 Step -1 strName = CurrentProject.AllModules(idx).Name If strName <> "Module5" Then DoCmd.DeleteObject acModule, strName End If Next idx End Function وفي النموذج ليس لديه مصدر في خلف زر مثلا او اي حدث اكتب Call DeleteAll

القي نظرتا الى هذا الرابط لاستاذ @محمد ايمن

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