ابوخليل

لحظات يوجد نقص في الشرط سأعيد رفع الملف هذا تعديل اخفاء حقول في نموذج3.rar

هذه حيلة بسيطة قد تعجبك

شكرا للاستاذ شفان وهذا تعديل على الكود Dim rs As DAO.Recordset Dim i, r As Integer Set rs = Me.Subform.Form.RecordsetClone rs.MoveLast r = rs.RecordCount rs.MoveFirst For i = 1 To r CurrentDb.Execute "INSERT INTO InvSaveTable " & vbCrLf & _ "(InvoiceID,InvoiceDate,ItemID,ItemName,ItemPrice,Quantity)" & vbCrLf & _ "VALUES('" & InvoiceID & "','" & InvoiceDate & "','" & rs!ItemID & "'," & vbCrLf & _ "'" & rs!ItemName & "','" & rs!ItemPrice & "','" & rs!Quantity & "') " rs.MoveNext Next rs.Close Set rs = Nothing MsgBox "new recoreds are saved" وهذا المرفق مالتعديل على مفاتيح الجدول لمنع تكرار رقم الفاتورة مع رقم المنتج في تاريخ واحد ملاحظة يجب عدم ترك مسافات فارغة عند تسمية الكائنات ، ولاحظ اني غيرت اسم عنصر تحكم النموذج الفرعي db1.rar

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

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

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

هذا الكود يعمل If Text2 >= #8:00:00 AM# And Text2 <= #8:30:00 AM# Then Text3 = #8:30:00 AM# Else Text3 = Text2 End If db2.rar

تفضل vcb2.rar

اذا 50 تصير 5 يعني واحد عن كل عشرة تعتبر خيال ما رأيك نختزل الــ 27 تقرير في تقرير واحد طبعا حل الاستاذ صالح سيكون ضمن الخلطة المطلوب مثال mdb يحتوي على التقارير الثلاث لاحدى الفئات ولا تنسى ادراج بيانات اكثر من فئة في الجدول

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

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

السلام عليكم اولا انت انسان تحب الابداع وتعجبك الاختصارات الاحترافية لهذا انت تطلب هذا الطلب ما رأيك لو تفكر و تجرب و تختزل الخمسين تقرير في خمسة تقارير والازرار تكون خمسة كلامي هذا فيه مبالغة ، ولكن لا تدري يمكن يتحقق

شكرا استاذنا شيفان وهذه الاكواد حسب طلبك الغاء من الخيارات Application.SetOption "Confirm Action Queries", 0 Application.SetOption "Confirm Document Deletions", 0 Application.SetOption "Confirm Record Changes", 0 اجعلها في حدث تحميل نموذج البداية وهذه لارجاع التحذير Application.SetOption "Confirm Action Queries", 1 Application.SetOption "Confirm Document Deletions", 1 Application.SetOption "Confirm Record Changes", 1 يمكنك جعلها في حدث اغلاق النموذج ان شئت

السلام عليكم تم اصلاح البحث البحث بالتاريخين اجباري والحقلين الآخرين اختياري ايضا يمكنك فتح التقرير على نتائج البحث وحيث يوجد في جهازي الاصدار 2003 فاضطررت الى تحويل الصيغة الى mdb تفضل مثالك بعد التعديل vcb.rar

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

وعليكم السلام الامر يسير فقط اكتب سطر التعطيل في حدث فتح نموذج البداية DoCmd.SetWarnings False سيتم تعميم الاجراء على كافة قاعدة البيانات حتى يتم اغلاقها

السلام عليكم مادام الكود يعمل ؛ انظر الى امان الماكرو في اكسس وقم بتخفيضه الى الحد الأدنى فقد يكون ارتفاع الأمان هو السبب

اخوي طارق نحن ننظر للسؤال ونحاول تطبيق المطلوب بالضبط الدالة Round تعطي نتيجة 12 وليس 11 هذا هو اللبس الذي وقع بينك وبين اخوتك وهو ان السؤال الذي طرحته غير مطابق لما تريد

مفهوم هذا الكلام انك تريد حذف الكسر العشري مهما كان بدون ان يتأثر العدد الصحيح ودالة Int تفعل ذلك

تم مع الشكر والتقدير

في المرات القادمة اعمل مثال بسيط ، يوضح الفكرة تفضل تم التعديل على مصنف اكسل ، والدالة لا يختلف عملها هنا او هناك Xl00.rar

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

السلام عليكم جرب استخدام int هكذا Int([text1])

في بالي لوكان المرفق mdb لاشارككم استاذنا تمون واكثر .. وأشكرك على تواضعك ولطفك وبالعكس مثل هذه تحمل بين طياتها التقدير والمحبة ، اكرر شكري وتقديري .. ترشيح محل اعتبار

مشاركة مع الاستاذ محمد جزاه الله خيرا هنا يلغي رسالة أكسس Private Sub المهنة_NotInList(NewData As String, Response As Integer) Undo Response = 0 MsgBox "(لاتوجد هذه المهنه ضمن الاختيارات)" End Sub