[ تمت الإجابة ]ارجو المساعدة..ماهوكود ترحيل سجل من نموذج لأخر

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

مرحباً بك اخي bluebird76 بين اخوانك

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

بالتوفيق

_____.rar

بسم الله الرحمن الرحيم

مشكور اخي ع ردك بس يمكن الفكرة ماوصلت شو المراد ؟؟؟

اريد زر الامر لترحيل سجل مجرد ما تم البيع يعني وانا نزلت الملف بعد ما حضرتك عدلت عليه بس الفكرة ما ظبطت ابدا

ارجو ان تكون الفكرة والغاية وصلتك واسف ع الازعاج ارجو المساعدة

ولك جزيل الشكر

لعل هذا هو الحل الذي تريده

_____.rar

بسم الله الرحمن الرحيم

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

لكم جزيل الشكر

أخي الفاضل

تم اضافة استعلام حذف

لترحيل البيانات من النموذج الاول الي النموذج الثاني مع حذفها من النموذج الاول

برجاء مراجعة المرفق

Test_up.rar

بسم الله الرحمن الرحيم

السلام عليكم

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

انا شاكر لكم تعاونكم ولكن لم تصل الفكرة بعد ...؟ أرجو ايجاد الحل لانني جربت كل الطرق المطروحة ولم تفلح

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

تحياتي لأرقى منتدى

اخواني..

اقترح بعد اذن الاساتدة ما يلي،،

اضافة رقم تسلسلي لكل عملية بيع،، في الجدول الرئيس..

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

اذا كانت هذه المشكلة،..

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

همام

أخي الفاضل

تفضل هذا المثال مع الشرح خطوة خطوة

ان شاء الله يفي بالغرض

مرفق الملف بعد التعديل

MF_Test.rar

بسم الله الرحمن الرحيم

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

ارجو منك ان تكمل لي بالطريقة خطوة بخطوة ان امكن

ولك جزيل الشكر

وشكرا لك اخ همام ع هذه اللفتة ولم يخطر ببالي ان اعمل لعملية البيع رقم جل من لا يخطأ

لعل سؤالي قد وضح الان أرجو منكم ان تعذروني ولكن مضطر جدا لهذا الامر لكي اكمل مابدأت به

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

بسم اللله الرحمن الرحيم

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

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

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

تحياتي القلبية

بلو بيرد

الاخ الفاضل bluebird76

من الواضح انك ترفض البحث والاطلاع حول مشكلتك ودائما تنتظر غيرك كي يسقي لك المعلومة علي الجاهز

اذا كنت من هؤلاء فلا مانع لدينا لان نشرح مرة واتنين وعشرة مادمت ترفض او تحاول مجرد النظر او فحص المرفق والمثال المطروح

اولا انشيء جدولين الجدول الاول اسمة Table1 والجدول الثاني اسمة Table2 ثم قم بانشاء الحقول المراد التعامل معها داخل جداولك لاحظ كما في الصورة

حقل ID والذي يوجد بالجدول الاول بنوع بيانات Autonumber وبالجدول الثاني Number

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

بعد تصميم الاستعلامين

اذهب للنماذج لتصميم النموذجين الاول وهو يحمل البيانات المراد ادراجها في النموذج الثاني والنموذج الثاني لاستقبال البيانات الجديدة

ثم قم بتصميم النموذج الاول كما هو موضح بالصورة

بعد الانتهاء من تصميم النموذج ووضع زر علي النموذج

قم بكتابة الحدث التالي تحت حدث الضغط علي هذا الزر

If MsgBox("هل تريد نقل البيانات المختارة", vbInformation + vbYesNo, "ترحيل") = vbNo Then
Exit Sub
Else
If IsNull(ID) Then
Dim x As String
x = MsgBox("أنت لم تقم باختيار بيانات ليتم ترحيلها", vbCritical, "تحذير")
Exit Sub
Else
DoCmd.SetWarnings faluse
DoCmd.OpenQuery "append"
DoCmd.OpenQuery "Delete"
DoCmd.SetWarnings True
Me.Requery
DoCmd.Close
End If
End If
End Sub

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

Private Sub Form_Close()
DoCmd.OpenForm "Table2"
End Sub

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

Private Sub ID_Click()
If Me.Temp.Value = True Then
Me.Temp.Value = False
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Me.Refresh
Else
Me.Temp.Value = True
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Me.Refresh
End If
End Sub

Private Sub Name_Click()
If Me.Temp.Value = True Then
Me.Temp.Value = False
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Me.Refresh
Else
Me.Temp.Value = True
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Me.Refresh
End If
End Sub

