jjafferr

تفضل نعمل آخر سجل حسب آخر ادخال (ويمكن استخدام Max بدلا عن Last) والنتيجة . ونستعمل هذا الاستعلام كمعيار لربط السجلات الاخيرة ، مع الجدول الاساسي: والنتيجة جعفر 616.Database1.accdb.zip

انا كنت ادري ان ردّي مُحبط ، ولكني اضطررت ان اكتبه وسأزيدك بشيء آخر وهو: رجاء لا تضيع وقتك في هذا الموضوع ، فأنت كنت من الاوائل الذين دخلوا في هذا المجال ولديك مشاركة جدا غنية عن Google Drive ، ولم تصل الى نتيجة ، وانا قرأت الكثير عن هذا الموضوع ، وكيف ان بعض الشركات صرفت مبالغ كبيرة ، ولم يصلوا الى نتيجة وكما قلت: أخي السيد جمال ، دعنا نرى فكرة اخرى جميلة من افكارك المُبدعة ، واستثمر الوقت فيها نصيحة اخ الى اخيه السيد جعفر

وعليكم السلام حسب علمي ، وانا لست بخبير في SQL Server الواجهة ممكن ان تكون: - اكسس - وبرنامج Visual Studio به عدة برامج يمكن استخدامها كواجهة ايضا ، مثل جميع عائلة Net. ومنها Asp و #C و VB ... ، جميعها مكمّله لـ HTML ، اي يجب عليك معرفة HTML عند استخدام البرامج اعلاه، هذا والله العالم ، وفي انتظار رد محترفي هذا المجال جعفر

حيا الله أخي طارق بقليل من التعديل على اماكن وجود الحقول في التقرير ، ثم . واصبحت النتيجة: و . جعفر 615.obeidi input44.mdb.zip

وعليكم السلام ازّيك يا ريس حسب علمي ، One Drive مثله مثل DropBox و Google Drive ، كلها لا تصلح للمزامنه وقد قام الكثير بعمليات برمجية كثيفة لها ، وبدون فائدة جعفر

انت بحاجة الى وحدة نمطية تضع فيها كل شرط ، هكذا (طبعا لم اضع كل الشروط ، وعليك بإضافتها كلها): Function Clean_Data(S) 'S = string of numbers mixed with data If Right(S, 2) = "-x" Then C = Mid(S, 1, Len(S) - 2) ElseIf Right(S, 5) = "xxxxx" Then C = Mid(S, 1, Len(S) - 5) Else C = S End If Clean_Data = Trim(C) End Function وتنادي الوحدة النمطية من الاستعلام هكذا: B: Clean_Data([f5]) والنتيجة حسب الشروط التي في الوحدة النمطية: جعفر

المفروض ان اكتب: تستطيع في الحدث "بعد التحديث" للحقل ad ويمكنك ان ترفق هذه الجزئية من البرنامج ، وخلينا نشوف كيف نحلها ان شاء الله جعفر

شكرا جزيلا أخي شفان انا شفت البرنامج سابقا ، ولكني الآن انزلته ، وبالفعل به الكثير ، وكما قلت انت : جعفر

السلام عليكم الرابطين فيها نقاش مطوّل عن الساعة: و جعفر

أخوي ابو زاهر الآن انزلت مرفقك ، وماشاء الله بحر من الكائنات لازم تخبرنا وين تريدنا نطالع ، اي جدول ، اي حقل ، اي قيمة ، .... وهكذا ، واذا شرحك وافي ، فعلى بركة الله ، ولكن رجاء ، اعطنا كل التفاصيل يعني: 1. ما حد يعرف برنامجك مثلك ، فلا تتوقع منا نبحث عن حقل هنا او هناك ، 2. ساعدنا بمعرفة المطلوب وبدقة ، علشان نساعدك بالاجابة وبشرح جعفر

