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

[ابو جودي]

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

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

 ام هو درب من دروب الخيال

لفيت كتير وما وصلت لحل 

انا عاوز اعمل LOOP  لزر امر فى نموذج مستمر بحيث يتم المرور على كل سجل موجود لينفذ الكود الموجود على زر الامر لكل سجل حسب عدد السجلات بدون تدخل من المستخدم

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

مش عاوز حد يزعق انا عارف انه سؤال قمة فى الغباء زى صاحبة بس بلاش زعيق  

TEST LOOP .mdb

تم تعديل مارس 12, 2018 بواسطه ابا جودى

[أبو آدم]

الأخ أبا جودي

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

و اليك المطلوب ( باذن الله )

في تذييل النموذج انشيئ زر أمر و ضع خلفه الروتين التالي

Private Sub cmdDoAll_Click()
' Posted by Nart Lebzo To Abu Judi ... www.officena.net
Dim LResponse As Integer

LResponse = MsgBox("Are you sure you want to do this ( Abu Judi )?", vbYesNo, "Continue")

If LResponse = vbYes Then
   
    On Error GoTo cmdDoAll_Click_Err
    Dim rs As DAO.Recordset
    
    Set rs = Me.Recordset

    rs.MoveFirst
    Do While Not rs.EOF
     '*********
    If Len(Me.Blob_File_Name & "") = 0 Then
        MsgBox "There is No Blob file."
        Exit Sub
    End If
    
    Dim Project_path, strFolderName As String
    Project_path = Application.CodeProject.Path
    strFolderName = Project_path & "\program file\"
    
    If Len(strFolderName & "") = 0 Then Exit Sub
    Copy_Blob_File_Write "nothing", strFolderName & "\" & Me.Blob_File_Name, Me.Blob_ID
 
     '*********
        rs.MoveNext
    Loop
    rs.MoveFirst
    Set rs = Nothing

cmdDoAll_Click_Exit:
    Exit Sub

cmdDoAll_Click_Err:
    MsgBox "Error: " & Err.Number & vbCrLf & Err.Description
    Resume cmdDoAll_Click_Exit

Else
    Me.Blob_ID.SetFocus
End If
End Sub

و التطبيق خير دليل ... دعوة طيبة بظهر الغيب لأخيك أبا آدم

و الله من وراء القصد ...

تفضل ...

NA_AJ_LoopContinuesForm.mdb

[ابو جودي]

4 ساعات مضت, أبو آدم said:

الأخ أبا جودي

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

و اليك المطلوب ( باذن الله )

في تذييل النموذج انشيئ زر أمر و ضع خلفه الروتين التالي

و التطبيق خير دليل ... دعوة طيبة بظهر الغيب لأخيك أبا آدم

و الله من وراء القصد ...

تفضل ...

NA_AJ_LoopContinuesForm.mdb

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

ياااااااااااه هههههههههههههه وجدت حلا وكنت اعتقد ان السؤال دربا من الغباء 

استاذى الجليل ومعلمى القدير الاستاذ @أبو آدم 

حياكم الله وبياكم 

اولا كنت اقصد ( بلا زعيق )  اقصد من اساتذتى لى ظنا منى ان السؤال قمة فى الغباء لانى اعتقده هكذا
فلم أقصدعلو الصوت منى انا على اساتذتى فمن ان ليعلو لى صوت على اساتذتى الذين ادين لهم واليهم بكل الفضل بعد رب العزة سبحانه وتعالى 
 
@أبو آدم قل لي ما العمل  .... فاليأس وقتها قـد غلـب الأمـل
فمسألتى عن تكرار ودوارن بلوب  ...    فحسبتـه حـان الأجـل
وفزعت حينها من قلة حيلتى  .....    ومن ظلمة عقلى اذ قفل
فأخذ يجول بين أسطر الأكواد ...... و يصــــول صولات البطل
@أبو آدم مهلاً يا أستاذى ..... شعرت أن ما كل مسألة تحـل
فمن الفطانة نافـــــــــــع   ......   ومــــــــــــن الفطانة مـا قتـل
قد كنت أقل طالـــــــــــب   ..  و أنـا و ربـي لـــــــــــــــــــم أزل
فإذا أتتك مســــــــــألتى     ..  فيهـا ســــــــــــــــــــؤال لا يحـل
دعها وانظر لغيــــــــــرى ..  والصفـــــر ضعه على عجـــــــــل
لكم فى الله صدق ومحبة ..   لن تنتهى أبـــدا ولــــــــن تتزلزل

 

