jjafferr

السلام عليكم اختي 1. لا يوجد مرفق في مشاركتك الاخيرة ، 2. لتفريغ بيانات جدول اسمه table1 DELETE * FROM table1 واذا اردتي تشغيله في الكود docmd.setwarnings false docmd.runsql "DELETE * FROM table1" docmd.setwarnings true 3. لطباعة موظف واحد في التقرير ، انظري الرابط جعفر

1. ماذا كانت المشكلة ؟ 2. هذا غير صحيح ، ولكن انصب اوفيس 32 بت ، بغض النظر عن نوع الوندوز سواء 32 او 64 بت. انا عندي الاوفيس 2010 ، ولا احدثه إلا اذا تم تصليح عيوب الاصدارات الجديدة جعفر

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

وعليكم السلام 1. نفترض الملف الحالي في \:C والمجلد الجديد الى \:E للنسخ FileCopy "Source Path And Name", "Destination Path And Name" FileCopy "C:\myfile.pdf", "E:\Temp\File_With_New_Name.pdf" لنقل الملف من مجلد الى آخر Name "old path AND name" As "new path AND name" Name "C:\myfile.pdf" As "E:\Temp\File_With_New_Name.pdf" 2 و 5 . عند طلب تشغيله: application.followhyperlink "E:\Temp\File_With_New_Name.pdf" 3 و 4 . If Dir("E:\Temp\File_With_New_Name.pdf") <> "" Then 'الملف موجود، غير لون خلفية حقل النص الى اخضر me.Field1.backcolor=rgb(0,255,0) 'Green Else MsgBox "الملف غير موجود" me.Field1.backcolor=rgb(255,0,0) 'Red End If جعفر

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

هذا الخطأ بسبب اعدادات الوندوز ، وهناك الكثير من المواضيع حولها ، منها: جعفر

السلام عليكم أخي شروط المنتدى لا تسمح بأكثر من سؤال في موضوع واحد (يعني بالنسبة لأسئلتك ، نقدر نقول ان السؤال 1 و 2 و 3 و 4 و 7 موضوع واحد ، يعني بالعافية) ، بينما السؤال 5 يجب ان يكون سؤال بموضوع مستقل ، والسؤال 6 يجب ان يكون سؤال بموضوع مستقل رجاء فتح مواضيع جديدة حسب شرحي اعلاه مخالف - يُغلق. جعفر

السلام عليكم هذا الرابط مشابه لمطلبك ، ولكن يجب عليك تذليله ليتلائم مع برنامجك جعفر

وعليكم السلام هذه الرسالة معناها انك لم تقم بنسخ هذا السطر الى برنامجك: err_coodkindexchange_AfterUpdate: والذي يأتي بعد Exit Sub (كما هو في الكود الذي وضعته انا اعلاه) جعفر

وعليكم السلام افتح الرابط التالي ، للحصول على ارقام اللغات: https://msdn.microsoft.com/en-us/library/cc195085.aspx مثلا رقم اللغة الانجليزية: 0x09 بينما رقم اللغة العربية: 0x01 ثم اضف 2 الى رقم اللغة ، يعني للغة الانجليزية: 9 + 2 = 11 واللغة العربية: 1 + 2 = 3 ولنفترض ان اسم الحقل هو url_address ، لذا ، عند حدث تحميل النموذج ، ولجعل اللغة العربية هي الافتراضية فيه ، اكتب هذا الكود: Me.url_address.KeyboardLanguage = 3 ولكن من تجاربي السابقة (ولا اعرف اذا عملت مايكروسوفت الى حل هذه المشكلة) ، فإن التنقل من هذا الحقل الى الحقل الآخر سيكون بطيئا جدا ، لذا فقد الغيته من بعض برامجي جعفر

وعليكم السلام غيّر الكود السابق الى Private Sub cmd_Go_Click() Application.FollowHyperlink Me.Site End Sub وتأكد ان اسم الموقع يبدأ بـ http او https ، وإلا ستحصل على رسالة امان تحذيرية جعفر 579.test90.mdb.zip

