مساعدة بفورم الترحيل

[abouelhassan]

السلام عليكم ورحمة الله اخواتى الاساتذة الاجلاء الافاضل

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

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

واكرر العملية لعدد من 180 سطر الى 200 ثم اختار خروج وارجع ادخل تانى لادخال الفاتورة التالية وهكذا

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

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

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

التاريخ اكتبه واكتب الرقم وهنا عند اختيار المخزن من اعلى مثلا اجد الاسطر اتكتبت مثلا 30 سطر الاسم فيهم ايراد والمبلغ كلهم يكون 0 امابالنسبة الصفحة امكانية التعديل فى الاسماء وترتيبها حتى ارتبهم 

وبكده اكتب انا المبالغ فى الاسطر ويتم الترحيل للاسطر التى بها مبالغ اما التى بها المبلغ 0 لا ترحل وكل مخزن له اسماء صفحات معينة

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

 

 

 

DATA11.mdb

تم تعديل فبراير 5, 2021 بواسطه abouelhassan

[jjafferr]

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

 

العمل بهذه الفكرة غير صحيح !!

ثم انك لن توفر اي وقت اضافي (غير الضغط على زر Tab ثلاث مرات لكل سجل) !!

 

جعفر

[abouelhassan]

صح طيب هل فى اى حل استاذى الحبيب

بارك الله فيك

[jjafferr]

شو هي المشكلة اللي تريد لها حل ؟

 

وسؤال، هل تحصل على هذه القائمة من ملف معين ، اكسل او وورد او ملف نص؟

اذا الجواب نعم، فنعم ممكن ان نستوردها 🙂

 

جعفر

[abouelhassan]

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

بارك الله فيك اخي الكريم الغالى على قلبى

[jjafferr]

انت عندك 6 حقول :

3 حقول منهم ثابته: التاريخ والرقم والمخزن ، والبرنامج تلقائيا يعبئهم لك لما تخرج من السجل ،

3 حقول متغيرة: الاسم والمبلغ والحساب ،

فهل تريد ان تعمل 30 سجل (مثلا) من هذه المعلومات ؟

فيكون عندك 30 سجل ، لا فيهم الاسم ولا المبلغ ولا الحساب ، ويكون فيهم التاريخ والرقم والمخزن ؟

 

[abouelhassan]

حبيبي واخويا استاذى حفظكم الله

اريد الاسم والصفحة ولما اكتب المبلغ السطر يترحل يعنى 30 سطر التاريخ والرقم والمخازن زى ما هم اوتو العطلة بتكون فى اختيار الصفحات  لأن عددهم كبير حوالى 60وكتابة الاسم فاهمنى استاذى سامحنى

 

تم تعديل فبراير 5, 2021 بواسطه abouelhassan

[jjafferr]

لا مو واضح!!

الافضل ان تعمل مثال على الاكسل مثلا ، ويمكن لبكرة الصباح يكون احد الاعضاء شاف وفهم المثال ، وعمل لك ما تريد 🙂

اما انا ، فحان وقت اقفل المحل 😁

 

جعفر

[abouelhassan]

تصبح على خير استاذى حاضر

[abouelhassan]

هذا استاذى الفاضل كود بالاكسيل يقوم بعمل ماشرحته لحضرتك 

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

ومرفق اخر قاعدة بيانات 

احترامى وخالص دعائى

شرح الكود.xlsm

 

 

DATA12.mdb

تم تعديل فبراير 6, 2021 بواسطه abouelhassan

[jjafferr]

هل تعلم ،

انك لما وتريد تعمل نسخة من سجل ، فكل اللي عليك عمله هو الضغط على القطعة هذه ، ثم بالكيبورد تعمل نسخ Ctrl+C

.

ثم تنقر على المربع اللي تحته (عليه علامة * ) ، ثم تلصق بازرار الكيبورد Ctrl+V ، فيتم نسخ السجل كاملا الى سجل جديد (اعمله لعدد السجلات التي تريدها) ،

واذا اردت ان تحذف سجل ، فكذلك انقر على مربع السجل (او السجلات) ، ثم اضغط على زر الكيبورد Del لتحذفها (ستخرج لك رسالة لتأكيد العملية) 🙂

 

 

انت قلت في ملف الاكسل :

اقتباس

وفى كود الترحيل بيتم ترحيل البيانات التي بها مبلغ فقط اما التي مبلغها صفر لا ترحل

بينما الطريقة اللي عملت لك البرنامج ، كل سجل تكتبه ، يتم حفظه مباشرة !

لهذا السبب قلت لك من البداية :

15 ساعات مضت, jjafferr said:

العمل بهذه الفكرة غير صحيح !!

 

 

اليك هذه الطريقة لنسخ السجل الذي انت عليه الى سجل جديد ، فقط انقر على الزر "انسخ" ، وسوف يعمل يكرر السجل Duplicate الذي انت عليه 🙂

 

جعفر

 

1311.9.DATA12.mdb.zip

[abouelhassan]

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

بس انا برده هضطر افتح القائمة لاختيار الصفحة ما بين 60 حساب كل مرة لاختيار الحساب

ممكن اعرف حضرتك ازى الملف بيفتح كأنى واضع ايدى على الشيفت زر ربنا يحفظك يارب

اعزك المولى وحفظك ورعاك

