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

[abouelhassan]

35 دقائق مضت, د.كاف يار said:

عند الاستيراد 

تأخذ السجلات المستوردة رقم متسلسل يبدء من A

انت حين رفضت التعديل بقت على ماهي عليه دون تعديل

فلو وافقت على التعديل لكانت اخذت الرقم الذي تريده

 

الأمر بإختصار شديد

 

في حال ادخلت رقم تم ادخاله مسبقا سوف تظهر رسالة تحذير ( الرقم مكرر هل تريد التعديل على نفس الرقم) أي هل تريد استخدام نفس الرقم ؟

في حال انك قمت بالرفض لن يحدث اي تغيير على المدخلات أرجوا ان تراجع الكود للتأكد من ذلك

في حال انك وافق سيتم الاحتفاظ بالرقم المكرر المدخل اي سيتم استبدال الرقم التلقائي و الذي يبدء بحرف A  الى الرقم المدخل

في حال كان الرقم جديد سيتم تغيير الرقم التلقائي و الذي يبدء بحرف A  الى الرقم الجديد

 

ارجوا ان تكون الصورة اتضحت كما أرجوا ان تطلع على الكود لكي تعرف كيف تسيير الأمور

بارك الله فيك استاذى الحبيب

جربت التعديل تسلم ايدك وفى حالة انى اكتب رقم مكرر واخترت no بيختفى الرقم المكتوب بالاعلى وبتاخد رقم يبدأب A

هنا ما احتاج تغيره فقط هذه الجزئية وهى عندما اختار NO فى حالة الرقم مكرر يظل الرقم مكتوب عادى ويترحل نفس الرقم لايبدأ بِ A

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

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

اما اذا اختارت NO لايحدث شئ ولا يتغير الرقم الى A بدل يظل كما هو

مثل هذا الكود استاذى 

Private Sub Main_iBill_Number_BeforeUpdate(Cancel As Integer)

varBillNo = DLookup("[iBill_Number]", "tbl_Items", "[iBill_Number] ='" & Me.Main_iBill_Number & "'")
  
    If Not IsNull(varBillNo) Then
         If MsgBox(" هذا الرقم مكرر." & vbCrLf & vbCrLf & "  هل تود تعديل هذا الرقم ", vbYesNo, "Confirmation Required") = vbYes Then
             Cancel = True
                    Me.iBill_Number.Undo
End If
End If
End Sub

ربنا يراضيك ويرضيك مثل ما نكرمنى اخى فى الله بارك الله فيك احترامى

[د.كاف يار]

تفضل هذا التعديل

 

DATA146.zip

[abouelhassan]

اخى الغالى بارك الله فيك استاذى د.كاف يار

تسلم يارب من كل شر

الن اصبح كتب بجانب الرقم المكرر مثلا123456 عندما اكرره يكتب 123456-مكرر

معلش اريده لايكتب شئ يكتب نفس الرقم عادى فى حالة اختيار الرقم مكرر 

معلش سامحنى اخى

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

[abouelhassan]

فى حاجة كمان استاذى  د.كاف يار

اى رقم بكتبه بيتشاف مكرر حتى لو مش مكرر الكود كل رقم اكتبه بيقرأه مكرر

مش عارف له احترامى الشديد

[د.كاف يار]

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

فى حاجة كمان استاذى  د.كاف يار

اى رقم بكتبه بيتشاف مكرر حتى لو مش مكرر الكود كل رقم اكتبه بيقرأه مكرر

مش عارف له احترامى الشديد

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

تفضل التعديل

DATA147.zip

[abouelhassan]

فضلك الله وانعم عليك وزادك من خيره ونعمه استاذى د.كاف يار

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

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

احترام من القلب وخالص الدعاء والله

[د.كاف يار]

الان, abouelhassan said:

فضلك الله وانعم عليك وزادك من خيره ونعمه استاذى د.كاف يار

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

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

احترام من القلب وخالص الدعاء والله

تأكد من تحديد مسار الملف

[abouelhassan]

تسلم ايدك استاذى حبيبي د.كاف يار

والله نفس المشكلة كررت الرقم وبردو ظهر الرقمA كتبت رقم123456 فظهرA7

لو موضوع الرقم مكرر بيسبب مشكلة مش لازم اخى وماتتعب نفسك اكثر الله خيرك

بس يكتب نفس الرقم لايكتب A7 لان رقم الفاتورة مهم جدااا انه يكون مطابق سامحنى والله 

انا احبك فى الله اخى حبيبى

[د.كاف يار]

تفضل هذا التعديل

 

 

DATA148.zip

[abouelhassan]

اسعد الله ايامك استاذى د.كاف يار

