( موضوع مميز) ادخال بيانات من خلال الفورم وترحيلها الى صفحة اخرى

[AbedElkader]

السلام عليكم اخواني الاعزاء

المطلب الاول : عندما دخل اسم الصنف في فورم الادخال اريد ان يعمل بحث حسب الاحرف المدخلة بالترتيب والتصفية حتى يصل الى الصنف المراد معتمداً على اسماء الاصناف المدخلة في الصفحة الثانية (المخزن) العمود الاول ,,, بمعنى عندما ادخل الصنف (راس اكس) بمجرد كتابة الحرف ر تظهر كل الاصناف التي تبدأ بحرف الراء واذا ما قمت بكتابة (را) فيقوم باظهار فقط الاصناف التي تبدأ بحرفي (را) وهكذا وعندما اصل للمطلوب اقوم باختياره فيكتب في الخانية المخصصة لكتابة اسم الصنف .

المطلب الثاني : عندما اقوم بادخال اسم الصنف وبيناته في الصفحة الاولى والتي يسمح بتكرار اسماء الاصناف فيها, اريد ان تدخل البيانات تلقائياً في الصفحة الثانية والتى تعتبر قاعدة بيانات للاصناف بحيث لايمكن تكرار اسماء الاصناف فيها وانما تجميع الارقام في كل الخلايا بحسب المدخل في فورم الادخال في الصفحة الاولى وذلك بحسب اسم الصنف , يعني المفتاح يكون اسم الصنف .

ان شاء الله اكون شرحت المطلوب بشكل مفهوم .

2A0A2000.rar

تم تعديل أكتوبر 16, 2011 بواسطه AbedElkader

[عبدالله المجرب]

السلام عليكم

اخي الفاضل انت وضعت الملف ولكن لم تضع الباسوورد

باسوورد فتح الملف هو 123

ابواحمد

[AbedElkader]

نعم , نأسف اخي الكريم , ولكن الرقم المعتمد في المنتدى إعتقدت هو 123

نأمل من الاخوة العمل معي في عمل المطلوب ....

[AbedElkader]

الاخوة الافاضل بارك الله فيكم ,,, ارجو من حضراتكم مساعدتي في الموضوع

[احمد حمور-ابوعبدالله]

اخي الكريم

بالنسبه لطلبك الاول

الكود الذي كان لديك بالشكل التالي

Set q = .Range("c4:c" & LastRow).FindNext(q)

وهذا بطبيعة الحال خطأ والصحيح هو

Set q = .Range("a5:a" & LastRow).FindNext(q)

اما طلبك الثاني

؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

[AbedElkader]

الف شكر الاخ العزيز ابو عبد الله على استجابتك لسؤالي وبارك الله فيك

لقد تم تغير الكود ولكن للاسف لم يحدث اي تغير ,,,,

اود تسهيل طلبي ,

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

هذا وعندما تحل المشكلة هذه نطرح الطلب الثاني

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

[الـعيدروس]

اخي الفاضل ارجو منك شرح ماهي الية البرنامج

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

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

في شيت DATA_FLDO

اذا هذا ماتقصده اراه صعب في حال الملف حاليا لان شيت المخزون معتمد على معادلات

ولاكن اذا هذه الالية المطلوبة بأذن الله سوف نتوصل الى ماتريده

ارجو منك الرد

[احمد حمور-ابوعبدالله]

اخي الكريم

ارفقت لك نفس ملفك وفيه الحل الذي قلته لك وهو يعمل 100%

ويوجد ايضا شرح فيديو يؤكد صحة العمل

* ارجو التنويه ان الحل المرفق هو خاص بطلبك الاول فقط

My Documents.rar

[AbedElkader]

الاخ الفاضل ابو عبد الله بارك الله فيك وجزاك خيراً على اهتمامك بموضوعي .

الذي فهمته ,تمام فهمته كما يجب ولكن الصنف المضاف يضاف الى المخزون والىDATA_FLDO ايضاً (المهم يمكن تكرار الصنف فيDATA_FLDO اما بالنسبة للورقة الثانية فلا بد الا يتكرر وانما تضاف الكمية الى اسم الصنف وفقط وان لم يوجد الصنف يضاف الى الورقة في صف جديد )

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

