jjafferr

وعليكم السلام تفضل هذا الرابط: http://www.vbaexpress.com/kb/getarticle.php?kb_id=468 و نفس الحل ، ولكن بشرح اكثر https://support.microsoft.com/en-us/kb/291295 جعفر

وعليكم السلام قمت بالاجابة على هذا السؤال في منتدى الفريق العربي للبرمجة سابقا ، وهذا هو الرابط: http://arabteam2000-forum.com/index.php?/topic/292971-هل-من-طريقة-لإدراج-صورة-بدون-خلفية-في-التقرير/ جعفر

حياك الله أخوي صالح واااااااااااااااااااااااااااااااااااااااااااااو جد رهيبه القاعده من 36 ميقا الى 5 وحياك الله أخوي بدر والميزة الموجودة في هذا البرنامج ، هو انك تستطيع ان تجعل البرنامج يشتغل: 1. بأمر من سطح المكتب والبرنامج مغلق ، حيث تعطي الامر من Commandline بفتح الاكسس على الماكرو Execute مباشرة ، او 2. بأمر من اي من برامج الاكسس ، او 3. تستطيع ان تضع وقت معين في Windows Schedule ، بحيث يشغل البرنامج في وقت معين ، تلقائيا ، كل يوم بس اولا يجب تعديل الماكرو Execute في البرنامج اعلاه ، حتى يغلق البرنامج تلقائيا بعد الانتهاء من عمله جعفر

على العموم ، اذا الله كتب لنا بالأخرى ، بنحتاج لكم شباب تشاركونا في الفرحة

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

حياك الله 1. الحقل رقمي ، والتعامل مع الحقل دائما كأنه رقم ، اما إضافة الحرف M فهو للتنسيق فقط ، ولكن الرقم مع الحرف يظهرون عند استعمال الحقل ، 2. الحقل نص (انا لم اغيّر في الجدول ، وانما غيّرت المعادلة فقط) ، والحرف M هو جزء من الحقل ، وعند استعمال الحقل ، فان الرقم والحرف سيظهرون مع بعض ، ولا علاقة للتنسيق في هذا الحقل جعفر

السلام عليكم ومشاركة مع اخواني ، اعرض عليك هذا الكود ، وتستغني به عن الوحدة النمطية ، ولكن الشرط ان لا تكون هناك سجلات في الجدول ، وتبدأ معه سجل بسجل: Me.حاسب = "M" & DCount("*", "Test") + 1 جعفر

نعم هذا المطلوب

عفوا أختي ، لا يمكن عمل أي نموذج/برنامج بهذه الطريقة ، لذا ، فرجاء إرفاق برنامجك ، وتوضيح ما تريدين الوصول إليه بمثال من برنامجك جعفر

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

السلام عليكم أختي مايا ليس هناك داعي لفتح سؤال جديد لموضوع تتم فيه المناقشة ، وكما لاحظت من المشاركات ، فالاخوة شفان ورمهان قد قاموا بطلب الاستفسار منك في نفس اليوم الذي وضعتي فيه السؤال ، اي قبل 8 ايام . جعفر

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

السلام عليكم يمكنكم الاستفادة من البرنامج في هذا الرابط: . من هذا النموذج: . والذي استخدمت فيه نوعين من الكائنات لعرض الصور/ملفات pdf ، وبرمجيا ، وحسب نوع الملف ، كنت اخفي الكائن الاخر ، واعرض الصورة على كائن الصور ، بينما اعرض ملفات pdf على كائن متصفح الانترنت IE (والذي تستطيع ان تعرض عليه معظم الملفات الاخرى ، غير الصور) جعفر

وعليكم السلام Shared ، هذه خاصية تم ادخالها في الاكسس 2010 ، والتي يعمل الاكسس جدول خاص للصور ، ثم يحفظ الصورة/الصور في الجدول ، فهذا معناه ان هذه الطريقة في واقع الامر مدمجة Embedded ، ولكن ، الميزة انك تستطيع استعمال نفس الصورة مرارا في النماذج والتقارير بينما اذا رجعنا الى طريقة ربط الصور Linked ، فبعدما تربط الصورة ، كالتالي ، مثلا: اسم الحقل: img اسم النموذج: frm_Main ربط الصورة يكون هكذا ، مثلا: Me.img.Picture = application.currentproject.path & "\Images\myPic.jpg" . واذا اردت استعمال نفس الصورة في نموذج/تقرير ثاني/ثالث ، فيمكنك استعمال الكود التالي: Me.img2.Picture = Forms!frm_Main.img.picturedata والذي لن يأخذ الصورة من القرص الصلب ، وانما سيأخذ نسخة من الصورة التي في الحقل img في النموذج frm_Main ، وسيكون اسرع من استدعاء الصورة من القرص الصلب ، ويمكنك استعمال هذا الكود في جميع اصدارات اكسس جعفر

تفضل جعفر

السلام عليكم السؤال تكرر عن جمع بيانات كل صفحة على حدة ، ثم الصفحة الاخيرة ، كما في التفصيل التالي: . واليك الطريقة: . . . جعفر 505.مثال.accdb.zip

