مشكلة في كود صياغة نودج فاتورة

[عبد الكبير نواري]

السلام عليكم 

هذا ما استطعت الوصول إليه في صياغة نودج لفاتورة

فيرجى من ذوي الخبرة مساعدتي في طلبي

لدينا نموذج gestion des factures الموجود في قاعدة البيانات المرفقة والمطلوب:

من فضلكم أريد عند ضغط زر اختيار (ID_Tarif) ان يتم اضافة الحقلين Désignation و Prix_unitaire بشكل تلقائي في قاعدة البيانات المخصصة له.
 وهدا الكود لم يتم تفعيله للقيام بالغرض فيعطي اشارة خطأ 

وشكرا مسبقا 

Private Sub ID_Tarif_AfterUpdate()
Me![Désignation] = Me![ID_Tarif].Column(1)
Me![Prix_unitaire] = Me![ID_Tarif].Column(2)
End Sub
Gestion des factures.rar

Gestion des factures.rar

[أبو عبدالله الحلوانى]

1 ساعه مضت, hassannahid001 said:

لدينا نموذج gestion des factures الموجود في قاعدة البيانات المرفقة والمطلوب

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

لم أجد النموذج المذكور هلا أرفقت لنا القاعدة التى تريد التعديل عليها من فضلك

 

[عبد الكبير نواري]

السلام عليكم وشكرا على الرد السريع من قبلكم وتقبل الله جهدكم امين

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

وجزاكم الله خير الجزاء

 

تم تعديل أبريل 13, 2016 بواسطه hassannahid001

[jjafferr]

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

 

المشكلة عندك ليست في الكود ، وانما في اعدادات الوندوز !!

اعد تضبيط اعدادات الوندوز الى تلك التي كانت لما عملت البرنامج ، في اعتقادي اللغة الفرنسية:

 

جعفر

[عبد الكبير نواري]

السلام عليكم وشكرا على الرد

ضبط الوندوز على الفرنسية لم يظهر نافذة الخطأ ولكن المشكلة في كود apres Maj

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

شكرا 

تم تعديل أبريل 13, 2016 بواسطه hassannahid001

[jjafferr]

السلام عليكم 

 

غيّر الكود:

بدل
Me![Désignation] = Me![ID_Tarif].Column
Me![Prix_unitaire] = Me![ID_Tarif].Column


الى
Me![Désignation] = Me![ID_Tarif].Column(1)
Me![Prix_unitaire] = Me![ID_Tarif].Column(2)

 

جعفر

[عبد الكبير نواري]

السلام عليكم أخي جعفر وشكرا على مساعدتك وأرجو أن لا أكون قد قجرت عليك فأنا أعتدر منك كثيرا 

لكن الكود لم يشتغل لا اعرف لماذا 

جربت ايضا هذه الكود ولم يفي بالغرض المطلوب 

شكرا على تفهمكم

للعلم أنا مبتدئ في الاكسس

Me![Désignation] = Me![ID_Tarif].Column(1)
Me![Prix_unitaire] = Me![ID_Tarif].Column(3)

[jjafferr]

في نفس الحدث ، وبدل السطرين ،

جرب السطر التالي:

msgbox Me.ID_Tarif.Column(1)

 

واخبرنا النتيجة بالصورة لوسمحت 

 

 

جعفر

[عبد الكبير نواري]

السلام عليكم 

النتيجة كما في الصور 

شكرا

Gestion des factures.rar

[jjafferr]

أخي الفاضل 

 

مشكلتك ليست في الكود ، وانما في البرنامج ككل ، واعدادات الوندوز ، والدليل هو رسالة OLE Active x .

 

افتح ملف اكسس جديد ، واستورد جميع كائنات هذه البرنامج الى البرنامج الجديد ، ثم جرب الكود 

 

 

جعفر

[عبد الكبير نواري]

شكرا أخي الكريم وجزاك الله خير الجزاء

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

لقد قمت بترحيل جميع الكائنات الى ملف أخر وجربت الكود 

Me![Désignation] = Me![ID_Tarif].Column(1)
Me![Prix_unitaire] = Me![ID_Tarif].Column(2)

ونجح الامر

الف شكر

[jjafferr]

حياك الله 

 

والفضل يعود للأستاذ رمهان 

 

جعفر

[عبد الكبير نواري]

شكرا أخي الكريم وجزاك الله خير الجزاء

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

لقد قمت بترحيل جميع الكائنات الى ملف أخر وجربت الكود 

Me![Désignation] = Me![ID_Tarif].Column(1)
Me![Prix_unitaire] = Me![ID_Tarif].Column(2)

ونجح الامر

الف شكر

للاستفادة هذا تمريني الأول 

 

facture new.rar

[jjafferr]

شكرا على محاولاتك ، وصبرك 

 

جعفر