[الـعيدروس]

الاستاذ القدير احمد حمود ابو عبدالله جزاك الله خير

تعلمت منك الكثير ياكبير

اخي الفاضل عبدالقادر

احاول اعمل المطلوب اذا زبط ولا فالاساتذة موجودين

لاني مشغول ماادخل النت الا يوم يومين في الاسبوع

تحياتي

[ياسر الحافظ]

اخي الاستاذ " احمد حمور "

روعة ............... استفدت منه كثيرا

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

وفقك الله

ابو الحارث

[AbedElkader]

الاخوة الاعزاء alidroos , ابوعبد الله , اشكر لكم تعاونكم واهتمامكم , فجزاكم الله عني الخير ,

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

[MAHMOUD ALI YOUSSEF]

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

السلام عليكم

نعم كما قال اخي ياسر الحافظ تعديل في محله واكثر من رائع اخي احمد حمور

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

[احمد حمور-ابوعبدالله]

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

عيدروس

ياسر الحافظ

محمد

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

لم افعل الى القليل مجرد تعديل بسيط

بارك الله فيكم جميعا

[AbedElkader]

الاخ الفاضل ابو عبد الله

قمت بتغير بسيط في الكود لكي يعرض الاصناف عند ادخال اول حرف في صندوق البحث من الشيت الثاني وليس الاول

Set MYSH = Sheets("المخزن")

الا انه يعرض من الصفحة الثانية في صندوق البحث ولكن العمل يكون في الصفحة الاولى .

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

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

تم تعديل أكتوبر 21, 2011 بواسطه AbedElkader

[الـعيدروس]

السلام عليكم

هذا المرفق على عجله

ولاكن اريد منك الاطلا ع عليه

هل هكذا الطلب

ماتم اضافتة هو التالي

=====================================

عند اضافة صنف جديد موجود في شيت المخزن يقوم بترحيل الكمية فوق الكمية التي

في المخزن للصنف (حقل الباقي في المخزون)

=====================================

وفي حالة عدم وجود الصنف في المخزن يقوم بإضافة الصنف في كلا من DATA_FLDO و المخزن

=====================================

وتم اضافة مرجع للصنف وهو مايعتمد في التحقق من وجوده في شيت المخزن (ربما تكون صعبة عليك ترقيم الاصناف ولاكن

صعبة التحقق من صنف اذا كان يحوي ارقام ونصوص )

=====================================

وبالنسبة لشيت المخزن ارجو ترتيب الاعمدة عملياً بمعنى يكون نفس اعمدة شيت DATA_FLDO

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

واي ملاحظات او اضافات انا موجود (موجود منفطع )

السموحة منك على التأخير

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

DATA_RFRE.rar

[ياسر الحافظ]

اخي العزيز " العيدروس " ابو نصار

قبل الاطلاع على تعديلك الجديد

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

وفقك الله

ابو الحارث

[الـعيدروس]

الاستاذ الحبيب ياسر الحافظ

هذه بعض دروسكم جزاك الله خير

[AbedElkader]

السلام عليكم

هذا المرفق على عجله

ولاكن اريد منك الاطلا ع عليه

هل هكذا الطلب

ماتم اضافتة هو التالي

=====================================

عند اضافة صنف جديد موجود في شيت المخزن يقوم بترحيل الكمية فوق الكمية التي

في المخزن للصنف (حقل الباقي في المخزون)

=====================================

وفي حالة عدم وجود الصنف في المخزن يقوم بإضافة الصنف في كلا من DATA_FLDO و المخزن

=====================================

وتم اضافة مرجع للصنف وهو مايعتمد في التحقق من وجوده في شيت المخزن (ربما تكون صعبة عليك ترقيم الاصناف ولاكن

صعبة التحقق من صنف اذا كان يحوي ارقام ونصوص )

=====================================

وبالنسبة لشيت المخزن ارجو ترتيب الاعمدة عملياً بمعنى يكون نفس اعمدة شيت DATA_FLDO

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

