اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

قام بنشر

السلام عليكم 

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

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

لدينا نموذج 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 الموجود في قاعدة البيانات المرفقة والمطلوب

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

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

 

factures.JPG

قام بنشر (معدل)

فاتورة2.jpgالسلام عليكم وشكرا على الرد السريع من قبلكم وتقبل الله جهدكم امين

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

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

 

فاتورة.jpg

فاتورة1.jpg

تم تعديل بواسطه hassannahid001
قام بنشر

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

 

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

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

 

جعفر

  • Like 1
قام بنشر (معدل)

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

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

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

شكرا 

Capture.JPG

تم تعديل بواسطه hassannahid001
قام بنشر

السلام عليكم :rol:

 

غيّر الكود:

بدل
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)

 

جعفر

  • Like 1
قام بنشر

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

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

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

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

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

Me![Désignation] = Me![ID_Tarif].Column(1)
Me![Prix_unitaire] = Me![ID_Tarif].Column(3)
قام بنشر

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

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

msgbox Me.ID_Tarif.Column(1)

 

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

 

 

جعفر

  • Like 1
قام بنشر

أخي الفاضل 

 

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

 

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

 

 

جعفر

  • Like 1
قام بنشر

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

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

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

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

ونجح الامر

الف شكر

photo3.jpg

قام بنشر

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

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

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

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

ونجح الامر

الف شكر

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

 

facture new.rar

  • Like 2

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