اريد من حضرتكم عند ادخال صنف ثاني جديد يفتح سجل جديد (معدل)

[مهند محسن]

السلام عليكم

عندي فاتورة بيع تعمل من خلال الباركود ..... في النموذج الفرعي انا عملت زياده الكميه على صنف موجود سابق

 اريد من حضرتكم عند ادخال صنف ثاني جديد يفتح سجل جديد. 

مع الشكر

 

 

 

 

 

 

 

 

ك اريد عند ادخال صنف اخر ينتقل الى سجل جديد لني 

[jjafferr]

وعليكم السلام 🙂

 

في المرات القادمة ان شاء الله ، رجاء مراعاة وضع عنوان مناسب يدل على طلبك 🙂

 

المعلومات اللي اعطيتنا لا تكفي حتى نفهم الموضوع كاملا ، رجاء عمل ايضاح اكثر ، ويُفضل ان ترفق هذه الجزئية من طلبك 🙂

 

جعفر

[مهند محسن]

ممنون استاذ جعفر سوف اقوم برفاق ملف يبين المطلوب .. مع كل الشكر

[مهند محسن]

ستاذ جعفر السلام عليكم ... انا بحث في المنتدى ووجدت هذه المشاركة لحضرتك وستخدمت هذا الكود بارجاع المؤشر الى نفس حقل الباركود استاذ جعفر. بعد ارجاع المؤشر الى نفس حقل الباركود والانتهاء من هذا الصنف ، اريد عند الضغط على باركود  صنف جديد  يعني صنف اخر غير موجود في الفاتورة ينتقل الى سجل جديد يعني يقوم  بجيك في الاصناف المدخلة في الفاتورة اذا غير موجود ينتقل الى سجل جديد..... مع الشكر

 

[مهند محسن]

 

 السلام عليكم

هل يوجد حل هذا الموضوع

مع الشكر

[jjafferr]

وعليكم السلام اخوي مهند 🙂

 

احاول استوعب السؤال:

1. في النموذج الرئيسي ، عندك حقل الباركود ، 
2. تريد تعمل فاتورة ، وتفاصيلها موجودة في النموذج الفرعي ،
3. تقرأ بجهاز الباركود ، تقرأ باركود المادة ،
4. تريد عند قراءة كل مادة ، ان يفتح سجل جديد لها ،
5. اذا احد مواد تم ادخالها سابقا ، وتم قراءتها مرة اخرى ، تريد المؤشر يذهب الى السجل السابق الذي تم عمله لهذه المادة.

هل مفهومي صحيح ؟

 

لو ترفق لنا هذه الجزئية من برنامجك ، وتعطينا مثال من بياناته ، لكان الجواب اسرع من الاعضاء 🙂

 

جعفر

[مهند محسن]

ممنون استاذ جعفر

استاذ جعفر حقل الباركود في النموذج الفرعي

مع الشكر

استاذ جعفر صورة مرفقة

[jjafferr]

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

 

جعفر

[مهند محسن]

منون استاذ جعفر

الشرح في المرفق فيديو.....

مع الشكر

فيديو.rar

[jjafferr]

 

في حقل الباركود (ولنسمية Barcode) ، على حدث "بعد التحديث" ، اكتب التالي :

if me.Barcode<>me.BarCode.oldvalue then
	docmd.gotorecord,, acnewrec
	me.Barcode.setfocus
	exit sub
end if

 

جعفر

[مهند محسن]

السلام عليكم استاذ جعفر

لايعمل

مع الشكر

[jjafferr]

طيب خلينا نشوف اللي الكمبيوتر يشوفه:

في حقل الباركود (ولنسمية Barcode) ، على حدث "بعد التحديث" ، احذف الكود السابق ، واكتب هذا الكود

debug.print "Update " & me.Barcode
debug.print "Update " & me.BarCode.oldvalue
debug.print "Update " & me.Barcode.text

.

وكذلك على حدث "عند التغيير" On Change ، ضع هذا الكود :

debug.print "Change " & me.Barcode
debug.print "Change " & me.BarCode.oldvalue
debug.print "Change " & me.Barcode.text

.

وفي النموذج:

ادخل الباركود مرة واحدة ،

ثم ادخل باركود جديد ،

ثم ادخل في نافذة الكود ، وستلقى ارقام الباركود في النافذة تحت (رجاء تخبرني هذه الارقام)

.

جعفر

[مهند محسن]

استاذ جعفر

لم يتغير شيء ولم تظهر اي ارقام

مع كل التقدير

[jjafferr]

منذ ساعه, مهند محسن said:

ولم تظهر اي ارقام

الكود الذي اعطيتك ، يجب ان تستعمل اسم الحقل الحقيقي مكان الاسم الذي انا كتبته Barcode

اذا وضعت الكود في الحدثين كما اخبرتك ، واتبعت التعليمات ، فستظهر لك الارقام في اسفل الشاشة ،

والارقام ستجدها في صفحة الكود (استخدم Ctrl+G للدخول لنافذة VBE) وستجد نافذة immediate في اسفل الشاشة.

 

جعفر

[مهند محسن]

