ahmedbasheer قام بنشر نوفمبر 22, 2016 مشاركة قام بنشر نوفمبر 22, 2016 السلام علكم اخواني الاعزاء لدي جدول يحتوي على بيانات الكتب الواردة والصادرة في جدول واحد لكن تم تميز نوع الكتب الواردة عن الكتب الصادرة بحقل نوع الكتاب احتاج الى نموذج يرحل ويستعرض فقط الكتب الصادرة من خلال نموذج الكتب الصادرة ونموذج يرحل ويستعرض فقط الكتب الواردة من خلال نموذج الكتب الواردة التفاصل في المرفق وفقكم الله لكل خير Database1.rar رابط هذا التعليق شارك More sharing options...
husamwahab قام بنشر نوفمبر 22, 2016 مشاركة قام بنشر نوفمبر 22, 2016 تفضل اخي العزيز Database2.rar رابط هذا التعليق شارك More sharing options...
ahmedbasheer قام بنشر نوفمبر 22, 2016 الكاتب مشاركة قام بنشر نوفمبر 22, 2016 جزاك الله خير اخي العزيز اتمنى لك التوفيق بالضبط مثل ما طلب لكن بقي لي طلب اخر هل بالامكان عند اضافة كتاب جديد صادر او وارد يقوم البرنامج بحساب اخر رقم كتاب مخزون كل حسب صنفة مثل اذا اردت ان اضيف رقم صادر جديد وكان اخر رقم صادر مدخل 90 فعند ما اضغط على زر اضافة كتاب يقوم تلقائياً بكتابة في التيكست 91 سواء في اضافة صادر وسواء عند اضافة كتاب وارد لكن كل حسب صنفه جزاك الله الف خير رابط هذا التعليق شارك More sharing options...
husamwahab قام بنشر نوفمبر 22, 2016 مشاركة قام بنشر نوفمبر 22, 2016 تفضل اخي الكريم Database3.rar رابط هذا التعليق شارك More sharing options...
ahmedbasheer قام بنشر نوفمبر 23, 2016 الكاتب مشاركة قام بنشر نوفمبر 23, 2016 السلام عليكم ورحمة الله شكراُ جزيلاً اخي اعزيز لكن عندي مشكلة الكود يطلع بهذه الطريقة ولا اعرف ما هو الحل اي كتابة في اللغة العربية داخل الVBA يقوم باظهارها رموز شكرا جزيلا Private Sub Command5_Click() On Error GoTo handle: DoCmd.GoToRecord , , acNewRec num = DMax("[ÑÞã ÇáßÊÇÈ]", "Tbl_Main", "[äæÚ ÇáßÊÇÈ]='æÇÑÏ'") If IsNull(num) Then [ÑÞã ÇáßÊÇÈ] = 1 Else [ÑÞã ÇáßÊÇÈ] = num + 1 End If handle: Exit Sub End Sub رابط هذا التعليق شارك More sharing options...
ahmedbasheer قام بنشر نوفمبر 23, 2016 الكاتب مشاركة قام بنشر نوفمبر 23, 2016 السلام عليكم اخي العزيز قمت بحل مشكلة الرموز في الكود لدي وقمت بفهم الكود جيداً الحمد لله هل استطيع اضافة شرط اخر مثلاً في هذا الجزء من الدالة مثلاً DMax("[حقل رقم الوارد]", "Tbl_Main", "[نوع الكتاب]='aa'") "Tbl_Main"الي فهمته من هذه الداله هي تعطيني اعلى قيمة لحقل [حقل رقم الوارد]الموجد في الجدول عندما يكون حقل نوع الكتاب =aa سؤالي يكمن هنا هل من الممكن اضافة شرط اخر وعندما تكون السنة في حقل تاريخ الوارد تساوي السنة الحالية الغرض من هذا الشرط هو عند انتهاء السنة وبداية السنة الجديدة يجلب لي قيم جديدة تبدأ من 1 اي يقوم باعادة الترقيم من جديد وشكراً رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.