تفضل: ضع جملة SQL هذ في استعلام: SELECT MSysObjects.Name FROM MSysObjects WHERE (((MSysObjects.Type)=1 Or (MSysObjects.Type)=6) AND ((Left([Name],4))<>'MSys') AND ((Left([Name],1))<>'f' And (Left([Name],1))<>'~')) ORDER BY MSysObjects.Name; 1 معناه جدول مضمن ، و 6 معناه جدول مرتبط جعفر

وعليكم السلام قد تجد المطلوب في موضوع أخونا شيفان جعفر

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

كم مستخدم عندك؟ عادة لكل مستخدم سجل فيه معلوماته ومعلومات الدخول، فاذا كان عندك مستخدم اسمه جعفر ، وآخر اسمه جعفر2 ، وعند دخولك النموذج ، فتلقائيا النموذج يُفتح على السجل الاول ، والذي يكون جعفر ، ولكن المستخدم قد يكون جعفر2!! الطريقة السهلة لكي تعرفين ان البيانات متطابقة هي ان تجعلين الحقول ظاهره وغير مخفية ، ومنها تكون المقارنة شيء آخر تستطيعين عمله هو تغيير الكود بهذا: if me.sds1.text=me.user_Name and ..... بحيث تضيفين للحقول الغير مضمنه كلمة .text ومعناها القيمة التي لم تُحفظ بعد واذا هذه الطرق ما نفعت ، فلوسمحتي ترفقي هذه الجزئية من قاعدة بياناتك جعفر

وعليكم السلام تستطيع في الحدث "بعد التحديث" ان تقول: me.Qty=me.ad جعفر

حياك الله أخوي حسين هل في شيء معين تريدني انظر فيه؟ جعفر

السلام عليكم أخي حلبي الرابط فيه طلبك: وهذا جعفر

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

حياك الله أخوي رمهان ، والله المنتدى له وحشه لما الواحد يكون بعيد واهل المنتدى هم المقصودين ، مثل ما قال الشاعر أمر على الديــــــار ديار ليـلى ... أقبل ذا الـــــــجدار وذا الجـدارا وما حب الديار شـــــغفن قلبي ... ولكن حب من ســـــــكن الديارا جعفر

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

الكود السابق: UBound(strFileNames) UBound معناه العدد الاكبر من strFileName ، ولكن للاسف بسبب الضغط على زر cancel ، فالمتغير strFileName يصبح Null ، لذلك لم يستطع الامر السابق اصطياد الخطأ، بينما الامر If Len(strFileNames & "") = 0 Then فيقوم محل امرين وهما: If isNull(strFileNames)=true or strFileNames= 0 Then جعفر الله يسلمك ويعافيك ان شاء الله اخوي محمد جعفر

حياك الله اخوي ابو الآء وحياك الله اختي جعفر

وعليكم السلام أخي اباجودي استبدل هذا السطر If UBound(strFileNames) = 0 Then بهذا السطر If Len(strFileNames & "") = 0 Then بسم الله عليك ايه يا اباجودي ، ما انت قلت انها تظهر لما تضغط على الزر cancel جعفر 207.5.m.salama.accdb.zip

وعليكم السلام اختي 1. اذا تسمحي لي بتغيير الكود قليلا الى التالي ، فانتي لستي بحاجة الى If اخرى: if result=vbYes then docmd.quit else docmd.cancelevent msgbox "Back" endif 2. برنامج الاكسس تلقائيا يحفظ البيانات عندما ينتقل التركيز من السجل الذي انتي عليه ، سواء انتقلتي الى سجل آخر او خرجتي من النموذج الذي انتي فيه، ولكن اذا اردتي حفظ البيانات يدويا ، فهناك مجموعة طرق للقيام بهذا ، منها: سيتم حفظ البيانات كلما استعملتي هذا الامر docmd.runcommand accmdsaverecord او الامر التالي يحفظ البيانات فقط اذا تم عمل تغيير عليها if me.dirty then me.derty=false جعفر