Private Sub ZDATE_Click()
If Me.Temp.Value = True Then
Me.Temp.Value = False
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Me.Refresh
Else
Me.Temp.Value = True
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Me.Refresh
End If
End Sub

بعد ذلك افتح علي القائمة Format وادخل علي التنسيق الشرطي

وذلك لكتابة هذا الامر وهو في حالة جعل القيمة التي توجد في الحقل المخفي المسمي Temp الي True

يتم تلوين الحقول باللون الاخضر

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

كيف تبني برنامج مبيعات ومشتريات بطريقة صحيحة

وفي النهاية احب ان اقول لك نحن لم نولد خبراء او عباقرة لكن بالبحث والاجتهاد المستمر نصل لغايتنا وعند الفشل في الوصول نبدأ في السؤال

وفي حالة هذه بدأت بالسؤال قبل البحث والاطلاع

بالتوفيق

بسم الله الرحمن الرحيم

السلام عليكم

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

لك جزيل الشكر مرة ثانية واعذرني للالحاح

بارك الله فيك أخي الغالي

ونحن دائما في خدمة الاعضاء

ولا تزعل من كلامي فمقصدي هو تحفيزك علي البذل الكثير من الجهد للوصول الي غايتك وهو احترافك برنامج اكسس

ولمزيد من الفائده

تفضل هذا الرابط حاول انك تقرأه جيداً وتتعلم منه ان شاء الله يفيدك

/index.ph...plication\

بسم الله الرحمن الرحيم

شكرا لك اخ محمد ع هذا الجخد بكافة مواضيع المنتدى ولكن هذا المثال لم يفلح معي او يمكن يكون الخطأ مني انا بوضع الكود لكل حقل هل هو بكل خانة او بنفس حدث الزر عند النقر ؟؟

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

أخي الفاضل

ممكن ترفق لنا مثال يوضح الخطأ الذي يظهر لك حتي نتمكن من اكتشاف الخطأ وتصحيحة مع وضع التوضيحات والارشادات اللازمة

لتوضيح لك مكان الخطأ

السلام عليكم

اخ محمد المشكلة هي ان يقوم بترحيل كل السجلات بكليك واحد وانا اريد سجل سجل

لقد فقدت الامل بالوصول للحل

أرفق مثالك يا أخي بتنسيق ( 2003 ) وسيصلك الحل إن شاء الله !!

اخواني لقد تعسر البرنامج اكثر ما كنت متوقع

اولا اني اصمم البرنامج ع اكسس 2007

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

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

ما العمل ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ :S

اقتباس

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

أخي الفاضل

هكذا حالك وحال اعضاء كثيرين عندما يضطرون يسألون بدون علم

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

اما اذا اردنا التطوير والتصميم بانفسنا فعلينا اولا التعلم ثم التعلم ثم التعلم حتي نستطيع بناء البرنامج المطلوب والوصول لغايتنا

تفضل المثال بعد التعديل ونقل البيانات دفعة واحدة بدون المرور علي سجل سجل واختيارة

MF_Test_up.rar

صباح الخير

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

يمكن المواقع تعبت مني

:D

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

شر البلية ما يضحك :D :S

اعزائي لاحظت ان قراء هذا الموضوع مهتمون به ...ولكن انا الى الان لم اجد حل لمشكلتي الاخ محمد لقد ساعدني وتحملني كثيرا وانا احاول بكل الاتجاها والامر الذي ازداد سوء هو ان في البداية تم الامر بمشكلة بسيطة الآن لم يتم الامر ابدا بالترحيل

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

لنبدأ بالمشكلة

قمت بالخطوات التالية ولكن تغير المشروع بدل جدول اصبح استعلام ؟؟؟

ترحيل من استعلام لجدول

ثانيا

اي كود اضعه لهذا البرنامج يصدر لي خطأ ولم اعرف لماذا

ع سبيل المثال كلمة سر لزر حذف ..فشل المر وانا في حيرة من امري لان وعدت صاحب البرنامج بتسليمه غدا فهل من مساعد ؟؟

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

تحياتي لكل قارئ هذا الموضوع

اقتباس

لنبدأ بالمشكلة

قمت بالخطوات التالية ولكن تغير المشروع بدل جدول اصبح استعلام ؟؟؟

ترحيل من استعلام لجدول

أخي الفاضل

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

اقتباس

اي كود اضعه لهذا البرنامج يصدر لي خطأ ولم اعرف لماذا

ع سبيل المثال كلمة سر لزر حذف ..فشل المر وانا في حيرة من امري

اما بخصوص مشكلتك الثانية فلا تحتار تفضل هذا المثال ربما يفي بالغرض

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

Delet_Record.rar