الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

تعديل على الملف المرفق

بدأه raaddawood في 31 ديسمبر 2008 · 3 رد · 1,013 مشاهدة · في قسم قواعد البيانات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

بســم الله الـرحمــن الرحيــم

الاخوة الافاضل والاساتذة الاعزاء

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

أرفق هذا الملف كمشاركة بسيطة اولا ولتوضيح بعض النواقص والاشكالات فيه ورفعها

1-كيف يتم عمل ترقيم تلقائي في تكست مستند جديد

2-كيف يتم اظهار بيانات في تكست اسم القسم واسم الحساب من جدول اخر في قاعدة البيانات بمجرد كتابة رقم القسم او الحساب

3-تفعيل زر الحذف لمستند

4-كيفية عمل بحث متعددمن خلال الداتا جيرد حسب التاريخ (بين فترتين) وحسب القسم وحسب الحساب

5-التقرير يظهر ولكن كيف يتم أظهاره عرضيا بحيث اريده يستوعب حقول اخرى

ارجو ان لااكون اطلت وشكرا مقدما للجميع

_________.zip

#2

اخي الكريم يمكنك مراجعة مواضيع sql في المنتدى للاستفادة

لا اله الا الله وحده لا شريك له

#3

تم الإطلاع على المثال لكن تعثر التعديل عليه نظرا لعدم وجود الأداة VB2_SkinCtrl1 لدينا

وردا على السؤال الأول .. قم بتغيير كود الحدث Click للـ Command3 .. من :

Adodc1.Recordset.AddNew

إلى :



Dim RSTemp As ADODB.Recordset
Set RSTemp = New ADODB.Recordset

RSTemp.Open "SELECT ID FROM Pay ORDER BY ID DESC", Adodc1.Recordset.ActiveConnection, adOpenDynamic, adLockOptimistic

If RSTemp.RecordCount > 0 Then
Text1 = IIf(IsNull(RSTemp(0)), 0, RSTemp(0)) + 1
Else
Text1 = 1
End If

RSTemp.Close

Set RSTemp = Nothing
	Adodc1.Recordset.AddNew

أما السؤال الثاني .. وعلى سبيل التنفيذ لجزئية الحسابات .. ضع هذا الكود في الحدث Change للـ Text7


Set RSTemp = New ADODB.Recordset

RSTemp.Open "SELECT ACCOUNT FROM HESAB WHERE ID=" & Val(Text7), Adodc1.Recordset.ActiveConnection, adOpenDynamic, adLockOptimistic

If RSTemp.RecordCount > 0 Then
Text8 = IIf(IsNull(RSTemp(0)), "", RSTemp(0))
Else
Text8 = ""
End If

RSTemp.Close

Set RSTemp = Nothing
	Dim RSTemp As ADODB.Recordset

وبالنسبة للأقسام أو المجموعات فإستخدم نفس الكود السابق مع تغيير اللازم

وردا على السؤال الثالث .. قم بحذف كلمة End If الموجوده قبل كلمة Else في السطر الخامس

والسؤال الرابع وبخصوص البحث بإمكانك إستخدام الخاصية Filter للبحث من خلالها 

Adodc1.Recordset.Filter = "[date] Between #" & Format(MinDate, "YYYY/MM/DD") & "# AND #" & Format(MaxDate, "YYYY/MM/DD") & "#"

والمقصود بـ MinDate و MaxDate تاريخي البحث الأصغر والأكبر

والسؤال الأخير يتم ذلك من خلال ظبط الـ Printer من التقرير نفسه يدويا

اما اذا وجدت الطريقة سخيفه وهي فعلا سخيفه .. فعليك إستخدام الـ CrystalReports

اعتذر عن عدم تمكني للمتابعه الدورية في وقتنا الحالي

فليقبل الجميع تقديري واحترامي .. ولكم تحياتي

#4

بســم الله الـرحمــن الرحيــم

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

mrx_ta7adyالاستاذ الفاضل

مشكور على الرد وأعتذر عن التاخير فعلا انا شاهدت الرد هذا اليوم لأن لم يردني تذكير بالبريد الالكتروني

فعلا سأطبق ماتفضلتم به واشكر فضلكم وكذلك شكري للاستاذ الفاضل الذي رد على مشاركتي

مواضيع مشابهة