-
Posts
11,027 -
تاريخ الانضمام
-
Days Won
171
Community Answers
-
ابوخليل's post in مشكلة طول الارقام العشرية فى التقرير was marked as the answer
الحقيقة الداخل في البرنامج مفقود والخارج مولود
على كل حال تمت معالجة المشكلة كما اشرت ايك في مشاركتي الأخيرة
وهذه صورة للنموذج
T3Q-Copy3.rar
-
ابوخليل'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
-
ابوخليل's post in عمل استعلام الحاق بين جدولين was marked as the answer
منطقيا لا يمكن
لان جدول MultiNamesTable يحتوي على حقل مرتبط بالجدول GroupsTable وغير موجود في جدول main1115
الحل ان تدمج جدول GroupsTable مع main1115 باستعلام ولن تتمكن لانه يجب عليك تنشء حقل مرتبط بينهما
مشكلتك : انك تريد ادراج سجلات جديدة في جدول MultiNamesTable من غير حقل IDMain
لو حذفت العلاقة بين الجدولين ستتمكن من الإلحاق ولكن لن يمكنك الاطلاع على البيانات من خلال جدول GroupsTable الرئيس وسيبقى حقل IDMain خاليا
او ستتمكن لو ان العلاقة بين الجدولين يكون جدول MultiNamesTable هو الرأس وحقل IDMain ترقيم تلقائي
-
ابوخليل'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
-
ابوخليل'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
-
ابوخليل's post in تحويل الأكسس إلي ملف تنفيذي ..هل يمكن العكس ؟ was marked as the answer
اذا تقصد تحويله من Accde الى Accdb او من mde الى mdb
اعتقد انه لا يمكن
وعلى الرغم من وجود اعلانات في النت لبرامج مدفوعة يدعون انها تقوم بالتحويل ، الا اني حسب خبرتي في اكسس وتجربتي لمثل هذه البرامج وجدتها تقوم بالتحويل ولكن بعد نزع جميع الاكواد من المحرر .
-
ابوخليل's post in جعل مؤشر الكتابة على اللغة العربية داخل مربع النص was marked as the answer
تجدها ضمن خصائص الحقل لسان التبويب : تنسيق / لغة لوحة المفاتيح
-
ابوخليل's post in كود اظهار اكسيس was marked as the answer
SW_HIDE 'اخفاء SW_NORMAL 'عادي SW_MINIMIZED 'تصغير SW_MAXIMIZED 'تكبير Call ShowWindow(hWndAccessApp, SW_HIDE) غير ما لون بالاحمر حسب رغبتك
-
ابوخليل's post in استشار فى نموذج استلام مواد was marked as the answer
شكرا لك لفتح المجال لتلاقح الافكار
افكر وانا في بيئة الجداول ... جدول فرعي مرتبط بجدول الاستلام بــــ رقم طلب التوريد او رقم الطلبية
ولكن السؤال هنا : اذا كان الاستلام كامل الكمية هل تسجل في الرئيس ام في الفرعي .
انا ارى ان الكميات المستلمة تسجل في الفرعي سواء كاملة او مجزأة
ليصبح الرئيس لتسجيل بيانات الطلبية كــــ رقم طلب التوريد و رقم الطلبية ونوع الطلبية او الوصف واسم المورد ..والكمية المطلوبة
وفي الفرعي يتم ادخال الكمية المستلمة والتاريخ سواء كانت كاملة او جزء منها
عند التصفية او طباعة التقارير ... يتم جمع الأجزاء ومقارنتها مع اصل الكمية ، ويمكن طباعة تقرير جزء محدد ويكون في رأس التقرير الكمية الكلية / وما تم استلامه من قبل/ ، وفي التفصيل الجزء الجديد المستلم .
في النماذج سيكون هناك في النموذج الرئيس نموذج فرعي يظهر منه سجل واحد فقط لأدراج الكمية المستلمة
لمسات :
عند فتح فورم الطلبيات واختيار طلبية محددة :
سوف يظهر الكمية المطلوبة / الكمية المستلمة
اذا كانت الطلبية تم استلامها بالكامل تظهر رسالة او نص ينبه لذلك .. ويكون السجل الفرعي غير متاح
والا يكون السجل الفرعي متاح للتحرير والاضافة
ولمسات اخرى حسب الحاجة .. مثلا منع ادخال كميات اكبر من المتبقي او اكبر من الكمية الاصل المطلوبة
-
ابوخليل'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
-
ابوخليل's post in الغاء الحفظ التلقائي _ وحفظ التغيرات وما يتم تعديله was marked as the answer
اخي العبيدي
وجدت لك مثال نادر قد اتحفنا به الاستاذ احمد @Bluemind زميل لنا سابق .. مع بعض التصرف
المثال رائع يقوم بتسجيل التعديلات على جميع النماذج
تسجيل التغييرات الحادثةفي جميع النماذج.rar
-
ابوخليل's post in التوافق بين اكسس 2003 واكسس 2019 was marked as the answer
عليكم السلام
نعم .. القديم يعمل على الجديد ..
فقط المشكلة في النظام يجب مراعاة النواتين 32 و 64 عند كتابة الأكواد
-
ابوخليل's post in تحديد الاقساط بناء على تاريخ السداد مع اجمالى القسط اول واجمالى القسط الثانى واجمالى القسط الثالث was marked as the answer
شكرا اخي قاسم
اخونا محمد حديث عهد بالاكسس والحلول توافدت عليه بالجملة
وهذا المرفق حولت الاستعلام الى تجميعي حسب المركز والقسط
ولكن لاحظ انه يجب عليك تشغيل الكود السابق اولا من اجل ادراج ترقيم الاقساط
Database17.rar
-
ابوخليل's post in تعبئة حقل ... اجباري فيه قيمة was marked as the answer
If IsNull([الادارة]) Or [الادارة] = 0 Then Undo MsgBox "لا يمكنك ترك الحقل فارغا" Exit Sub End If حاول ان تغلق النموذج بعد ان تترك حقل الإدارة فارغا
ثم اذهب الى الجدول وانظر .. لن يتم حفظ السجل
__bb-4 - Copy.accdb
-
ابوخليل'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
-
ابوخليل'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
-
ابوخليل'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"))
-
ابوخليل'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
-
ابوخليل's post in ربط جدول الدوام مع تسجيل الحضور was marked as the answer
السلام عليكم
اخي ابو مهند قد تلاحظ تأخر الرد على طلبك
اولا احييك على حسن تصميم الجداول واتباع القواعد في كتابة اسماء الكائنات والعناصر
ثانيا نصيحة من محب : اعد تصميم برنامجك ، واستعن باخوتك هنا
بعض التوجيه حول التصميم :
1- جدول الحضور يجب ان يشتمل على التالي فقط واكرر فقط
- معرف الموظف
- حقل تاريخ ووقت جنرال / والبعض يفضل ان يكونا حقلين منفصلين واحد للتاريخ والآخر للوقت
- حقل رقمي لنوع الشفت ( صباحي /مسائي / ليلي ) وهكذا ...
2- جدول خاص باوقات الدوام ( الشفت) :
- حقل لرقم تعريف الشفت
- حقل الوقت / من
- حقل الوقت / الى
.............................
احب لأخيك ما تحب لنفسك
-
ابوخليل'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
-
ابوخليل's post in خارج البرمجة والاكسس was marked as the answer
الافضل ينقل الموضوع الى القسم المفتوح في الموقع ليطلع عليه اكبر شريحة من مرتادي الموقع
ايضا يتم اشعار مدير الموقع للمشاركة وابداء الرأي
-
ابوخليل's post in اضافة شقة او مستأجر او عمارة او مالك عمائر was marked as the answer
اخي ابا عبدالرحمن .. لست غريبا عن المنتدى ، وتعرف ان الاخوة هنا يبذلون المساعدة ويقومون بخدمة اخوانهم احتسابا وحسب ما يتاح لهم من الوقت ..
فنصيحتي لك ان تجتهد وتحاول ان تعدل بنفسك معظم هذه الطلبات التي عرضتها ، فإذا وقف في طريقك مسألة يصعب عليك حلها فاعرضها هنا وستجد المبادرة من الجميع
ما تطلبه يحتاج الى شخص متفرغ يجلس بالأيام ليعالج برنامجك . فآمل منك ان تجد العذر لإخوانك .. وفقك الله لكل خير واعانك على قضاء حاجاتك .
-
ابوخليل's post in طباعة الفاتورة بدلالة الكود و السجل المختار was marked as the answer
تفضل
تجد الطريقة المثلى للعمل على جداول اكسس
ابحث بكود العميل 111 .... 112 .... 113
ثم اختر تسديد سجل واحد او اكثر .. وانظر النتيجة في التقرير
اتمنى ان يكون هذا المثال خطوتك الأولى للاحتراف
printfactur2.rar