عمر طاهر قام بنشر يونيو 27, 2022 مشاركة قام بنشر يونيو 27, 2022 السلام عليكم ورحمة الله اخواني الكرام هل يمكن استعراض السجلات بالتتالي عند الخروج ؟ بمسج بوكس.؟ مثل مربع حوار النسخ بتاع الكمبيوتر ..؟ aa.accdb رابط هذا التعليق شارك More sharing options...
Moosak قام بنشر يونيو 27, 2022 مشاركة قام بنشر يونيو 27, 2022 (معدل) وعليكم السلام ورحمة الله وبركاته أخي عمر 🙂 هذا حسبما فهمت .. عملت فكرتين .. ضع هذا الكود في حدث عند الإغلاق : Private Sub Form_Close() Dim x As Integer '----------------------------------------------(الفكرة الأولى) DoCmd.GoToRecord , , acFirst For x = 1 To Me.Recordset.RecordCount MsgBox Me.n DoCmd.GoToRecord , , acNext Next '----------------------------------------------(الفكرة الثانية) Dim txt As String DoCmd.GoToRecord , , acFirst For x = 1 To Me.Recordset.RecordCount txt = txt & Me.n & vbNewLine DoCmd.GoToRecord , , acNext Next MsgBox txt End Sub aa.accdb تم تعديل يونيو 27, 2022 بواسطه Moosak 1 رابط هذا التعليق شارك More sharing options...
عمر طاهر قام بنشر يونيو 27, 2022 الكاتب مشاركة قام بنشر يونيو 27, 2022 9 دقائق مضت, Moosak said: وعليكم السلام ورحمة الله وبركاته أخي عمر 🙂 هذا حسبما فهمت .. ضع هذا الكود في حدث عند الإغلاق : Private Sub Form_Close() Dim x As Integer DoCmd.GoToRecord , , acFirst For x = 1 To Me.Recordset.RecordCount MsgBox Me.n DoCmd.GoToRecord , , acNext Next End Sub aa.accdb 456 kB · 0 downloads شكرا اخي ولكن الا يتم ذلك تلقائيا بدون الضغط على موافق ؟ رابط هذا التعليق شارك More sharing options...
Moosak قام بنشر يونيو 27, 2022 مشاركة قام بنشر يونيو 27, 2022 3 دقائق مضت, عمر طاهر said: شكرا اخي ولكن الا يتم ذلك تلقائيا بدون الضغط على موافق ؟ قمت الآن بتعديل المرفق .. عملت فكرة ثانية 🙂 3 دقائق مضت, عمر طاهر said: ولكن الا يتم ذلك تلقائيا بدون الضغط على موافق ؟ هنا ستدخل في مسألة هل يمكن عمل رسائل ذاتية الاختفاء 🙂 .. ولكن للأسف ليس لدي فكرة .. رابط هذا التعليق شارك More sharing options...
عمر طاهر قام بنشر يونيو 27, 2022 الكاتب مشاركة قام بنشر يونيو 27, 2022 6 دقائق مضت, Moosak said: قمت الآن بتعديل المرفق .. عملت فكرة ثانية 🙂 هنا ستدخل في مسألة هل يمكن عمل رسائل ذاتية الاختفاء 🙂 .. ولكن للأسف ليس لدي فكرة .. قصدت الانتقال الى التالي من السجلات وليس انهاء الرسالة رابط هذا التعليق شارك More sharing options...
عمر طاهر قام بنشر يونيو 27, 2022 الكاتب مشاركة قام بنشر يونيو 27, 2022 ...؟ رابط هذا التعليق شارك More sharing options...
Moosak قام بنشر يونيو 27, 2022 مشاركة قام بنشر يونيو 27, 2022 2 ساعات مضت, عمر طاهر said: قصدت الانتقال الى التالي من السجلات وليس انهاء الرسالة نعم هي رسائل متتالية تضغط موافق لتختفي وتفتح لك الرسالة الثانية فالثالثة وهكذا .. الفكرة : رسائل ذاتية الاختفاء ، تختفي لتظهر الأخرى .. رابط هذا التعليق شارك More sharing options...
أفضل إجابة ابو جودي قام بنشر يونيو 27, 2022 أفضل إجابة مشاركة قام بنشر يونيو 27, 2022 2 ساعات مضت, Moosak said: الفكرة : رسائل ذاتية الاختفاء ، تختفي لتظهر الأخرى .. اتفضل يا سيدى احلام معاليك اوامر يا باش مهندس @Moosak اى خدمه يارب تنبسط بس تعتمد الفكرة على وضع الروتين الاتى فى وحدة نمطية Public opt As Integer Public Function MesgBox(ByVal msgText As String, _ Optional ByVal TimeInSeconds As Integer, _ Optional ByVal intButtons = vbDefaultButton1, _ Optional TitleText As String = "WScript") As Integer On Error GoTo MesgBox_Err Dim winShell As Object Set winShell = CreateObject("WScript.Shell") MesgBox = winShell.PopUp(msgText, TimeInSeconds, TitleText, intButtons) MesgBox_Exit: Exit Function MesgBox_Err: winShell.PopUp Err & " : " & Err.Description, 0, "MesgBox()", vbCritical Resume MesgBox_Exit End Function ويتم استدعاء الورتين من خلال opt = MesgBox(Me.n & vbCr & vbCr & " Please wait . . .", 1, vbInformation, "Info") حيث ان بناء الكود كالاتى 'Syntax: opt = MesgBox(msgTxt,intSeconds,Buttons+Icon+DefaultButton,"Title") aa V2.accdb 2 رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر يونيو 27, 2022 مشاركة قام بنشر يونيو 27, 2022 فى فوكيره تانى بره الصندوق اشرحها نظرى الان وممكن التطبيق لاحقا ممكن نعمل نموذج يستعرض السجلات تباعا باستخدام حدث فى الوقت من السجل الاول الى الاخير و يغلق تلقائيا بعد السجل الأخير مرفق تطبيق الفكرة aa V3.accdb 1 رابط هذا التعليق شارك More sharing options...
Moosak قام بنشر يونيو 27, 2022 مشاركة قام بنشر يونيو 27, 2022 لله درك يا @ابو جودي رجل المهمات الصعبة 😉💪 حلوة جدا .. بس تتأخر حبتين .. 😏 يعني تبدأ تقفل بعد دقيقة تقريبا .. 2 ساعات مضت, ابو جودي said: وضع الروتين الاتى فى وحدة نمطية إلى المكتبة العامرة بالأكواد 😁✌️ 1 رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر يونيو 27, 2022 مشاركة قام بنشر يونيو 27, 2022 3 دقائق مضت, Moosak said: حلوة جدا .. بس تتأخر حبتين .. 😏 ههههههه طماع البنى ادم ده تتأخر حبتين وهى تتأخر ثانية واحدة يا سيدى وتأتى بالنفع منها افضل من عدمها ومع ذلك شوف الفكرة رقم 3 يا سيدى بدون الرسالة خالص اللى تتأخر حبتين دى لا تزعل روحك المهم تنبسط ما نقدر على زعلك رابط هذا التعليق شارك More sharing options...
Moosak قام بنشر يونيو 27, 2022 مشاركة قام بنشر يونيو 27, 2022 2 ساعات مضت, ابو جودي said: نموذج يستعرض السجلات تباعا هذي دمها عسل زيك 8 دقائق مضت, ابو جودي said: وهى تتأخر ثانية واحدة لأ بجد .. تتأخر معاي دقيقة كاملة 1 رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر يونيو 27, 2022 مشاركة قام بنشر يونيو 27, 2022 11 دقائق مضت, Moosak said: هذي دمها عسل زيك والله انت اللى عسل يا عسل انت رابط هذا التعليق شارك More sharing options...
Eng.Qassim قام بنشر يونيو 27, 2022 مشاركة قام بنشر يونيو 27, 2022 3 ساعات مضت, ابو جودي said: اتفضل يا سيدى الللله... ايه الحلاوة دي يا بشمهندس ...عاشت الايادي بس انا بدي افهم ..وسؤالي للاخ لصاحب المشاركة ...ماهي الفائدة من ذلك ؟ولاي شيء تستخدم يعني المستخدم حيستفاد ايه من الحكاية دي ؟ يئبرني شو مهضوم الواد دة محمد عصام هههههههه 1 رابط هذا التعليق شارك More sharing options...
عمر ضاحى قام بنشر يونيو 27, 2022 مشاركة قام بنشر يونيو 27, 2022 3 ساعات مضت, ابو جودي said: فى فوكيره تانى بره الصندوق اشرحها نظرى الان وممكن التطبيق لاحقا ممكن نعمل نموذج يستعرض السجلات تباعا باستخدام حدث فى الوقت من السجل الاول الى الاخير و يغلق تلقائيا بعد السجل الأخير مرفق تطبيق الفكرة aa V3.accdb 508 kB · 9 downloads روعه رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر يونيو 27, 2022 مشاركة قام بنشر يونيو 27, 2022 28 دقائق مضت, Eng.Qassim said: يئبرني شو مهضوم الواد دة محمد عصام هههههههه يا سيدى الله يحفظك لاهلك واحبابك ويبارك بعمرك وعلمك وعملك وما يحرمنا جمعكم الطيب وفعلا انا مهضوم ومن كتر الهضم ما صار فينى شئ صيرت جلد على عضم 2 ساعات مضت, Moosak said: إلى المكتبة العامرة بالأكواد 😁✌️ بدنا ضرايب بالمنتدى ع ها المكتبة اوماااااااااااااااااااال رابط هذا التعليق شارك More sharing options...
Eng.Qassim قام بنشر يونيو 27, 2022 مشاركة قام بنشر يونيو 27, 2022 5 دقائق مضت, ابو جودي said: فعلا انا مهضوم ومن كتر الهضم ما صار فينى شئ صيرت جلد على عضم 🤣🤣🤣 رابط هذا التعليق شارك More sharing options...
Eng.Qassim قام بنشر يونيو 27, 2022 مشاركة قام بنشر يونيو 27, 2022 16 دقائق مضت, ابو جودي said: بدنا ضرايب بالمنتدى ع ها المكتبة انا عارف انك بتمزح ... بس انا من زمان افكر بهذا الموضوع ...رغم ان بعض الاساتذة المسؤولين عن الموقع يرفضون الفكرة وانا اتساءل ... لماذا لايكون هناك صندوق في الموقع للمتبرعين ...اقلها من اجل تطوير الموقع رابط هذا التعليق شارك More sharing options...
عمر طاهر قام بنشر يونيو 28, 2022 الكاتب مشاركة قام بنشر يونيو 28, 2022 ماشاء الله تبارك الله الله يجزيكم الخير رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.