رغم أن الكلمات تحتار أين تقف في مسرح الأحرف لتنظم من نفسها أجمل العبارات ..لأهديها لكم
فمشاعرى هي كلماتى المسطورة وكلماتى هي دليل قلبى وقلبى نبضاته تقول لكم 
الف شكر  ( أستاذى الجليل ومعلمى القدير ( @أبو آدم ) أنت وكل أساتذتنا الكرام
ولو أنى أجد عبارت الشكر تخجل منكم فهى أقل من أن توفيكم حقكم وقدركم

رأيـــت الحـق حـق المـعـلـم وأوجبة حفظاً على كل مسلم
له الحق أن يهدي إليه كرامة لتعليم حرف واحــد ألف درهم

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

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

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

 

تم تعديل مارس 12, 2018 بواسطه ابا جودى

[kanory]

ما شاء الله تبارك الله .... لافض فوك ابا جودي 🥀🥀

[ابو جودي]

4 دقائق مضت, kanory said:

ما شاء الله تبارك الله .... لافض فوك ابا جودي 🥀🥀

 جزاكم الله خيرا اهى الحبيب @kanory

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

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

شكرا على مروركم وكلماتكم الرقيقة اخى الحبيب

[أبو آدم]

أخجلتم تواضعنا أبا جودي

شكرا على المعلقة الجودية ... و جزاك الله عني خير الجزاء بدعائك الطيب

و أحسن الله اليك كما أحسنت إلي

شكرا

[ابو جودي]

8 دقائق مضت, أبو آدم said:

أخجلتم تواضعنا أبا جودي

شكرا على المعلقة الجودية ... و جزاك الله عني خير الجزاء بدعائك الطيب

و أحسن الله اليك كما أحسنت إلي

شكرا

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

[ابو جودي]

هذا الملف بعد التعديلات الطفيفةحتى تتماشى مع افكارى فى الية التصميم والعمل

اتمنى اعرف رأى حضرتك يا أستاذى الجليل ومعلمى القدير @أبو آدم

 

NA_AJ_LoopContinuesForm 2_.zip

تم تعديل مارس 12, 2018 بواسطه ابا جودى
تعديل المرفق

[ابوخليل]

4 ساعات مضت, أبو آدم said:

شكرا على المعلقة الجودية ... 

 

[أبو آدم]

18 ساعات مضت, ابا جودى said:

هذا الملف بعد التعديلات الطفيفةحتى تتماشى مع افكارى فى الية التصميم والعمل

اتمنى اعرف رأى حضرتك يا أستاذى الجليل ومعلمى القدير @أبو آدم

ممكن تشرح لنا الفكرة و الحاجات كي نتمكن من المساهمة جميعا

[ابو جودي]

في ١٣‏/٣‏/٢٠١٨ at 12:58, أبو آدم said:

ممكن تشرح لنا الفكرة و الحاجات كي نتمكن من المساهمة جميعا

طبعا طبعا استاذى الجليل ومعلمى القدير استاذ @أبو آدم 

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

اسأل الله تعالى ان يجمعنا به على خير ويرده الينا سالما غانما ان شاء الله

ولاننى هاوى وغير محترف وقعت وتعثرت فى الاتى 

1- عند محاولة وضع الصور داخل القاعدة تكبر القاعدة جدا حتى بحجم اكبر من الصورة  ( مشكلة كبيرة )

2-عند استخدام الصور بجانب القاعدة وتمرر للكائنات من خلال الرابط فتكون مرتبطة بالقاعدة وليست مضمنة قد تمحى الصور بالخطأ او قد تنقل القاعدة الى جهاز اخر دون الصور ( مشكلة كبيرة)

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

4-تحزيم قاعدة البيانات كان الحل الامثل ولكن وجدت الشروحات تعتمد على برامج خارجية واجهت معها بعض المشاكل او قد يكون سوء فهم منى وقلة حيلة

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

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

وبناء عليه استكلمت افكارى كما فى المرفق 

تم تعديل مارس 14, 2018 بواسطه ابا جودى