بحث مخصص من جوجل فى أوفيسنا
![]()
Custom Search
|
-
Posts
9998 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
406
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو jjafferr
-
هذا لا علاقة له بالتنسيق ، وانما هذا فرز لقيمة الحقل ، وهناك 3 طرق لعملها ، وتسلسلهم بالافضلية: 1. في الاستعلام مصدر بيانات النموذج ، اعمل الفرز على هذا الحقل ، واذا كان مصدر بيانات نموذجك الجدول مباشرة ، فيُنصح ان تجعله استعلام ، لمثل هذه الحالات مثلا ، 2. افتح النموذج لعرض البيانات (وليس بوضع التعديل) ، ثم انقر بالفأرة اليمين على هذا الحقل ، ثم اختار A to Z ، 3. على حدث "عند تحميل" النموذج ، اكتب التالي: Private Sub Form_Load() Me.OrderBy = Me.id_name Me.OrderByOn = True End Sub جعفر
-
يا سلام ، يعني كان مني فائدة ، وعرفنا وين المشكلة 🙂 جعفر
-
السلام عليكم اخي حلبي 🙂 خلينا نأخذ الخطوات التالية ، ورجاء تأكيد كل خطوة: 1. شغّل اي شيء فيه صوت في الكمبيوتر ، حتى تتأكد ان سماعات الكمبيوتر شغاله ، 2. افتح متصفح الانترنت internet explorer ، 3. ادخل في الموقع (انسخ العنوان الى عنوان المتصفح ، ولا تنقر عليه هنا) https://translate.google.com.eg/?hl=ar&tab=rT#view=home&op=translate&sl=ar&tl=en&text= 4. في الجانب اليمين الصق اي نص تريد (ولكن النص المُفضل هو ما كتبه الباشمهندس محمد 🙂 ) . 5. انقر على السماعة ، واسمع الصوت. واخبرنا النتيجة لوسمحت 🙂 جعفر
-
اذهب الى ملف FE ، ثم اعمل اللي اخبرتك عنه ، فسيتم تحويل جداولك المربوطة الى جداول محلية 🙂 جعفر
-
وهنا الحل: https://helpx.adobe.com/acrobat/using/display-pdf-in-browser.html وهنا الحل ، في كيفية التحكم بالواجهة ، والصفحة والتكبير ووو : https://www.adobe.com/content/dam/acom/en/devnet/acrobat/pdfs/pdf_open_parameters.pdf وعلى اساسه ، يصبح الكود: Private Sub List1_Click() 'تحديد مسار الملف StrFileParh = CurrentProject.Path & "\booksindex\" ' الانتقال إلى الصفحة المطلوبة Dim lngPageNo As Long lngPageNo = CLng(Mid(List1.Column(2), 1, 3)) web.Navigate StrFileParh & Me.List1 & ".pdf" & "#page=" & lngPageNo web.Visible = True End Sub 🙂 جعفر
-
انا اشتغل على اكسس 2010 ، فما في مشكلة 🙂 جرب هذا الملف ، فيه المكتبات المطلوبة فقط ، ولكن لما تنقر على زر "اضغط للقراءة" فيجب ان ترى ان البرنامج قام بتشغيل IE = Internet Explorer . وبعض الاوقات وبسبب سرعة الانترنت ، قد تحتاج تنتظر فترة اطول لسماع الكلام 🙂 جعفر 1043.TTS.mdb.zip
-
🙂
-
اخي jo 🙂 الآن وقد حصلت على الاجابة والحمدلله 🙂 رجاء تجربة المرفق الذي ارسلته لك ، لأنه فنيا يجب ان يعمل ، واذا ما عمل ، فمعناه ان الاكسس فيه مشكلة !! جعفر
-
او اذا كان هذا قصدك: بالزر اليمين على الجدول ، ثم تختار تحويله الى جدول محلي ، بس لازم تعمله لكل جدول على حده ، جعفر
-
شكرا 🙂
-
السلام عليكم 🙂 اخي وائل ، رجاء الالتزام بقوانين المنتدى ، وذلك بوضع سؤال واحد لكل موضوع ، واخونا essam rabea قد رد على سؤالك ، فيُعتبر هذا الموضع قد انتهى ، فرجاء فتح موضوع جديد لسؤالك الجديد ، وارفق الرابط هنا ، حتى يستطيع اخونا essam rabea من متابعة الموضوع الجديد. وشكرا لأخي essam rabea لإتباعه قوانين المنتدى ايضا 🙂 جعفر
-
المفروض ان الماكرو المضمن يكون فيه الاختيار المطلوب 🙂 اما الطريقة اللي اخبرتك عنها في اعلاه ، فستغير اعدادات الاكسس عندك وتُبقيه بهذه الطريقة ، ولا انصحك بإتباعها 🙂 اذا تحب ، ارفق هذه الجزئية من برنامجك ، او صورة الماكرو ، ونشوف مكان الاعداات المطلوبة 🙂 جعفر
-
تفضل المرفق 🙂 1041.Database1.accdb.zip
-
اخي حسنين 🙂 بدل ان تكتب If isnull(Me.Pname) = false or Me.Pname = "" Then يمكنك استبدالهما بهذا السطر If Len(Me.Pname & "") = 0 Then جعفر
-
وانا الآن قمت بنسخ الكود ، وكله تمام !! يعني المؤشر لا ينتقل لحقل آخر ، اذا كان الحقل فارغ (طبعا اذا كتبت نقطة او مسافة ، فلا يُعتبر الحقل فارغ ، وهنا يجب ان تغير اعدادات الحقل حتى يلتزم بالبيانات اللي في القائمة فقط). جعفر
-
وعليكم السلام 🙂 في الحدث "قبل التحديث" للحقل pname تأكد من وجود قيمة ، هكذا مثلا: if len(me.pname & "")=0 then 'لا توجد قيمة في الحقل ، اذن لابد من اشعار المستخدم msgbox "الحقل فارغ، رجاء ادخال قيمة فيه" cancel=true exit sub end if جعفر
-
-
-
2- استعلام Crosstab يقدر ان يقوم مقام الجدول ، واذا فهمت قصدك صح في قولك: لا يتم تحديثه بشكل تلقائي ، فقصدك اسماء الاعمدة تزيد وتنقص حسب البيانات الموجودة ، مما يعطيك اخطاء في التقرير ، لذا انصحك قراءة هذا الرابط لأن فيه الحل (حقول ثابته ، كما في الجدول) : كلامي عن Column Heading ، واذا عندك معيار في الاستعلام ، فيجب النظر في Parameters كذلك : . . . 1- ولو اني لا انصح بالقيام بعمل جدول مؤقت (لأنه يزيد من حجم قاعدة البيانات , لا ترجع قاعدة البيانات الى حجمها الطبيعي إلا بعد الضغط والاصلاح) ، ولكن اذا كان كلا ولابد ، فرجاء ارفق الجدول النهائي بجميع اسماء الجهات ، 3- ما كان قصدي ربط بين الاكسس والاكسل ، وانما مجرد تصدير ملف من الاكسس الى مجلد ، ومنه يقرأه الاكسل 🙂 وبغض النظر اي طريق اردت ان تأخذ ، فمحتاجين بيانات اكثر ، وخصوصا عدد الجهات يكون صحيح 🙂 جعفر
-
وعليكم السلام ورحمة الله وبركاته 🙂 عملت تغيير في اسماء الحقول في النموذج ، حتى تشير الى نوع الحقل المطلوب العمل عليه ، والنتيجة: . . وهذا هو الكود في حدث فتح التقرير Private Sub Report_Open(Cancel As Integer) 'keep orignal widths in a temp place 'num If Len(Me.num.Tag & "") = 0 Then Me.num.Tag = Me.num.Width End If 'name If Len(Me![name].Tag & "") = 0 Then Me![name].Tag = Me![name].Width End If 'tel If Len(Me.tel.Tag & "") = 0 Then Me.tel.Tag = Me.tel.Width End If 'now take the required fields from Form1 'num If Forms!Form1!chk_num = -1 Then Me.num.Width = Me.num.Tag Me.num.Visible = True Else Me.num.Width = 0 Me.num.Visible = False End If 'name If Forms!Form1!chk_name = -1 Then Me![name].Width = Me![name].Tag Me![name].Visible = True Else Me![name].Width = 0 Me![name].Visible = False End If 'tel If Forms!Form1!chk_tel = -1 Then Me.tel.Width = Me.tel.Tag Me.tel.Visible = True Else Me.tel.Width = 0 Me.tel.Visible = False End If End Sub جعفر 1039.Database1.accdb.zip
-
اخي الفاضل ، رجاء اخراج ملف الاكسس من برنامج الضغط الى سطح المكتب ، ثم افتحه مباشرة 🙂
-
تفضل ، هذا اللي قدرت ان اصلحه من مرفقك ، والرابط اللي اعطيتك لم يستطع عمل الاصلاح ، فاستعملت احد برامج الاصلاح ، واما النماذج والتقارير ، فتقدر تستوردهم من احد برامجك السابقة 🙂 جعفر 1038.ACCOUNT - Fixed.accdb.zip
-
وعليكم السلام 🙂 عذرا بوحسين ، انا فقط اشتغلت على النموذج Form1 ، فيجب عليك عمل تغيير على الكود في النموذج الآخر ليتماشى مع متغيرات النموذج الآخر 🙂 جعفر