mrnooo2000

تفضل أخى الميزانية اضافة.accdb

تفضل أخى xlx.mdb

الامر ليس بهذه البساطة اولا لا يمكنك عمل ذلك من نفس قاعدة البيانات و لكن سيتوجب عليك استخدام قاعدة بيانات خارجية ثانيا يجب أن تتأكد من عدم وجود أخطأ بأكواد قاعدة البيانات لأن اى خطأ سيمنع عملية التحويل ثالثا سنقوم باستخدام Undocumented SysCmd Function SysCmd 6…

اخى الكريم العلم متاح و موجود و لو كلفت نفسك بالبحث لوجدت الكثير جرب أى من هذه المشاركات بالرابط /index.php?/search/

من الواضح أن هذا الكود تم الحصول عليه من ملف exe بعد فكه بأحد البرامج Decompiler الاسهل لك أخى أن عمل نموذج جديد عموما المرفقات بها النموذج المطلوب كل ما عليك الا اضافة الملفات الى المشروع لكن هناك جزء بكود النموذج يعتمد على أنه لديك نموذج باسم Form7 و متغير ف…

أخى السائل ضع مثالك هنا أو على الأقل ضع الكود حتى يمكننا المساعدة

جرب أخى هذا التعديل Private Sub code_AfterUpdate() Dim x As Integer x = Nz(DLookup("[id_m]", "[movemnt_fleet]", "[code] = " & Nz(Me.code, 0)), 0) If x > 0 Then Beep MsgBox "هذا الموقف محجوز لقد تم تسجيله من قبل في قاعدة البيانات هذه ؟ سيتم اطلاعك على الموقف ال…

تفضل أخى Database3.mdb

اخى الكريم الموضوع يحتاج الى اعادة تفكير انت تحتاج الى عدد اذا انت تحتاج الى استخدام دالة dcount و ليس dlookup و لا يمكن لاى منهما البحث فى اكثر من عمود بالجدول لذلك ستحتاج الى جمع ناتج البحث فى كل عمود لتحصل على ما تريد text1=DCount("[vac1]","[book]","[vac1]=…

فى هذه الحالة الحل بسيط أخى الكريم فقط سنعدل فى حقل المجموع فى التقرير ليكون بهذا الشكل =Sum([2]+[1]*100)

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

هذه الدالة تعطيك ما تريد و بدون الحاجة الى جدول ثانى يمكنك عرض اى جزء تريده فى استعلام او نموذج Function Text2Columns(AnyName As String, NumberOfPart As Byte) As String Dim TheSpaceNumber As Byte Dim I As Integer, U As Integer Clear_Extra_Spaces: '============…

مجهود جيد اخونا الكريم و فى الرابط التالى مشروع عملنا عليه منذ فترة و يتم من خلال الاداة مقارنة كافة كائنات قاعدة البيانات و ليس الجداول فقط /index.php/topic/215031-%D8%A7%D9%84%D9%85%D9%82%D8%A7%D8%B1%D9%86%D8%A9-%D8%A7%D9%84%D8%B4%D8%A7%D9%85%D9%84%D8%A9-%D8…

لا يمكنك التحكم فى الواجهة من قاعدة البيانات ما تريده يحتاج الى اكواد تضاف الى البرنامج

الأخ الكريم/الأخت الكريمة السلام عليكم ورحمة الله وبركاته مرحباً بكم في منتدى الفريق العربي للبرمجة تأسف إدارة المنتدى لغلق الموضوع وذلك لمخالفته قوانين المشاركات. فقرة اختيار عنوان مناسب لمحتوى الموضوع. قواعد طرح المشاركات /index.php?showtopic=29343 شاكرين لك…

للفائدة هناك دالة اسمها IsError و استدامها هنا سيكون رهذا الشكل =IIf(IsError([q1].[Form]![rr]);0;[q1].[Form]![rr])

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

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

الفكره هى مقارنة قيم متساويه لان الحقول بالجدول تكون قيمتها لاشىء او null اما قيم الحقول فى النموذج تكون فارغه و ليست null

من الطبيعى ان يحدث ذلك لتحقيق ما تريد استخدم or Private Sub txt_Change() Dim VarSearch As String VarSearch = "*" & txt.Text & "*" Me.f1.Form.Filter = "البيان like '" & VarSearch & "'" & " OR " & "العملاء like '" & VarSearch & "'" & " OR " & "ملاحظات like '" & …