واي ملاحظات او اضافات انا موجود (موجود منفطع )

السموحة منك على التأخير

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

الاخ الكريم alidroos , بارك الله فيك وجزاك خيراً على المجهود الطيب وكما قال الاخ الفاضل ابو الحارث عنك بأنك الصبور , فزادك الله صبراً على صبر

الاخ العزيز تظهر رسالة خطأ في الكود الاتي ولا علم لي لماذا هذا الخطأ مع انه عمل عندك الملف جيداً

تظهر الاشارة الصفرا عند بداية الكود Sub MSG_TRHEB() ومؤشر الماوس عند كلمة Date , ترى ما المشكلة برأيك ؟؟؟؟!!!

Sub MSG_TRHEB()

Dim FORMAT

Dim thedate As String, thetime As String, greeting As String, fullname As String, firstname As String, ali As String

	Dim spaceinname As Integer, abood As String, alidroos As String, MY As String, thkr As String, thedat As String _

	, trheb As String, heloo As String

	VBA.Calendar = vbCalGreg

	thedat = FORMAT(Date, "long date")

	VBA.Calendar = vbCalHijri

	thedate = FORMAT(Date, "long date")

	thetime = FORMAT(Time, "medium time")

	trheb = "شركة الأسطل لقطع غيار السيارات"

	heloo = "مرحباً بكم في برنامج حسابات شركة الأسطل لقطع غيار السيارت"

	abood = "التـاريخ هجري"

	ali = "التاريخ ميلادي"

	alidroos = "السـاعه"

	thkr = "لاتنسـى ذكــر الله"

	MY = "عبدالقادر من الأراضي الحبيبه maicl2010ye@gmail.com "

	Select Case Time

		Case Is < TimeValue("12:00"): greeting = "السـلام عليكم  صبــاح الخير"

		Case Is >= TimeValue("12:00"): greeting = "السـلام عليكم  مســاء الخير"

		Case Else: greeting = "تصبح على خير"

		End Select

		fullname = Application.UserName

		spaceinname = InStr(1, fullname, "", 1)

		If spaceinname = 0 Then spaceinname = Len(fullname)

		firstname = Left(fullname, spaceinname)

		greeting = greeting

		MsgBox vbNewLine & "===============================================" & vbNewLine & heloo & vbNewLine & "===============================================" & vbNewLine & vbNewLine & "===============================================" & vbNewLine & abood & thedate & vbNewLine & "=====================" & vbNewLine & vbCrLf & ali & thedat & vbNewLine & "=====================" & vbNewLine & vbCrLf & alidroos & thetime & vbNewLine & "=====================" & vbNewLine & vbCrLf & thkr & vbNewLine & "=====================" & vbNewLine & vbCrLf & MY & vbNewLine & "===================================" & vbNewLine & vbNewLine & "===============================================" & vbNewLine & trheb & vbNewLine & "===============================================" & vbNewLine, vbInformation, greeting

End Sub

تم تعديل أكتوبر 22, 2011 بواسطه AbedElkader

[الـعيدروس]

احذف هذا السطر من الكود واغلق الملف مع الحفظ

وافتحه مره اخرى

Dim FORMAT

[الـعيدروس]

اذا لم يزبط معك بعذ حذف الصف المعني

ضيف هاذان السطرين في اول الكود

On Error Resume Next

Dim FORMAT As Variant

[AbedElkader]

اذا لم يزبط معك بعذ حذف الصف المعني

ضيف هاذان السطرين في اول الكود

On Error Resume Next

Dim FORMAT As Variant

الأخ العزيز alidroos جربت الطريقتان وللأسف لم تنجحا .......!!!

[الـعيدروس]

غريب

طيب تفضل جرب المرفق

DATA_RFRE.rar

[AbedElkader]

الاخ العزيز alidroos , المشكلة ما زالت قائمة وسارفق لك الصور التي توضح ذلك ..

ولا اعرف ما السبب

[الـعيدروس]

اذهب الى قائمة References

وحفز على هذا الامر

Microsoft Data Formatting Object Library

عله يفيد

والله اعلم