ماهي كائنات اكسس وكيف التعامل معها في vba

[مبرمج مجتهد]

اخواني الاعزاء انا بفضل الله تعلمت برمجة اكسيل من خلال منتداكم المعطاء

والان احاول ان اتعلم برمجة اكسس ..وحاولت على سبيل المثال انشاء جدول من خلال الـvba وحاولت ايضا اضافة حقل لاحد الجداول ولم استطع

اتمنى المساعدة كرما في كيفية عمل ذلك وكيفية التعامل من خلال الـvba مع كائنات اكسس

[صالح حمادي]

السلام عليكم

نعم يمكنك ذلك بإستعمال الكود التالي:

DoCmd.RunSQL "CREATE TABLE Friends" & _
"([FriendID] integer," & _
"[LastName] text," & _
"[FirstName] text," & _
"[Birthdate] date," & _
"[Phone] text," & _
"[Notes] memo," & _
"CONSTRAINT [Index1] PRIMARY KEY ([FriendID]));"

Friends اسم الجدول

و باقي الأسطر تمثل أسماء الحقول و نوعها

السطر الاخير يمثل المفتاح الأساسي

[مبرمج مجتهد]

الله يوفقك اخي صالح واشكرك على سرعة الرد

ماهو هذا الكائن DoCmd Object

 

[صالح حمادي]

يمكنك استخدام أساليب الكائن DoCmd لتشغيل الإجراءات على Microsoft Office Access من Visual Basic. هذا العمل ينفذ المهام مثل إغلاق النوافذ، وفتح النماذج، وتحديد قيمة الضوابط...و غيرها

 

[مبرمج مجتهد]

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

مثلا لدي ثلاث حقول ..الحقل الاول يساوي مقدار المرتب ..والحقل الثاني عدد ايام عمل الموظف ..والحقل الثالث سيكون لاجراء عمليات حسابية من خلال تقسيم المرتب على ايام العمل

 

هل هذا ممكن في اكسس

[saif13]

السلام عليكم 

هل يمكن اضافة اسم الجدول من مربع نص في نموذج

[صالح حمادي]

7 ساعات مضت, saif13 said:

السلام عليكم 

هل يمكن اضافة اسم الجدول من مربع نص في نموذج

نعم يمكنك ذلك

بهذا الشكل:

DoCmd.RunSQL "CREATE TABLE " & me.name_table & _
"([FriendID] integer," & _
"[LastName] text," & _
"[FirstName] text," & _
"[Birthdate] date," & _
"[Phone] text," & _
"[Notes] memo," & _
"CONSTRAINT [Index1] PRIMARY KEY ([FriendID]));"

بحيث name_table هو اسم مربع النص في النموذج

[saif13]

ممنون منك يا طيب وشكرا على سرعة الرد

[saif13]

ممكن تساعدني بهذا الايعاز

هل ممكن اجعل اسم الجدول متغير بناءا على قائمة منسدله او مربع نص

واعتذر اذا كنت اسالك هنا لربما يجب ان اطرح السوال على العام 

لا اعرف