منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

upupupupup

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

مرفق ملف اكسيل للمساعدة

حلو هذا الفكرة اللي كنت بوصل لها تقدر تخليها ع شكل برنامج
واضافة 4 اعمدة Total QTY ( OUT )

الله يعطيك العافية

انا سويت تعديل للملف ولكن ابي الفكرة 
1= الاسبوع الاول 
2= الاسبوع الثاني 
وهكذا 
يفتح الملف على شكل برنامج باسم مستخدم وكلمة مرور 

ويمكن اضافة الاصناف بالترتيب معين  وزر للطباعة ويظهر  بااسفل الورقة مدير الصيدلية ومدير المستودع 

 وقاعدة بيانات تحفظ كل شهر او ارشفه ويمكنني الرجوع لها باي وقت ،، وكذا يكون مشروعي انتهاء 

upupupupupupupupup

ياليت احد يفيدني

تعمل قاعدة بيانات
بعدد الاصناف وتسميها (انا سافرضها اربعة حقول)
for i = 1 to 300
text2.text=rs.feild i
next i
dim rs as new adodb.recordset
rs.open
for i = 1 to rs.import.recordcount
rs.import.show
rs.movenext
next i
rs.update
for i = 1 to rs.export.recordcount
rs.export=text1.text
rs.movenext
next i
if monthname(month(date)=31or 30 the
for i = 1 to 300
if rs.feild i <>nil then count =count+1
next i
print count
..........................................
هذا الي اقدر عليه
.........................................
bye

هذا الكود وين اضيفة ؟