اذهب الي المحتوي
أوفيسنا

ابوخليل

أوفيسنا
  • Posts

    11,027
  • تاريخ الانضمام

  • Days Won

    171

Community Answers

  1. ابوخليل's post in مشكلة طول الارقام العشرية فى التقرير was marked as the answer   
    الحقيقة الداخل في البرنامج مفقود والخارج مولود 
    على كل حال تمت معالجة المشكلة كما اشرت ايك في مشاركتي الأخيرة
    وهذه صورة للنموذج 

    T3Q-Copy3.rar
  2. ابوخليل's post in مساعدة في تقرير لاظهار اعياد الميلاد خلال اسبوع من تاريخ اليوم was marked as the answer   
    اهلا وسهلا اخي موسى .. اضافة جميلة ومعلومة قيمة
    وكما وعدت الاخ رضوان تم عمل المطلوب بالطريقتين
    شرح :
    حولت التاريخ ( شهر / يوم ) الى رقم  في عمود ضمن الاستعلام ..  لأن المطلب هو الشهر واليوم 
    عملت وحدات نمطية صغيرة لجعلها معايير من اجل سهولة وسرعة التنفيذ
    الاستعلام الاول Current Events يعمل آليا 
    الاستعلام الثاني qry1 يعمل من خلال حقل في نموذج
    هذه هي الوحدات وتعليق بسيط عليها
    هاتين الوظيفتين تعملان كمعايير داخل الاستعلام والرقم 2 يعني الايام ، (اكبر من وأصغرمن) تاريخ اليوم' فيمكن زيادة الرقم لزيادة العرض في الاستعلام ، فمثلا يمكن ان تجعل الرقم الموجب 7 لتعرض سبعة ايام بعد تاريخ اليوم ومثله الرقم السالب وهذه الوظيفتين تتعامل مع تاريخ اليوم الحالي وتظهر النتيجة في الاستعلام بلا وسيط Public Function dstePlus() dstePlus = CInt(Format(Date, "mmdd")) + 2 End Function Public Function dsteLoss() dsteLoss = CInt(Format(Date, "mmdd")) - 2 End Function هاتين الوظيفتين مثل السابقتين ولكنها تتعامل مع التاريخ المدرج في النموذج ، الأولى للتاريخ المدرج والثانية تعني اقل من التاريخ المدرج بيومين' Public Function dstechose() dstechose = CInt(Format(Forms!frm1!txt1.Text, "mmdd")) End Function Public Function dsteDown() dsteDown = CInt(Format(Forms!frm1!txt1.Text, "mmdd")) - 2 End Function  
    Database11.rar
  3. ابوخليل's post in عمل استعلام الحاق بين جدولين was marked as the answer   
    منطقيا لا يمكن
    لان جدول MultiNamesTable يحتوي على حقل مرتبط بالجدول GroupsTable وغير موجود في جدول main1115
    الحل ان تدمج جدول GroupsTable مع main1115  باستعلام  ولن تتمكن لانه يجب عليك تنشء حقل مرتبط بينهما
    مشكلتك : انك تريد ادراج سجلات جديدة في جدول MultiNamesTable من غير حقل IDMain
    لو حذفت العلاقة بين الجدولين ستتمكن من الإلحاق ولكن لن يمكنك الاطلاع على البيانات من خلال جدول GroupsTable الرئيس وسيبقى حقل IDMain خاليا
    او ستتمكن لو ان العلاقة بين الجدولين يكون جدول MultiNamesTable هو الرأس وحقل IDMain ترقيم تلقائي
     
     
  4. ابوخليل's post in جلب قيمة من جدول بعد تطابق التاريخ was marked as the answer   
    تفضل
    SELECT x1.f2, x1.f1, x1.markName, IIf(mytextvalue() Between [f1] And [f2],""1"",""0"") br2.rar
  5. ابوخليل's post in الفرق او الطرح بين تاريخين على اعتبار الشهر = 30 يوما was marked as the answer   
    اختلف برنامجي في رمضان واحتاج الى ايام لتنظيم  الوقت المتاح للمنتدى ، ولكن شدني النداء
    نعم انت نبهته ان هو اراد الناتج مع الكسور ووافق .. ورأيت التعديل ..
    كتب الله اجرك ابا احمد ، هو رأى نتيجة المهندس قاسم بلا كسور فكانت اقرب الى نفسه
    ولكن التطبيق من خلال الكود اكثر احترافية .. فلما عاتبته قام بالغاء افضل اجابة برجاء الحصول على نتيجة افضل .
    سأكون وسيط خير  بينكم لعلي افوز بافضل اجابة  ... دمجت الفكرتين وبفضل الله خرجت بهذا الكود
    آمل الاطلاع من الجميع والتقييم
    Function GetMonths30(Date1 As Date, Date2 As Date) As Long Dim d1, m1, d2, m2 As String Dim y1, y2 As Integer Dim sum_d, sum_m, sum_y, sum_days As Integer Dim tst1, tst2 As Long d1 = Format(Day(Date1), "00"): d2 = Format(Day(Date2), "00") m1 = Format(Month(Date1), "00"): m2 = Format(Month(Date2), "00") y1 = Year(Date1): y2 = Year(Date2) tst1 = y1 & m1 & d1: tst2 = y2 & m2 & d2 If tst2 < tst1 Then Exit Function sum_d = Abs(Int(d2) - Int(d1)) sum_m = Abs(Int(m2) - Int(m1)) * 30 sum_y = (y2 - y1) * 360 sum_days = sum_y + Abs(sum_m - sum_d) GetMonths30 = sum_days End Function  
     
    months30.accdb
  6. ابوخليل's post in تحويل الأكسس إلي ملف تنفيذي ..هل يمكن العكس ؟ was marked as the answer   
    اذا تقصد تحويله من   Accde الى Accdb   او من  mde   الى mdb
    اعتقد انه لا يمكن
    وعلى الرغم من وجود اعلانات في النت لبرامج مدفوعة يدعون انها تقوم بالتحويل ، الا اني حسب خبرتي في اكسس وتجربتي لمثل هذه البرامج  وجدتها تقوم بالتحويل ولكن بعد نزع جميع الاكواد من المحرر .
  7. ابوخليل's post in جعل مؤشر الكتابة على اللغة العربية داخل مربع النص was marked as the answer   
    تجدها ضمن خصائص الحقل لسان التبويب : تنسيق / لغة لوحة المفاتيح
  8. ابوخليل's post in كود اظهار اكسيس was marked as the answer   
    SW_HIDE 'اخفاء SW_NORMAL 'عادي SW_MINIMIZED 'تصغير SW_MAXIMIZED 'تكبير Call ShowWindow(hWndAccessApp, SW_HIDE) غير ما لون بالاحمر حسب رغبتك
  9. ابوخليل's post in استشار فى نموذج استلام مواد was marked as the answer   
    شكرا لك لفتح المجال لتلاقح الافكار
     افكر وانا في بيئة الجداول ... جدول فرعي مرتبط بجدول الاستلام  بــــ  رقم طلب التوريد او رقم الطلبية 
    ولكن السؤال هنا : اذا كان الاستلام كامل الكمية هل تسجل في الرئيس ام في الفرعي .
    انا ارى ان الكميات المستلمة تسجل في الفرعي سواء كاملة او مجزأة 
    ليصبح الرئيس  لتسجيل بيانات الطلبية كــــ رقم طلب التوريد و رقم الطلبية  ونوع الطلبية او الوصف واسم المورد ..والكمية المطلوبة
    وفي الفرعي يتم ادخال الكمية المستلمة والتاريخ سواء كانت كاملة او جزء منها 
    عند التصفية او طباعة التقارير ... يتم جمع الأجزاء ومقارنتها مع اصل الكمية ، ويمكن طباعة تقرير جزء محدد ويكون في رأس التقرير الكمية الكلية / وما تم استلامه من قبل/ ، وفي التفصيل الجزء الجديد المستلم .
    في النماذج سيكون هناك في النموذج الرئيس نموذج فرعي يظهر منه سجل واحد فقط لأدراج الكمية المستلمة
     
    لمسات :
    عند فتح فورم الطلبيات واختيار طلبية محددة :
    سوف يظهر الكمية المطلوبة /  الكمية المستلمة
    اذا كانت الطلبية تم استلامها بالكامل تظهر رسالة او نص ينبه لذلك .. ويكون السجل الفرعي غير متاح
    والا يكون السجل الفرعي متاح للتحرير والاضافة
    ولمسات اخرى حسب الحاجة .. مثلا  منع ادخال كميات اكبر من المتبقي او اكبر من الكمية الاصل المطلوبة
  10. ابوخليل's post in نسخ جدول من قاعدة بيانات الى اخرى عن طريق القائمة المنسدلة was marked as the answer   
    عليكم السلام
    تفضل0
    Dim tblx As String tblx = Me.Modifiable5 DoCmd.TransferDatabase acExport, "Microsoft Access", "C:\Edusoft\Record.accdb", acTable, tblx, tblx, False المرفق هو الواجهة التي على سطح المكتب
    Record.accdb
  11. ابوخليل's post in الغاء الحفظ التلقائي _ وحفظ التغيرات وما يتم تعديله was marked as the answer   
    اخي العبيدي
    وجدت لك مثال نادر قد اتحفنا به الاستاذ احمد @Bluemind زميل لنا سابق .. مع بعض التصرف
    المثال رائع يقوم بتسجيل التعديلات على جميع النماذج
    تسجيل التغييرات الحادثةفي جميع النماذج.rar
  12. ابوخليل's post in التوافق بين اكسس 2003 واكسس 2019 was marked as the answer   
    عليكم السلام
    نعم .. القديم يعمل على الجديد .. 
    فقط المشكلة في النظام  يجب مراعاة النواتين 32 و 64 عند كتابة الأكواد
  13. ابوخليل's post in تحديد الاقساط بناء على تاريخ السداد مع اجمالى القسط اول واجمالى القسط الثانى واجمالى القسط الثالث was marked as the answer   
    شكرا اخي قاسم
    اخونا محمد حديث عهد بالاكسس والحلول توافدت عليه بالجملة 
    وهذا المرفق حولت الاستعلام الى تجميعي حسب المركز والقسط
    ولكن لاحظ انه يجب عليك تشغيل الكود السابق اولا من اجل ادراج ترقيم الاقساط
    Database17.rar
  14. ابوخليل's post in تعبئة حقل ... اجباري فيه قيمة was marked as the answer   
    If IsNull([الادارة]) Or [الادارة] = 0 Then Undo MsgBox "لا يمكنك ترك الحقل فارغا" Exit Sub End If حاول ان تغلق النموذج بعد ان تترك حقل الإدارة فارغا
    ثم اذهب الى الجدول وانظر .. لن يتم حفظ السجل
    __bb-4 - Copy.accdb
  15. ابوخليل's post in استدعاء بيانات من مصدرين was marked as the answer   
    انظر المرفق
    printRprt3.rar
  16. ابوخليل's post in حساب الوزن المثالي was marked as the answer   
    تفضل 
    هذه الوحدة النمطية الخاصة كما في الصورة اعلاه
    افتح الاستعلام وانظر النتيجة : الرقم الموجب زيادة والرقم السالب نقص والصفر هو الوزن المثالي
    يمكنك بناء نموذجك على الاستعلام  ولا حظ ان اي تغيير على الارقام  سيتغير التقييم آليا
     يمكن ايضا ادخال الجنس ذكر / انثى  ضمن الوحدة النمطية
    ان رغبت في ذلك سوف اضع لك الاساس وانت تدخل الاوزان
     
    Public Function GetPerfectWeight(xheight As Integer, xold As Integer) As Double If xheight = 150 Then If xold <= 24 Then GetPerfectWeight = 57 If xold >= 25 And xold <= 29 Then GetPerfectWeight = 60 If xold >= 30 And xold <= 39 Then GetPerfectWeight = 61 If xold >= 40 And xold <= 49 Then GetPerfectWeight = 64 If xold >= 50 Then GetPerfectWeight = 67 End If If xheight = 152 Then If xold <= 24 Then GetPerfectWeight = 59 If xold >= 25 And xold <= 29 Then GetPerfectWeight = 62 If xold >= 30 And xold <= 39 Then GetPerfectWeight = 63 If xold >= 40 And xold <= 49 Then GetPerfectWeight = 65 If xold >= 50 Then GetPerfectWeight = 68 End If If xheight = 154 Then If xold <= 24 Then GetPerfectWeight = 60 If xold >= 25 And xold <= 29 Then GetPerfectWeight = 63 If xold >= 30 And xold <= 39 Then GetPerfectWeight = 64 If xold >= 40 And xold <= 49 Then GetPerfectWeight = 67 If xold >= 50 Then GetPerfectWeight = 70 End If If xheight = 156 Then If xold <= 24 Then GetPerfectWeight = 63 If xold >= 25 And xold <= 29 Then GetPerfectWeight = 64 If xold >= 30 And xold <= 39 Then GetPerfectWeight = 66 If xold >= 40 And xold <= 49 Then GetPerfectWeight = 68 If xold >= 50 Then GetPerfectWeight = 72 End If If xheight = 158 Then If xold <= 24 Then GetPerfectWeight = 63 If xold >= 25 And xold <= 29 Then GetPerfectWeight = 66 If xold >= 30 And xold <= 39 Then GetPerfectWeight = 67 If xold >= 40 And xold <= 49 Then GetPerfectWeight = 71 If xold >= 50 Then GetPerfectWeight = 73 End If If xheight = 160 Then If xold <= 24 Then GetPerfectWeight = 65 If xold >= 25 And xold <= 29 Then GetPerfectWeight = 67 If xold >= 30 And xold <= 39 Then GetPerfectWeight = 69 If xold >= 40 And xold <= 49 Then GetPerfectWeight = 72 If xold >= 50 Then GetPerfectWeight = 75 End If If xheight = 162 Then If xold <= 24 Then GetPerfectWeight = 66 If xold >= 25 And xold <= 29 Then GetPerfectWeight = 68 If xold >= 30 And xold <= 39 Then GetPerfectWeight = 70 If xold >= 40 And xold <= 49 Then GetPerfectWeight = 74 If xold >= 50 Then GetPerfectWeight = 76 End If If xheight = 164 Then If xold <= 24 Then GetPerfectWeight = 67 If xold >= 25 And xold <= 29 Then GetPerfectWeight = 69 If xold >= 30 And xold <= 39 Then GetPerfectWeight = 72 If xold >= 40 And xold <= 49 Then GetPerfectWeight = 75 If xold >= 50 Then GetPerfectWeight = 77 End If If xheight = 166 Then If xold <= 24 Then GetPerfectWeight = 68 If xold >= 25 And xold <= 29 Then GetPerfectWeight = 71 If xold >= 30 And xold <= 39 Then GetPerfectWeight = 74 If xold >= 40 And xold <= 49 Then GetPerfectWeight = 76 If xold >= 50 Then GetPerfectWeight = 79 End If If xheight = 168 Then If xold <= 24 Then GetPerfectWeight = 69 If xold >= 25 And xold <= 29 Then GetPerfectWeight = 73 If xold >= 30 And xold <= 39 Then GetPerfectWeight = 75 If xold >= 40 And xold <= 49 Then GetPerfectWeight = 78 If xold >= 50 Then GetPerfectWeight = 80 End If If xheight = 170 Then If xold <= 24 Then GetPerfectWeight = 70 If xold >= 25 And xold <= 29 Then GetPerfectWeight = 74 If xold >= 30 And xold <= 39 Then GetPerfectWeight = 77 If xold >= 40 And xold <= 49 Then GetPerfectWeight = 80 If xold >= 50 Then GetPerfectWeight = 83 End If If xheight = 172 Then If xold <= 24 Then GetPerfectWeight = 72 If xold >= 25 And xold <= 29 Then GetPerfectWeight = 76 If xold >= 30 And xold <= 39 Then GetPerfectWeight = 78 If xold >= 40 And xold <= 49 Then GetPerfectWeight = 81 If xold >= 50 Then GetPerfectWeight = 85 End If If xheight = 174 Then If xold <= 24 Then GetPerfectWeight = 74 If xold >= 25 And xold <= 29 Then GetPerfectWeight = 77 If xold >= 30 And xold <= 39 Then GetPerfectWeight = 80 If xold >= 40 And xold <= 49 Then GetPerfectWeight = 83 If xold >= 50 Then GetPerfectWeight = 86 End If If xheight = 176 Then If xold <= 24 Then GetPerfectWeight = 76 If xold >= 25 And xold <= 29 Then GetPerfectWeight = 78 If xold >= 30 And xold <= 39 Then GetPerfectWeight = 82 If xold >= 40 And xold <= 49 Then GetPerfectWeight = 85 If xold >= 50 Then GetPerfectWeight = 88 End If If xheight = 178 Then If xold <= 24 Then GetPerfectWeight = 77 If xold >= 25 And xold <= 29 Then GetPerfectWeight = 80 If xold >= 30 And xold <= 39 Then GetPerfectWeight = 83 If xold >= 40 And xold <= 49 Then GetPerfectWeight = 87 If xold >= 50 Then GetPerfectWeight = 90 End If If xheight = 180 Then If xold <= 24 Then GetPerfectWeight = 79 If xold >= 25 And xold <= 29 Then GetPerfectWeight = 82 If xold >= 30 And xold <= 39 Then GetPerfectWeight = 85 If xold >= 40 And xold <= 49 Then GetPerfectWeight = 89 If xold >= 50 Then GetPerfectWeight = 92 End If If xheight = 182 Then If xold <= 24 Then GetPerfectWeight = 81 If xold >= 25 And xold <= 29 Then GetPerfectWeight = 84 If xold >= 30 And xold <= 39 Then GetPerfectWeight = 87 If xold >= 40 And xold <= 49 Then GetPerfectWeight = 90 If xold >= 50 Then GetPerfectWeight = 94 End If If xheight = 184 Then If xold <= 24 Then GetPerfectWeight = 82 If xold >= 25 And xold <= 29 Then GetPerfectWeight = 86 If xold >= 30 And xold <= 39 Then GetPerfectWeight = 89 If xold >= 40 And xold <= 49 Then GetPerfectWeight = 92 If xold >= 50 Then GetPerfectWeight = 96 End If If xheight = 186 Then If xold <= 24 Then GetPerfectWeight = 84 If xold >= 25 And xold <= 29 Then GetPerfectWeight = 87 If xold >= 30 And xold <= 39 Then GetPerfectWeight = 90 If xold >= 40 And xold <= 49 Then GetPerfectWeight = 94 If xold >= 50 Then GetPerfectWeight = 98 End If If xheight = 188 Then If xold <= 24 Then GetPerfectWeight = 85 If xold >= 25 And xold <= 29 Then GetPerfectWeight = 89 If xold >= 30 And xold <= 39 Then GetPerfectWeight = 92 If xold >= 40 And xold <= 49 Then GetPerfectWeight = 96 If xold >= 50 Then GetPerfectWeight = 100 End If If xheight = 190 Then If xold <= 24 Then GetPerfectWeight = 86 If xold >= 25 And xold <= 29 Then GetPerfectWeight = 90 If xold >= 30 And xold <= 39 Then GetPerfectWeight = 95 If xold >= 40 And xold <= 49 Then GetPerfectWeight = 98 If xold >= 50 Then GetPerfectWeight = 102 End If If xheight = 192 Then If xold <= 24 Then GetPerfectWeight = 87 If xold >= 25 And xold <= 29 Then GetPerfectWeight = 91 If xold >= 30 And xold <= 39 Then GetPerfectWeight = 96 If xold >= 40 And xold <= 49 Then GetPerfectWeight = 100 If xold >= 50 Then GetPerfectWeight = 104 End If If xheight = 194 Then If xold <= 24 Then GetPerfectWeight = 88 If xold >= 25 And xold <= 29 Then GetPerfectWeight = 92 If xold >= 30 And xold <= 39 Then GetPerfectWeight = 98 If xold >= 40 And xold <= 49 Then GetPerfectWeight = 102 If xold >= 50 Then GetPerfectWeight = 106 End If If xheight = 196 Then If xold <= 24 Then GetPerfectWeight = 89 If xold >= 25 And xold <= 29 Then GetPerfectWeight = 93 If xold >= 30 And xold <= 39 Then GetPerfectWeight = 100 If xold >= 40 And xold <= 49 Then GetPerfectWeight = 104 If xold >= 50 Then GetPerfectWeight = 108 End If If xheight = 198 Then If xold <= 24 Then GetPerfectWeight = 90 If xold >= 25 And xold <= 29 Then GetPerfectWeight = 94 If xold >= 30 And xold <= 39 Then GetPerfectWeight = 101 If xold >= 40 And xold <= 49 Then GetPerfectWeight = 106 If xold >= 50 Then GetPerfectWeight = 110 End If If xheight = 200 Then If xold <= 24 Then GetPerfectWeight = 91 If xold >= 25 And xold <= 29 Then GetPerfectWeight = 95 If xold >= 30 And xold <= 39 Then GetPerfectWeight = 103 If xold >= 40 And xold <= 49 Then GetPerfectWeight = 108 If xold >= 50 Then GetPerfectWeight = 112 End If End Function  
    الوزن المثالي2.rar
  17. ابوخليل's post in رصد درجة موحدة لكل الطلاب فى مادة حسب الاختيار was marked as the answer   
    Dim i As Integer, R As Integer Dim rs As Recordset Dim x As String Set rs = Me.RecordsetClone rs.MoveLast R = rs.RecordCount rs.MoveFirst x = txt_nshat For i = 1 To R rs.Edit rs.Fields(x) = drga2 rs.Update rs.MoveNext Next غفلت عن تعديل آخر سطر 
    MsgBox ("تم رصد نشاط") & " ( " & Me.txt_nshat & " ) " بدله بهذا
    MsgBox ("تم رصد نشاط") & " ( " & Me.txt_nshat.Column(1) & " ) " التعديل الذي تم انظر في جدول tb_nshat  وانظر في مصدر بيانات مربع التحرير
     
    رصد الانشطة2.rar
  18. ابوخليل's post in فتح الصورة للطباعة was marked as the answer   
    وجدت لك هذه
    وحدة نمطية عامة اجعلها في مديول
    #If VBA7 Then Private Declare PtrSafe Function GetShortPathName Lib "kernel32" _ Alias "GetShortPathNameA" (ByVal lpszLongPath As String, _ ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long #Else Private Declare Function GetShortPathName Lib "kernel32" _ Alias "GetShortPathNameA" (ByVal lpszLongPath As String, _ ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long #End If Public Function GetShortName(ByVal sLongFileName As String) As String Dim lRetVal As Long, sShortPathName As String, iLen As Integer 'Set up buffer area for API function call return sShortPathName = Space(255) iLen = Len(sShortPathName) 'Call the function lRetVal = GetShortPathName(sLongFileName, sShortPathName, iLen) 'Strip away unwanted characters. GetShortName = Left(sShortPathName, lRetVal) End Function ويتم مناداتها بهذا السطر
    Shell ("cmd /c mspaint /p " & GetShortName(CurrentProject.path & "\" & Me.picFld & ".jpg"))  
  19. ابوخليل's post in جلب القيمه من الجدول was marked as the answer   
    Set rs = CurrentDb.OpenRecordset("AAA") rs.MoveFirst Do While Not rs.EOF x = rs!id Me("DDDD" & x).Caption = rs!NM Me("D" & x).Caption = rs!id Me("S" & x) = rs!sr rs.MoveNext Loop  
    اسم العميل3.rar
  20. ابوخليل's post in ربط جدول الدوام مع تسجيل الحضور was marked as the answer   
    السلام عليكم
    اخي ابو مهند قد تلاحظ تأخر الرد على طلبك
    اولا احييك على حسن تصميم الجداول واتباع القواعد في كتابة اسماء الكائنات والعناصر
    ثانيا نصيحة من محب : اعد تصميم برنامجك ، واستعن باخوتك هنا
    بعض التوجيه حول التصميم :
    1- جدول الحضور يجب ان يشتمل على التالي فقط واكرر فقط
    - معرف الموظف
    - حقل تاريخ ووقت جنرال / والبعض يفضل ان يكونا حقلين منفصلين واحد للتاريخ والآخر للوقت 
    - حقل رقمي لنوع الشفت ( صباحي /مسائي / ليلي ) وهكذا ...
    2- جدول خاص باوقات الدوام ( الشفت) :
    - حقل لرقم تعريف الشفت
    - حقل الوقت / من 
    - حقل الوقت / الى
    .............................
    احب لأخيك ما تحب لنفسك
     
     
     
     
  21. ابوخليل's post in طريقة عمل اكثر من استعلام في استعلام واحد was marked as the answer   
    آمل ان يكون هذا هو مطلوبك
    Public Function OrderAwael(Roundx As Double) As String Set rs = CurrentDb.OpenRecordset("SELECT COUNT(*) + 1 FROM (SELECT qryRank.Rounded FROM qryRank GROUP BY qryRank.Rounded) As temp WHERE temp.Rounded > " & Roundx, dbOpenSnapshot) OrderAwael = rs(0) rs.Close End Function  
    Ranks.accdb
  22. ابوخليل's post in مساعدة فى تطوير تقرير was marked as the answer   
    تفضل
     
    top 10 fsl Up.rar
  23. ابوخليل's post in خارج البرمجة والاكسس was marked as the answer   
    الافضل ينقل الموضوع الى القسم المفتوح  في الموقع ليطلع عليه اكبر شريحة من مرتادي الموقع
    ايضا يتم اشعار مدير الموقع للمشاركة وابداء الرأي
  24. ابوخليل's post in اضافة شقة او مستأجر او عمارة او مالك عمائر was marked as the answer   
    اخي ابا عبدالرحمن .. لست غريبا عن المنتدى ، وتعرف ان الاخوة هنا يبذلون المساعدة ويقومون بخدمة اخوانهم  احتسابا وحسب ما يتاح لهم من الوقت ..  
    فنصيحتي لك ان تجتهد  وتحاول ان تعدل بنفسك معظم هذه الطلبات التي عرضتها ، فإذا وقف في طريقك مسألة يصعب عليك حلها فاعرضها هنا وستجد المبادرة من الجميع
    ما تطلبه يحتاج الى شخص متفرغ يجلس بالأيام ليعالج برنامجك . فآمل منك ان تجد العذر لإخوانك .. وفقك الله لكل خير واعانك على قضاء حاجاتك .
  25. ابوخليل's post in طباعة الفاتورة بدلالة الكود و السجل المختار was marked as the answer   
    تفضل 
    تجد الطريقة المثلى للعمل على جداول اكسس
    ابحث بكود العميل 111 .... 112 .... 113
    ثم اختر تسديد سجل واحد او اكثر .. وانظر النتيجة في التقرير
    اتمنى ان يكون هذا المثال خطوتك الأولى للاحتراف
    printfactur2.rar
×
×
  • اضف...

Important Information