1. رحم الله والديك 2 و 3 هاي ما فهمتهم جعفر

وعليكم السلام أخي صالح اعتذر منك على التأخر في الرد ردا على سؤالك: ما دام الكود شغال عندك وبدون مشاكل ، فعلى بركة الله ولكن رأيي هو ان تجعل الكود يعمل بالطريقة التالية: 1. ان تجعل الكود يتعرف على نسخة الاكسس التي تُستعمل الان (2003 او 2007 او... ) ، 2. على اساس النسخة ، يقول الكود بإستخدام الكود المناسب ، 3. بهذه الطريقة يكون الكود عام لجميع اصدارات الاكسس جعفر

كل اللي احتاجه منك هو: 1. ادخل في الصفحة التي تريد ادخال البيانات فيها ، وإحفظ لي الصفحة بصيغة HTML (يكون عندك مجموعة خيارات ، واذا احترت بين خيارات الحفظ ، فاحفظ الصفحة بكل اختيار على حده) ، 2. اعمل نفس الشئ لكل صفحة تريد ارسال/استرجاع المعلومات منها ، 3. برنامجك الاكسس ، وياريت يكون عندك نموذج جاهز فيه جميع الحقول اللي تريد ارسال بياناتها ، وبرنامجك يكون فيه بيانات للتجربة ، 4. واعمل لي بالوورد/الاكسل/الاكسس جدول ، فيه اسم الحقل من برنامجك ، يقابله اسم الحقل الذي تريد ادخال البيانات فيه في الموقع ، 5. انسخ url (عنوان كل صفحة) ، واعمل لي بالوورد/الاكسل/الاكسس جدول بهذه العناوين. انا ما بيكون لي علاقة في دخول الموقع وكلمة السر ووووو ، وانما سأتعامل مع الصفحات فقط ، والله يسهل ان شاء الله جعفر

نعم لاحظت هذا البارحة ، والحل ان تعمل قاعدة بيانات فاضية ، ثم تستورد كائنات قاعدة بياناتك الحالية ، إليها. جعفر

وعليكم السلام هو في حد جاب اسمي تفضل ، هذا كود زر فتح التقرير من النموذج Private Sub Command13_Click() 'On Error Resume Next DoCmd.OpenReport "salry3", acViewPreview Dim Filt As Variant If Me.Fr = 1 Then Filt = "[nam] ASC" ElseIf Me.Fr = 2 Then Filt = "[twqe] ASC" ElseIf Me.Fr = 3 Then Filt = "[draga] ASC" End If Reports!salry3.OrderBy = Filt Reports!salry3.OrderByOn = True End Sub في الواقع احنا ما محتاجين وضع امر ASC اي ترتيب تصاعدي ، لأنه الامر الافتراضي ، اذا لم نضع الامر Desc اي ترتيب تنازلي الكود اعلاه ما راح يشتغل في تقريرك ، لأنه عندك فرز في تقريرك (Sorting and Grouping) ، لذا يجب ازالت هذا الفرز اولا. واما اذا اردت الفرز ان يكون بحقلين ، بحيث الفرز الاول يكون للحقل الاول ، والفرز الثاني للحقل الثاني ، مثلا: Names Years 2001 jj 2000 ab 2001 zx 2000 aa فنريد الفرز بالسنة ثم الاسم ، وتكون النتيجة هكذا: 2000 aa 2000 ab 2001 jj 2001 zx فهنا يجب ان يكون الفرز بالحقلين ، ونبدا بحقل السنة ثم الاسم ، فيصبح الكود Filt = "[Years], [names]" ولاحظ اننا لم نستعمل الامر ASC لاننا لسنا بحاجة اليه جعفر

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

وعليكم السلام تفضل هذا الكود للنموذج: Private Sub COM1_Click() Call Form_Current End Sub Private Sub Form_Current() Dim rst As DAO.Recordset Dim i, Nums, RC As Integer Set rst = CurrentDb.OpenRecordset("Select * From QR_MO_SMS") rst.MoveLast: rst.MoveFirst RC = rst.RecordCount Nums = "" For i = 1 To RC Nums = Nums & rst!No_Mobile & "," rst.MoveNext Next i Me.txtNumbers = Mid(Nums, 1, Len(Nums) - 1) 'Or 'Me.txtNumbers = Left(Nums, Len(Nums) - 1) rst.Close: Set rst = Nothing End Sub جعفر

هذا الرابط فيه الكود للعمل الذي تريده http://stackoverflow.com/a/3133849 ولكن ما رايك في برنامج جاهز ، تقوم بادخال قواعد البيانات ، وهو يقوم بالعمل http://www.peterssoftware.com/cal.htm جعفر

وعليكم السلام تفضل . والنتيجة . اهم شئ في مثل حالاتك ، انك ما تضيف حقل "الترقيم التلقائي" AutoNumber ، وإلا فالاستعلام سيعطيك رسائل خطأ ولن يعمل جعفر 490.الحاق.accdb.zip