اذهب الي المحتوي
أوفيسنا

حول اضافة سجلات الى جدول باستخدام كود الVBA


fahad

الردود الموصى بها

الاخوه الافاضل

ارجوا ان يساعدني احد في وضع مثال لكود اضافة الي جدول عن طريق زر كوماند في الفورم حيث يقوم بـأخذ المدخلات من حقول الفورم واضافتها في الجدول .... حيث ان قاعدة البيانات موجودة علي SQL SERVER

ارجوا من لديه الحل ان لا يبخل علينا وعلى المنتدى...

وشكرا لكم جميعا

تم تعديل بواسطه fahad
  • Thanks 1
رابط هذا التعليق
شارك

إضافة سجل باستخدام SQL

إضافة سجل من نموذج بدون مصدر بيانات

http://www.officena.net/ib/index.php?showtopic=15

إضافة سجل باستخدام DAO

إضافة سجل من نموذج بدون مصدر بيانات

http://www.officena.net/ib/index.php?showtopic=14

إضافة سجل باستخدام ADO

إضافة سجل من نموذج بدون مصدر بيانات

http://www.officena.net/ib/index.php?showtopic=13

رابط هذا التعليق
شارك

استاذي الفاضل محمد طاهر

شكرا لك على هذه الروابط

سؤالي: قمت بعمل

إضافة سجل باستخدام DAO

إضافة سجل من نموذج بدون مصدر بيانات

http://www.officena.net/ib/index.php?showtopic=14

:') لكن لم تنجح معي والمشكلة في ظهور رسالة خطأ وهي :

compiler error

User defiend Tyoe not defined

ويكون الكمبايلر مظلل على Dim mydb As database

فما ادري وش المشكلة ، يعطيك العافية :d

رابط هذا التعليق
شارك

لان هذا الكود يحتاج الي اضافة مرجع dao

افتح محرر البيزيك

ALT+F11

او من وضع التصميم اختار اظهار الاكواد لاي نموذج ثم

TOOLS

PREFERENCES

و أضف مرجع

Microsoft DAO 3.6

و راجع المراجع فى المثال مع مثالك

رابط هذا التعليق
شارك

اشكر استاذي الفاضل محمد طاهر

هل هناك اضافات أخرى ؟ لأني قمت بعمل ذلك وزالت المشكلة الأولى

لكن ظهر عندي مشكلة Type mismatch

في السطر

Set mytable = mydb.OpenRecordset("Table1", DB_OPEN_TABLE)

وانا آسف جدا على ازعاجك

اكرر شكري وامتناني

رابط هذا التعليق
شارك

هل لديك جدول اسمه Table1

اذا كان ، فتأكد من مناسبة البيانات التي تضيفها الي أنواع الحقول فى الجدول ، فلا تضيف نص الي حقل رقمي مثلا

أيضا راجع خاصية الطول للحقل

رابط هذا التعليق
شارك

اخجلتني بطيب اخلاقك استاذي محمد طاهر

أسأل الله ان يجعل ذنبك مغفورا

استاذي لدي جدول باسم table 1

وجميع المدخلات مناسبة والمشكلة باقية.

قمت باستيراد النموذج والجدول من قاعدة البيانات التي صممتها أنت ياستاذ محمد ولم تزل المشكلة باقية

لاأعرف كيف احمل ملف في المنتدى لترى ما الخلل

ارجوا الا اكون ازعجتك

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

رابط هذا التعليق
شارك

بما أنك تتعامل مع SQL SERVER

فهل الوصلة مع قاعدة الباينات علي السيرفر سليمة ؟؟

أي هل تري الجداول من مشروع الاكسس ؟؟

أعتقد أن رفع القاعدة سيكون من الصعوبة بمكان لأن قاعدة البيانات علي السيرفر ستكون جزء من المشكلة

لتجرب المبدأ نفسه أولا

أي أنشيء جدول به حقل واحد و أضف له حقل واحد لاختبار الطريقة أولا

رابط هذا التعليق
شارك

استاذي الفاضل

انا لا اعمل على SQL Server بل على برنامج الاكسيس فقط

اي نموذج مع جدول فقط كما هو المثال الذي وضعته في الرابط

انا آسف جدا جدا لأني لم اوضح لك ذلك من البداية ولك حق تعتب علي

جزاك الله خيرا وتقبل منا ومنك

رابط هذا التعليق
شارك

طيب جرب العكس للتأكد من ان المشكلة ليست فى المراجع

صدر جدولك الي مثالي

ثم عدل كود مثالي باسم الجدول و الحقول

رابط هذا التعليق
شارك

أخي الكريم محمد طاهر صاحب الفضل السابق

اخي مشمش نورت وشرفت وشكرا على مداخلتك

طبقت على SQL وما شي تمام لكن زيادة معلومة ابغى بالطريقتين لأني احس ان الطريقة الأولى أوضح

( في تطبيقي زيادة Active X data Object فهل الزيادة تؤثر سلبا )

شكرا لهذا المنتدى ومن فيه

رابط هذا التعليق
شارك

ان ال ado هو المرجع الافتراضي من ضمن كائنات الوصول الي البيانات فى الاكس بي

و تجده مضافا تلقائيا

اما ال DAO فهو الاصدار السابق

و قمكنك الاختيار بينهما أما دمجهما فى تطبيق واحد فأعتقد انه ليس محبذا ( لست متأكداً )

و فى كل الاحوال التنفيذ بال sql افضله طالما يمكنه أن يفي بالغرض

راجع المناقشة فى آخر هذا الموضوع

http://www.officena.net/ib/index.php?showt...opic=978&hl=ado

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information