السلام عليكم تفضل ياسيدي ، الارقام الموجودة في النموذج الفرعي على اليمين ، لن تظهر في مربع التحرير والسرد في النموذج الفرعي على اليسار كلما تقوم بتحديث الحقل coodkindexchange في النموذج Frm_Monthexchange ، فيقوم بعمل مصدر بيانات لمربع التحرير والسرد coodkind في النموذج الفرعي الآخر tbl_kind : Private Sub coodkindexchange_AfterUpdate() On Error GoTo err_coodkindexchange_AfterUpdate DoCmd.RunCommand acCmdSaveRecord Dim rst As DAO.Recordset mySQL = "SELECT id, coodkind, Namekind" mySQL = mySQL & " FROM tbl_kind " Set rst = Me.RecordsetClone rst.MoveLast: rst.MoveFirst RC = rst.RecordCount For i = 1 To RC If i = 1 Then mySQL = mySQL & "WHERE coodkind <> " & rst!coodkindexchange Else mySQL = mySQL & " And coodkind <> " & rst!coodkindexchange End If rst.MoveNext Next i 'Debug.Print mySQL Forms!tabl!tbl_kind.Form!coodkind.RowSource = mySQL Forms!tabl!tbl_kind.Form!coodkind.Requery rst.Close: Set rst = Nothing Exit Sub err_coodkindexchange_AfterUpdate: If Err.Number = 2455 Then Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub Private Sub Form_Current() Call coodkindexchange_AfterUpdate 'Me.N00 = [Forms]![tabl]![Totail] - Me.Total3 End Sub جعفر 581.tbl.accdb.zip

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

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

وهنا النسخة 1.2 من البرنامج ، للأخ خضر الرجبي http://arabteam2000-forum.com/index.php?/topic/64952-محرك-بحث-الأكسيسالأصدار-12/&do=findComment&comment=323189 ولكي يعمل ، استخدم الاستعلامات وتغيير الكود كما شرحته في مشاركتي السابقة جعفر

وعليكم السلام طيب شو المطلوب؟ جعفر

السلام عليكم اخي محمد رجاء عمل نسخة من البرنامج قبل العمل عليه البرنامج مافيه مشكلة ، ماعدا: 1. طريقة عنوان موقع اوفسينا تغيّر عن السابق ، فاستعمل استعلام التحديث التالي لضبط جميع حقوله: UPDATE Links SET Links.link = Replace(Replace(Replace([link],"http:","https:"),".com",".net"),Chr(34),"") WHERE (((Links.club)="أوفيسنا")); 2. اما موقع الفريق العربي للبرمجة ، فيجب تعديل المسمى " الفريق العربي" الى "الفريق العربي" (لاحظ المسافة قبل الاسم) ، بالاستعلام التالي: UPDATE Links SET Links.club = "الفريق العربي" WHERE (((Links.club)=" الفريق العربي")); وتغيّر عنوانه عن السابق ، فاستعمل استعلام التحديث التالي لضبط جميع حقوله: UPDATE Links SET Links.link = Replace(Replace(Replace([link],"www.",""),Chr(32),""),Chr(34),"") WHERE (((Links.club)="الفريق العربي")); 3. موقع المحيط العربي غيّر عنوان صفحاته ، ولم استطيع معرفة طريقة تغيير العنوان القديم بالجديد !! 4. اما موقع خضر الرجبي فلا وجود له على الانترنت الآن. والتغيير الاخير الذي عملته هو كود فتح الروابط ، فاصبح: Application.FollowHyperlink Me.link يبدو لي انه هناك جزء من البرنامج غير مرفق ، وهذا الجزء الذي يبحث في هذه المواقع عن هذه المعلومات ، ثم يحفظها في قاعدة البيانات ، فاذا عندك هذه الجزئية ، رجاء ضمها للبرنامج المرفق جعفر 579.1.AccessSearchEngine.mdb.zip

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

حياك الله

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

للأسف أخي أنس ، الحقل المحسوب موجود في الاكسس 2007 فما فوق !! ولكن ، تستطيع عمل كل هذا في الاكسس الاقل من 2007 ، في الاستعلام او النموذج ، ثم تحفظه في الجدول بصيغة نص ولا يُنصح باستعمال الحقل المحسوب اصلا ، لأن به مجموعة مشاكل ، لذلك ، حتى ولو عندك اكسس 2007 فما فوق ، فالافضل ان تستخدم طريقة الاكسس الاقل من 2007 كما شرحتها اعلاه بالاضافة لهذا كله ، فلو استعملنا طريقة الاستعلام او النموذج ، فالكود اعلاه سيُختصر ويُصبح: [Contry_code] & [City_code] & Format([Number],"000") ولكن ولأن الحقل المحسوب لا يقبل الامر Format ، لذا تم حل الموضوع بطريقة ثانية جعفر

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

السلام عليكم 1. احذف العلاقات بين الجداول ، 2. في الجدول Table1 ، الحقل Country_Code والحقل City_Code ، اجعل العمود الثاني هو العمود الاساسي ، حينها سترى الكلمات ، لا الارقام ، 3. في حقل التجميع Code ، استخدم هذه المعادلة لتحصل على خانات الارقام الثلاث [Contry_code] & [City_code] & IIf(Len([Number])=1,"00" & [Number],IIf(Len([Number])=2,"0" & [Number],[Number])) والنتيجة جعفر 578.TEST.accdb.zip

وعليكم السلام في هذا الرابط تم مناقشة الموضوع بإسهاب جعفر