ترحيل بيانات من نموذجين مختلفين الى جدول واحد بشرط

[ahmedbasheer]

السلام علكم 

 

اخواني الاعزاء 

لدي جدول يحتوي على بيانات الكتب الواردة والصادرة في جدول واحد لكن تم تميز نوع الكتب الواردة عن الكتب الصادرة بحقل نوع الكتاب

احتاج الى نموذج يرحل ويستعرض فقط الكتب الصادرة  من خلال نموذج الكتب الصادرة 

ونموذج يرحل ويستعرض فقط الكتب الواردة من خلال نموذج الكتب الواردة

 

التفاصل في المرفق

 

وفقكم الله لكل خير

Database1.rar

[husamwahab]

تفضل اخي العزيز

 

Database2.rar

[ahmedbasheer]

جزاك الله خير اخي العزيز 

اتمنى لك التوفيق بالضبط مثل ما طلب لكن بقي لي طلب اخر 

هل بالامكان عند اضافة كتاب جديد صادر او وارد يقوم البرنامج بحساب اخر رقم كتاب مخزون كل حسب صنفة مثل اذا اردت ان اضيف رقم صادر جديد وكان اخر رقم صادر مدخل 90 فعند ما اضغط على زر اضافة كتاب يقوم تلقائياً بكتابة في التيكست 91 

سواء في اضافة صادر وسواء عند اضافة كتاب وارد لكن كل حسب صنفه 

جزاك الله الف خير 

[husamwahab]

تفضل اخي الكريم

 

Database3.rar

[ahmedbasheer]

السلام عليكم ورحمة الله

شكراُ جزيلاً اخي اعزيز 

لكن عندي مشكلة الكود يطلع بهذه الطريقة ولا اعرف ما هو الحل اي كتابة في اللغة العربية داخل ال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

[ahmedbasheer]

السلام عليكم اخي العزيز 

قمت بحل مشكلة الرموز في الكود لدي وقمت بفهم الكود جيداً الحمد لله 

هل استطيع اضافة شرط اخر مثلاً 

في هذا الجزء من الدالة مثلاً   DMax("[حقل رقم الوارد]", "Tbl_Main", "[نوع الكتاب]='aa'")

"Tbl_Main"الي فهمته من هذه الداله هي تعطيني اعلى قيمة لحقل [حقل رقم الوارد]الموجد في الجدول 

عندما يكون حقل نوع الكتاب =aa

سؤالي يكمن هنا هل من الممكن اضافة شرط اخر وعندما تكون السنة في حقل تاريخ الوارد تساوي السنة الحالية

الغرض من هذا الشرط هو عند انتهاء السنة وبداية السنة الجديدة يجلب لي قيم جديدة تبدأ من 1 اي يقوم باعادة الترقيم من جديد

وشكراً