• الإعلانات

    • فيصل الحربي

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

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

mrnooo2000

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

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

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

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

529 ممتاز جدا

4 متابعين

عن mrnooo2000

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

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

  • الجنس ذكر

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

24,248 زياره للملف الشخصي
  1. تفضل أخى  Database3.mdb
  2. اخى الكريم الموضوع يحتاج الى اعادة تفكير  انت تحتاج الى عدد  اذا انت تحتاج الى استخدام دالة dcount و ليس dlookup و لا يمكن لاى منهما البحث فى اكثر من عمود بالجدول  لذلك ستحتاج الى جمع ناتج البحث فى كل عمود لتحصل على ما تريد     text1=DCount("[vac1]","[book]","[vac1]=" & " سرير كهربائي ")  
  3. فى هذه الحالة الحل بسيط أخى الكريم  فقط سنعدل فى حقل المجموع فى التقرير  ليكون بهذا الشكل  =Sum([2]+[1]*100)  
  4. حتى يمكن ايجاد حل مناسب لما تريد يجب ان نعرف كيف يتم ملء الحقلين الاول و الثانى  الذى يستمد منهما الحقل الثالث قيمته و لكن نصيحتى لك الا تحتفظ بقيمة الحقل المحسوب فى الجدول و الافضل استحدام استعلام لعرض القيمة .
  5. تحويل النص الى عدة حقول

    هذه الدالة تعطيك ما تريد و بدون الحاجة الى جدول ثانى  يمكنك عرض اى جزء تريده فى استعلام او نموذج    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
  6. مجهود جيد اخونا الكريم و فى الرابط التالى مشروع عملنا عليه منذ فترة  و يتم من خلال الاداة مقارنة كافة كائنات قاعدة البيانات و ليس الجداول فقط   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
  7. منع التعديل على قوائم البرنامج

    لا يمكنك التحكم فى الواجهة من قاعدة البيانات ما تريده يحتاج الى اكواد تضاف الى البرنامج
  8. الأخ الكريم/الأخت الكريمة السلام عليكم ورحمة الله وبركاته مرحباً بكم في منتدى الفريق العربي للبرمجة تأسف إدارة المنتدى لغلق الموضوع وذلك لمخالفته قوانين المشاركات. فقرة اختيار عنوان مناسب لمحتوى الموضوع. قواعد طرح المشاركات http://www.arabteam2000-forum.com/index.php?showtopic=29343 شاكرين لكم حُسن تعاونكم
  9. للفائدة هناك دالة اسمها   IsError و استدامها هنا سيكون رهذا الشكل =IIf(IsError([q1].[Form]![rr]);0;[q1].[Form]![rr])
  10. هناك الكثير من البرامج لذلك و لكن هل الملف ملكك من الصعب ان يساعدك احد اذا كان البرنامج ملك شخص اخر حفاظا على الحقوق
  11. اجعل النموذج غير منضم اى لا تربطه بالجدول و استخدم الكود او استعلام الحاق للاضافه
  12. الفكره هى مقارنة قيم متساويه لان الحقول بالجدول تكون قيمتها لاشىء او null اما قيم الحقول فى النموذج تكون فارغه و ليست null
  13. من الطبيعى ان يحدث ذلك لتحقيق ما تريد استخدم or   Private Sub txt_Change()Dim VarSearch As StringVarSearch = "*" & txt.Text & "*"Me.f1.Form.Filter = "البيان like '" & VarSearch & "'" & " OR " & "العملاء like '" & VarSearch & "'" & " OR " & "ملاحظات like '" & VarSearch & "'"Me.f1.Form.FilterOn = TrueEnd Sub
  14. الموضوع بسيط جدا اخى الكريم لاحظ التعديل بالاستعلام Database5.zip
  15. لتنفيذ ذلك ستحتاج الى تقسيم المربع الذى تعرض به الوقت الى 3 أجزاء واحد للساعات و واحد للدقائق و واحد للثوانى