استاذ جعفر السلام عليكم

هذه الرقام

Change 
Change 
Change 8424450074756
Change 
Change 
Change 8424450074756
Change 
Change 
Change 8424450074756
Change 
Change 
Change 8424450074756
Change 
Change 
Change 8424450074756
Change 
Change 
Change 8424450074756
Change 
Change 
Change 8424450074756
Change 
Change 
Change 8424450074756
Change 
Change 
Change 8424450074756
Change 
Change 
Change 8424450074756
Change 
Change 
Change 8424450074756
Change 
Change 
Change 8424450074756
Change 
Change 
Change 8424450074756
Update 2
Update 
Update 8424450074756
Change 
Change 
Change 6008165236108
Change 
Change 
Change 6008165236108
Change 
Change 
Change 6008165236108
Change 
Change 
Change 6008165236108
Change 
Change 
Change 6008165236108
Change 
Change 
Change 6008165236108
Change 
Change 
Change 6008165236108
Change 
Change 
Change 6008165236108
Change 
Change 
Change 6008165236108
Change 
Change 
Change 6008165236108
Change 
Change 
Change 6008165236108
Change 
Change 
Change 6008165236108
Change 
Change 
Change 6008165236108
Update 1
Update 
Update 6008165236108

[jjafferr]

شكرا 🙂

 

في حقل الباركود (ولنسمية Barcode) ، على حدث "بعد التحديث" ، اكتب التالي ، ولكن اكتبه في بداية الحدث قبل اي كود آخر عملته انت :

if me.Barcode<>me.BarCode.text then
	docmd.gotorecord,, acnewrec
	me.Barcode.setfocus
	exit sub
end if

 

جعفر

[مهند محسن]

أستاذ جعفر السلام عليكم ان شاء الله بخير

لم يتغير شيء

أستاذ انا تبعتك معي

كل الشكر

[jjafferr]

اذن لم يبقى إلا ان اشوف هذه الجزئية من برنامجك ، وتقدر يا انك ترفقه هنا ،

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

 

جعفر

[jjafferr]

السلام عليكم اخوي مهند 🙂

 

قبل ان ترسل الملف ، اريدك ترسل لي الكود خلف حقل الباركود وبعد ان تكون قد ادخلت الكود الذي في مشاركتي السابقة (الذي قلت انه لم يتغير شيء)، وجميع الاحداث اللي لها علاقة بهذا الحقل ،

الشيء الذي جاء على بالي ، انه بعد ادخال الباركود ، كان يجب ان ينتقل المؤشر الى الحقل التالي ، بينما في وضعك فإنه لم ينتقل ، فهذا معناه انه هناك كود يمنعه من ذلك ، لذا اريد اشوف الكود 🙂

 

جعفر

[مهند محسن]

السلام عليكم استاذ جعفر

تعبتك معي

انت استاذنا... للتوضيح فقط مرفق صور للكواد قبل الحدث وبعد الحدث ومؤشر بلون احمر وباقي الكواد خاصة بعمليات خرى  وفيديو شرح المطلوب فيه

مع فائق الشكر والتقدير

Untitled5.rar

[jjafferr]

في الواقع تقريبا كنت برفع يدي استسلم ، بدون مرفق 🙂

ولكن الفيديو اوضح الخطأ في الكود ، وهو اني لم انتبه للسجل الجديد الفارغ ، فاليك التعديل

if me.newrecord=false then
  if me.Barcode<>me.BarCode.text then
	docmd.gotorecord,, acnewrec
	me.Barcode.setfocus
	exit sub
  end if
end if  

 

جعفر

[مهند محسن]

السلام عليكم أستاذ جعفر كيف الصحة ان شاء بخير

أستاذ المرفق فيه توضيح بسيط ان شاء الله

مع الشكر والتقدير

6.rar

[Ahmed Fahmy 2022]

برجاء رفع مرفق لحل مشكلتك 

[مهند محسن]

 

السلام عليكم جميعاً

اشكر الأستاذ  محمد علي الطيب و جعفر للمساعدة في إيجاد حل موضوع زيادة الكمية وإدخال صنف جديد في النموذج الفرعي بأكواد بسيطة

 

مع الشكر

 

 

مع فائق الشكر

 

 

2090451155_.rar

[jjafferr]

الحمدلله 🙂

 

عندي ملاحظة على الفيديو الذي الرسلته:

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

.

 

و

.

ثم

.

ولترى اذا ما ذكرته صحيح ، في الجدول الذي فيه بيانات هذا النموذج الفرعي ، شوف حقل "الترقيم التلقائي" (واذا ما عندك ، اعمل واحد) ، ثم شوف التسلسل ، فهل ترى ارقام غير موجودة في التسلسل ، اذا نعم ، فالسبب كما اخبرتك اعلاه.

 

ولا ارى سبب وجود الامر On Error Resume Next في الحدثين ، قبل التحديث وبعد التحديث ، فإذا اردت معرفة ان العملية مافيها مشاكل ، فمؤقتا اوقف عمل السطرين وشوف اذا فيه خطأ ، وشو سطر ورسالة الخطأ.

 

جعفر