تم عمل الاتى اخى فى الله

قمت باختيار مخزن2 وقمت باستيراد ملف الاكسل وكتبت لاقم123456 تمام التمام وقمت بالترحيل تمام

اصبح الفورم فارغ الان الا من مخزن 2 والتاريخ اخترت استيراد المخزن تمام لستورد نفس المخزن كتبت نفس الرقم123456 اختفى كل السطور ماعدا اول سطر فقط

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

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

[د.كاف يار]

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

اسعد الله ايامك استاذى د.كاف يار

تم عمل الاتى اخى فى الله

قمت باختيار مخزن2 وقمت باستيراد ملف الاكسل وكتبت لاقم123456 تمام التمام وقمت بالترحيل تمام

اصبح الفورم فارغ الان الا من مخزن 2 والتاريخ اخترت استيراد المخزن تمام لستورد نفس المخزن كتبت نفس الرقم123456 اختفى كل السطور ماعدا اول سطر فقط

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

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

ما فهمتك

الأن جربت استوردت مخزن 2 و بعدها مباشرة استوردت مخزن 3

و استوردت مخزن 4 و غيرت الرقم مافيه ايش مشكلةو استوردت الي بعده بدون اي مشاكل

 

صور المشكلة ان امكان

[abouelhassan]

بارك الله فيك استاذى د.كاف يار

اولا قمت اختيار التاريخ وكتبت رقم123456 واخترت استخدم الرقم نعم واخترت المخزن 1 واستيراد من اكسيل

وجدت ان الرقم اصبحA7 مع انى كاتب123456 كما بالصورة

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

بعد الترحيل اخترت مخزن1 تانى واخترت استيراد من اكسيل تانى وكتبت 123456 كما بالصورة وجدت انه اصبح سجل واحد كما بالصورة استاذى

 

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

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

هى دى فائدة استيراد من الاكسيل

الله يعزك ويكرمك يارب ويرزقك خير الدارين يارب

 

 

تم تعديل يونيو 11, 2021 بواسطه abouelhassan

[د.كاف يار]

كانت المشكلة انك تضع الرقم قبل الاستيراد

جرب هذا التعديل 

 

للتوضيح

في حال عدم وجود رقم في مربع الرقم سيتم اضافة قيمة عشوائية

DATA149.zip

[abouelhassan]

بارك الله فيك استاذى @د.كاف يار

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

احترامى

 

[د.كاف يار]

جرب هذا

و اتأكد من المسار قبل الاستيراد

DATA1410.zip

[abouelhassan]

والله استاذى حبيبى د.كاف يار

تأكدت جيدا من المسار

ربنا يبارك لك يارب

[د.كاف يار]

تأكد من ملف الاكسل

[abouelhassan]

بارك الله فيك استاذى  د.كاف يار

تم التجربة

اخترت مخزن1 وقمت باستيراده تمام وقمت بالضغط على زر ترحيل بعد ان كتبت رقم123456

وتمتم تغير الرقم

بعد الترحيل اخترت مخزن واحد تانى واستوردت ظهرت هذه المشكلة

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

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

 

[د.كاف يار]

تمت التجربة بكل المعاييير و كانت ناجحة 

الاغلب ان المشكلة في ملف الاكسل لديك

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

Data14.xlsx

[abouelhassan]

بارك الله فيك اخىد.كاف يار

تكمن المشكلة عندما اغير الرقم

هنا قمت بالاستيراد مخزن1 المشكلة الاولى التاريخ انا اختارت بالاعلى2/6/2021 بينما بالاسفل 11/6/2021

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

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

احترامى الشديد

[د.كاف يار]

تفضل هذا التعديل

تم عمل تغييرات جذرية

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

DATA1411.zip

[abouelhassan]

23 دقائق مضت, د.كاف يار said:

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

جميل جميل جميل والله تحفة تحفة كل شئ تمام ما عدا

اننى لا استطيع الادخال العادى لان التاريخ والرقم مش بيعمل الا بعد الاستيراد فقط 

احتاج ان ادخل يدويا ايضا استاذى الغالى لقلبى 

ربنا يحفظك يارب يارب يارب

[د.كاف يار]

تفضل طلبك

 

DATA1412.zip

[abouelhassan]

الله الله الله الله د.كاف يار تسلم ايدك انت مبدع استاذى د.كاف يار

تعيش يارب ربنا ما يحرمن من حضرتك ابدااااااااااااااااااااااااااااااااا

دائم الابداع والله 

تسلم ايدك بارك الله فيك وجزاك الله عنى كل خير  يارب يحفظك وينجيك يارب دائما يارب

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

احبك فى الله اخى