• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

mrnooo2000

المشرفون
  • عدد المشاركات

    2,997
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

530 ممتاز جدا

4 متابعين

عن mrnooo2000

  • الرتبة
    مشرف قسم Access

معلومات الملف الشخصي

  • الجنس ذكر

أحدث الزائرين لملفلك الشخصي

24,559 زياره للملف الشخصي
  1. اخى الكريم  العلم متاح و موجود و لو كلفت نفسك بالبحث لوجدت الكثير  جرب أى من هذه المشاركات بالرابط  http://arabteam2000-forum.com/index.php?/search/
  2. تحويل الكود الى فورم

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

    أخى السائل ضع مثالك هنا أو على الأقل ضع الكود حتى يمكننا المساعدة
  4. جرب أخى هذا التعديل  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 "هذا الموقف محجوز لقد تم تسجيله من قبل في قاعدة البيانات هذه ؟ سيتم اطلاعك على الموقف المكرر بكامل بياناته"    Me.Undo    DoCmd.GoToRecord , , acGoTo, x End If If [code] > 301 Then    Beep    MsgBox "عددالمواقف كامل"    Me.Undo End If End Sub  
  5. تفضل أخى  Database3.mdb
  6. اخى الكريم الموضوع يحتاج الى اعادة تفكير  انت تحتاج الى عدد  اذا انت تحتاج الى استخدام دالة dcount و ليس dlookup و لا يمكن لاى منهما البحث فى اكثر من عمود بالجدول  لذلك ستحتاج الى جمع ناتج البحث فى كل عمود لتحصل على ما تريد     text1=DCount("[vac1]","[book]","[vac1]=" & " سرير كهربائي ")  
  7. فى هذه الحالة الحل بسيط أخى الكريم  فقط سنعدل فى حقل المجموع فى التقرير  ليكون بهذا الشكل  =Sum([2]+[1]*100)  
  8. حتى يمكن ايجاد حل مناسب لما تريد يجب ان نعرف كيف يتم ملء الحقلين الاول و الثانى  الذى يستمد منهما الحقل الثالث قيمته و لكن نصيحتى لك الا تحتفظ بقيمة الحقل المحسوب فى الجدول و الافضل استحدام استعلام لعرض القيمة .
  9. تحويل النص الى عدة حقول

    هذه الدالة تعطيك ما تريد و بدون الحاجة الى جدول ثانى  يمكنك عرض اى جزء تريده فى استعلام او نموذج    Function Text2Columns(AnyName As String, NumberOfPart As Byte) As String Dim TheSpaceNumber As Byte Dim I As Integer, U As Integer Clear_Extra_Spaces: '=================   If InStr(1, AnyName, "  ", 1) > 0 Then        AnyName = Replace(AnyName, "  ", " ")        GoTo Clear_Extra_Spaces   End If Text2Columns = "" If AnyName = "" Then Exit Function Do     U = I     I = InStr(I + 1, AnyName, " ", 1) 'find number of spaces in the name     If I <> 0 Then         TheSpaceNumber = TheSpaceNumber + 1         If TheSpaceNumber = NumberOfPart Then Exit Do     ElseIf TheSpaceNumber + 1 = NumberOfPart Then         I = Len(AnyName) + 1         Exit Do     Else         Exit Function     End If Loop          Text2Columns = Trim(Mid(AnyName, U + 1, I - U - 1)) End Function   text to columns.accdb
  10. مجهود جيد اخونا الكريم و فى الرابط التالى مشروع عملنا عليه منذ فترة  و يتم من خلال الاداة مقارنة كافة كائنات قاعدة البيانات و ليس الجداول فقط   http://arabteam2000-forum.com/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%A8%D9%8A%D9%86-%D9%82%D9%88%D8%A7%D8%B9%D8%AF-%D8%A7%D9%84%D8%A8%D9%8A%D8%A7%D9%86%D8%A7%D8%AA/?hl=%20%D9%85%D9%82%D8%A7%D8%B1%D9%86%D8%A9%20%20%D9%82%D9%88%D8%A7%D8%B9%D8%AF%20%20%D8%A7%D9%84%D8%A8%D9%8A%D8%A7%D9%86%D8%A7%D8%AA
  11. منع التعديل على قوائم البرنامج

    لا يمكنك التحكم فى الواجهة من قاعدة البيانات ما تريده يحتاج الى اكواد تضاف الى البرنامج
  12. الأخ الكريم/الأخت الكريمة السلام عليكم ورحمة الله وبركاته مرحباً بكم في منتدى الفريق العربي للبرمجة تأسف إدارة المنتدى لغلق الموضوع وذلك لمخالفته قوانين المشاركات. فقرة اختيار عنوان مناسب لمحتوى الموضوع. قواعد طرح المشاركات http://www.arabteam2000-forum.com/index.php?showtopic=29343 شاكرين لكم حُسن تعاونكم
  13. للفائدة هناك دالة اسمها   IsError و استدامها هنا سيكون رهذا الشكل =IIf(IsError([q1].[Form]![rr]);0;[q1].[Form]![rr])
  14. هناك الكثير من البرامج لذلك و لكن هل الملف ملكك من الصعب ان يساعدك احد اذا كان البرنامج ملك شخص اخر حفاظا على الحقوق
  15. اجعل النموذج غير منضم اى لا تربطه بالجدول و استخدم الكود او استعلام الحاق للاضافه