تم تعديل فبراير 6, 2021 بواسطه abouelhassan

[abouelhassan]

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

وربط الاسم فى كل سطر بالسطر الاول زى التاريخ والرقم يتكتب اوتو مع امكانية تغيره هل هذا بالامكان استاذى

مشكور بارك الله فيك

 

[ابوبسمله]

7 ساعات مضت, jjafferr said:

اليك هذه الطريقة لنسخ السجل الذي انت عليه الى سجل جديد ، فقط انقر على الزر "انسخ" ، وسوف يعمل يكرر السجل Duplicate الذي انت عليه 🙂

 

ماشاء الله بارك الله فيك معلمنا العزيز جعفر 💐

[jjafferr]

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

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

كنت اعتقد بأني عملت المطلوب !!

انا عادة ما انسحب ، ولكني في هذه الحالة انسحب واترك المجال لغيري ، لعله يفهم طلبك ، ويساعدك !!

 

[abouelhassan]

حضرتك حبيبي واخويا استاذى حفظكم ربي يا راجل يا محترم جدا جدا جدا جدا جدا

 

[ابوبسمله]

15 دقائق مضت, jjafferr said:

لعله يفهم طلبك ، ويساعدك !!

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

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

وهنا توقفت لانى لم ارى اى اساس لهذه الادخالات بهذا العدد

واذا فرضت انى ساقوم بادخال الحساب وهم عدد 11 سجل بجدول tbl_Pages يتبقى الاسم ولم ارى له اساس فالادخال

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

 

[abouelhassan]

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

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

فعايز اى حل بحيث ارتب عدد 30 حساب او 20 فى مكان اخر وعندما افتح اجد الاسطر وراء بعض الاسم اكتب الاسم فى خلية فيكتب بكل النماذج وليكن ايرادات او اكتب فى اول نموذج باول سطر فى نموذج الاسم اكتب ايرادات فتكتب ايرادات فى كل النماذج اسفل منه 

وبكده اكتب انا المبالغ وياريت يكون هناك زر للترحيل بدل زر الخروج وارجع ادخل تانى

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

[abouelhassan]

استاذى jjafferr جعفر حفظك الله

طيب هل بالامكان عمل زر يعمل reloud بدل زر الخروج بحيث اظل بصفحة الادخال طالما ادخل بيانات لا اظل ادخل اوخرج

لكى ادخل فاتورة جديدة ويتوقف زر الخروج عند الانتهاء من كل الادخالات فاختار خروج للانتهاء مش كل شوية اخرج ليتم افراغ النموذج لاعادة الادخال

ان شاء الله سهلة عليك يارب

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

DATA12.mdb

تم تعديل فبراير 6, 2021 بواسطه abouelhassan

[ابوبسمله]

طيب مبدئيا بلاش كلمة استاذ لى فما انا الا طالب علم معكم

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

Private Sub btnNew_Click()
On Error GoTo Err_btnNew_Click


    DoCmd.GoToRecord , , acNewRec

Exit_btnNew_Click:
    Exit Sub

Err_btnNew_Click:
    MsgBox Err.Description
    Resume Exit_btnNew_Click
    
End Sub

بالنسبه لاخر تعديل قمت به وهو بادخال الحساب وهم عدد 11 سجل بجدول tbl_Pages

فاذا قمت بكتابه فحقل العدد 2 سيقوم بادراج 22 سجل اى بضرب هذا العدد فى عدد سجلات tbl_Pages اى 2*11

هذه محاولاتى الضعيفه بجوار اساتذتى جزاهم الله خيرا

 

DATA11(1).mdb

[abouelhassan]

الف شكر لحضرتك اخى احمد حفظك الله

للاسف زر الفاتورة الجديدة لم يعمل معى

اشكرك بارك الله فيك

 

تم تعديل فبراير 6, 2021 بواسطه abouelhassan

[ابوبسمله]

29 دقائق مضت, abouelhassan said:

 

للاسف زر الفاتورة الجديدة لم يعمل معى

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا

صحيح ولم انتبه له فانا بتابع وانا اعمل فاعذرنى

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

Private Sub btnNew_Click()
On Error GoTo Err_btnNew_Click


    DoCmd.Close
    DoCmd.OpenForm "frm_Items_Entry"

Exit_btnNew_Click:
    Exit Sub

Err_btnNew_Click:
    MsgBox Err.Description
    Resume Exit_btnNew_Click
    
End Sub

 

[abouelhassan]

بارك الله فيك اخى احمد

هل يمكن منع اهتزاز الشاشة عند التنفيذ

بارك الله لك اخى

 

[ابوبسمله]

9 ساعات مضت, abouelhassan said:

بارك الله فيك اخى احمد

هل يمكن منع اهتزاز الشاشة عند التنفيذ

بارك الله لك اخى

 

وفيك بارك الله 

هذا ليس باهتزاز بل هو إغلاق وفتح النموذج

 

[jjafferr]

20 ساعات مضت, احمد الفلاحجي said:

DoCmd.Close
DoCmd.OpenForm "frm_Items_Entry"

 

جرب هذا الكود ، فهو يلغي خاصية ادخال البيانات ، ثم يُفعلها مرة اخرى ، ولا يغلق النموذج :

    Me.DataEntry = False
    Me.DataEntry = True

 

جعفر