mrastra

انا مش فاهم اوى ==== لكن لازم الجدول الرئيسي يكون فية كود الرتبه من 1 الى 20 على سبيل المثال وعشان تظهر الرتبة كنص وليس كرقم بنحط جدول الرتبه فى الاستعلام وننزل اسم الرتبه يقوم لو كود الرتبه فى الجدول = 1 اذن دة فريق

طيب والنموذج اللى تم عملة هل حملته ويفى بالمطلوب ام لا

لا مش مشكله مسميات بالعربي عموما اتفضلى مثالك بعد التعديل عليه اخفاء.rar

على العموم عملت لحضرتك نموذج به عدد 2 كومبو بوكس الاول لاختيار ظابط او فرد لو اخترت ظابط يجبلك رتب الظباط من اول فريق الى ملازم لو اخترت فرد يجبلك من اول رئيس رقباء الى جندى يا رب يكون دة طلبك رتب.rar

قاعدتى البيانات لم تفتح عى

انا جربته عندى امبار ح واعتقد الكود يعمل بالمظبوط ولكن يجب وضع الـ visible لجيع عناصر مربع النص على no

الحل ان شاء الله هو ععمل نموذج واحد فقط مبنى على جدول واحد فقط والجدول بيكون فىه كل البيانات ونعمل معيار عند فتح النموذج الفرعى ( اللى فية بيانات سيد، سلمى )

Private Sub ÇÓã_ÇáØÇáÈÉ_AfterUpdate() Me.f.Visible = True Me.ÊÓãíÉ17.Visible = True Me.ÎíÇÑ16.Visible = True End Sub اخفاء.rar

data type=number field size=double format= fixed decimal places=2

اذن يجب انشاء جدول خاص بالدليل المحاسبى ويكون عبارة عن حقلين الحقل الاول رقم الدليل المحاسبى وليكم 366 وياخذ الاسم " حسابات العملاء " على سبيل المثال وبعد ملىء جيع انواع الحسابات يجب وضعه على النموذج الرئيسى وليس الفرعى يجب انشاء علاقة واحد الى متعدد ما بين جدول الدليل المحاسبى والجدول الفرعى اما النموذج الفرعى فيمكن عمل معيار على على خانه كود الدليل المحاسبي ةتاخذ قيتها ن الكمبو بوكس على النموذج الفرعى وفى حدث للكمبو بوكس يعمل REQUERY للنموذج الفرعى هذا ما اعتقده

تفضل اخى الكريم كل ما طلبت وايضا تفقيط المبلغ DAMAS.rar

وصلت لنتيجة معقولة عملت الترتيب ولكن حصل مشكلتين الاولى انه كمل ترقيم ووصل عدد السجلات اللا الالاف ثانيا عمل كل جروب بنهم سجل فاضى والكود كالاتى Private Sub num_AfterUpdate() Dim i As Integer DoCmd.SetWarnings False DoCmd.RunSQL "delete * from tb_sub where eshterak_id = " & Me.eshterak_id & ";" Do Until DLast("[month_date]", "[tb_sub]") = 11 For i = 1 To Me.num DoCmd.RunSQL " insert into tb_sub (eshterak_id ,month_date,year_date) values ( " & Me.eshterak_id & "," & Me.fr * i & "," & Me.ye & ")" Next i Me.frm_sub.Requery DoCmd.SetWarnings True End Sub

انا موجود ومتابع من اول يوم اخى الكريم ولكن للاسف الكود لا يعمل معى ولو تسمحلى اقول انا كل يوم بعد احل المسالة دى اكثر من 4 ساعات فى اليوم نظرا لاحتياجى الشديد اليها الموضوع متشعب اكثر من ذلك واسمحلى ارفق النلف ليتم التعديل عليه والمطلوب كالاتى بعد تحديث خانه عدد السجلات قى النموذج يبدا العدد من جديد ..... من اول الرقم 1 ثانيا عند الوصول الى شهر 11 تبدا سنه جديدة بعد السنه الحاليه ملحوظة :- الشهر ليس ثابت البداية وانما ممكن يكون 1 او 3 او 5 او 7 او 9 او 11 المهم العدد يبدا من " ابتداء من شهر " ويوصل الى العدد 11 ثم يبدا من الرقم 1 قم 3 ثم 5 ثم 7 ثم 9 ثم 11 وحينها تبدا سنه تالية يعنى لو السنه كانت 2007 يبقى ابتداء من شهر 11 تكون السنه 2008 وهكذا اسف للاطالة الملف فى المرفقات for.rar

السلام عليكم مطلوب ترقيم حقل كالتالى 1 - 3 -5- 7 - 9- 11 وعند الوصول الى الرقم 11 .....يبدا الترقيم من جديد شكراااااااااااااااا

تسلم ايدك بالظبط هو المطلوب وانا هاعد انسقة شوية عشان الخطوط توافق بعضها