jjafferr

شكرا اخوي خالد 🙂 هي نفس الطريقة التي اتبعها في برنامج ونفسها التي استعملتها ، ولكن من داخل الاكسس (استخدمت اسماء متغيرات من البرنامج) : . ويبقى السؤال طافيا ، لماذا !! للعلم ، حاولت تتبع هذه النقطة وفرأت المزيد من موقع مايكروسوفت وبالبحث ، واتضح بأنه في احد الحالات ، انزلت المايكروسوفت إضافة/تحديث في الاكسس في حقل تاريخ من نوع Extended ليماشي DateTime2 الذي في SQL Server ، وبعد ان حصل الكثير على نفس رسالة الخطأ "تحتاج الى نسخة احدث" ، قالت مايكروسوفت بأنها انزلت التحديث بدون تريث ، فلهذا ازالت هذا التحديث ، واصبحت البرامج تعمل بطريقة عادية. ولكن الملفت للنظر هو ، ان مايكروسوفت لم تعمل ملف تحديث للكمبيوترات ، وانما اشتغلت البرامج بطريقة صحيحة 😮!! ويا غافل لك الله 🙂 جعفر

وعليكم السلام 🙂 عملت تغيير بسيط في الكود السابق: myTotal_Page_Number = 5 Do until myPage_Number = myTotal_Page_Number myPage_Number = myPage_Number + 1 Docmd.openreport" " acviewnormal Loop اذهب الى اي وحدة نمطية عندك ، واذا ما عندك ، اعمل واحدة ، واكتب التالي في اعلى الوحدة النمطية: Option Compare Database Option Explicit اكتب التالي تحت السطر او السطرين اعلاه public myPage_Number as integer public myTotal_Page_Number as integer وفي التقرير اعمل حقلين جدد لترقيم الصفحات: حقل رقم الصفحة التي يتم طباعتها الآن ، وفي مصدر بيانات الحقل اكتب: myPage_Number= حقل مجموع عدد الصفحات التي يتم طباعتها الآن ، وفي مصدر بيانات الحقل اكتب: myTotal_Page_Number= جعفر

وعليكم السلام 🙂 من تجربتي ، خط Times New Roman وذلك لأنه لا يتغير بتغيّر الكمبيوتر ونوع النظام ، فيكون نفسه عند زبائنك 🙂 جعفر

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

تم عمل الازم هنا جعفر

نعم ، بعمل ثلاث تغييرات : . جعفر 1348.ترقيم خاص.accdb.zip

حاولت الضغط والاصلاح عن طريق هذا البرنامج ، ولكن لم ينفع !! . فحاولت اعطاء الامر مباشرة ، ولم ينفع ، وحصلت على رسالة ان برنامجي قديم : Shell Chr(34) & SysCmd(acSysCmdAccessDir) & "MSACCESS.EXE" & Chr(34) & " " & Chr(34) & "D:\Documents\Downloads\price_fa.accdb" & Chr(34) & " /compact",vbHide فحاولت بالطريقة الاخرى : Application.CompactRepair( _ LogFile:=True, _ SourceFile:="D:\Documents\Downloads\price_fa.accdb", _ DestinationFile:="D:\Documents\Downloads\price_fa_COMPACTED.accdb") وحصلت على هذه الرسالة : . فهل عملت الضغط والاصلاح من الاكسس 2019؟ وانا كذلك ، لهذا السبب هذا الامر غريب بالنسبة لي !! جعفر

شكرا جزيلا اخوي خالد 🙂 هذا معناه انه في اعدادات مخفية لا تسمح للاكسس 2010 بفتح هذه الملفات !! جعفر

بس حلك ابطأ من حللي ، لسبب : نوع الحقل في الجدول عبارة رقم ، ومعرّف انه Double ، فقمت انت في الدالة بتغيير نوعه الى Variant ، وارجعت القيم الى الاستعلام كنص (لما يكون محاذاة القيمة في الحقل ، الى اليمين ، فمعناه انه رقم او تاريخ ، بينما اذا كانت محاذاته الى اليسار فيكون نص) ، ثم رجعت في الاستعلام (او النموذج) وغيرته الى Double ، وفي حقل المجموع في النموذج استعملت الدالة NZ مرة اخرى ، والتي كذلك تحتاج الى وقت للقيام بعملها 🙂 اما طريقتي جعفر

وعليكم السلام 🙂 نعم وذلك بتنفيذ طلب الاكسس وذلك بإالغاء العلاقات بين الجداول المرتبطة ، ثم تغيير نوع الحقل في جميع الجداول المرتبطة (ولو انه يُفضل تغييرها في جميع الجداول) ، ثم تعمل العلاقات بين الجداول مرة اخرى 🙂 ولكن هناك حالات لا تحتاج فيها الى تغيير نوع الحقل ، فياريت تعطينا معلومة اكثر عن طلبك 🙂 جعفر

لم استطع فتح جميع المرفقات في هذا الموضوع : ضرب حقلين داخل استعلام بواسطة فاكشن - قسم الأكسيس Access - أوفيسنا (officena.net) ثم استخدمت الاكسس 2019 ، وتفجاءت بأن المرفق جدا بسيط ولا يوجد فيه اي من الاشياء الي تكلمنا عنها هنا !! جعفر

السلام عليكم 🙂 الاكسس 2010 لم يستطع فتح المرفقات جميعا ، وحصلت على هذه الرسالة (مع ان الاكسس عندي يتم عمل له تحديث تلقائي) : . فاضطررت ان استعمل الاكسس 2019 ، واحول البرنامج الى صيغة mdb ، حتى اتعامل معاه على الاكسس 2010 !! شكرا اخوي احمد ، وبسبب ملاحظتك عن وجود حقول فارغة ، فتوصلت الى هذا الحل ، والذي يحاكي حلك ، ولكن يتفاعل مع اصل البيانات الفارغة من الاستعلام قبل ارسالها للدالة ، اما اذا ارسلت البيانات الغير كامة الى الدالة ، فستضطر ان لا تصرح عن المتغير في الدالة على انه Double 🙂 ) . والنتيجة: . جعفر 1346.price_fa.mdb.zip

وعليكم السلام 🙂 اذا كانت العملية الحسابية بين حقول في النموذج ، فلا داعي لإستعمال المتغير ، مثلا : if me.txt1 > me.txt2 then me.txt1= me.txt2 * 50 endif او me.txt1= me.txt1 + (me.txt2 * 50 / 5) او تاريخ بكرة me.Tomorrow= date() + 1 . بينما اذا اردت ان تحتفظ بقيمة معينه مؤقتا في الكود ، ثم تحتاج للقيمة مرة اخرى ، فالحفظ يكون في متغير ، مثلا : هذا مسار الصورة Application.currentproject.path & "\images\" & me.Project_Name & "\" & me.item_Number & ".jpg" فبدل ان استخدم هذا السطر الطويل ، وكل مرة يضطر الاكسس لقراءة قيم الحقول من النموذج if dir(Application.currentproject.path & "\images\" & me.Project_Name & "\" & me.item_Number & ".jpg")="" then me.img.picture = Application.currentproject.path & "\images\" & me.Project_Name & "\" & me.item_Number & ".jpg" else msgbox "لم يتم الحصول على الصورة في المسار التالي" & vbcrlf & _ Application.currentproject.path & "\images\" & me.Project_Name & "\" & me.item_Number & ".jpg" me.img.picture="" me.img2.picture = Application.currentproject.path & "\images\" & me.Project_Name & "\" & me.item_Number & ".jpg" end if نستطيع اعطاء المسار الى متغير ، ثم نستعمل المتغير وبما ان المسار عبارة عن نص dim myFile as string myFile = Application.currentproject.path & "\images\" & me.Project_Name & "\" & me.item_Number & ".jpg" if dir(myFile)="" then me.img.picture = myFile else msgbox "لم يتم الحصول على الصورة في المسار التالي" & vbcrlf & myFile me.img.picture="" me.img2.picture = myFile end if جعفر

السلام عليكم 🙂 هذا تعديل على المشاركة اعلاه ، وبه تعمل بقية صيغ الصوت مثل wav و mp3 🙂 الوحدة النمطية التالية ، تعمل على النواتين 32بت و 64بت: Option Compare Database Option Explicit Declare PtrSafe Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" _ (ByVal lpstrCommand As String, _ ByVal lpstrReturnString As Any, _ ByVal uReturnLength As Long, _ ByVal hwndCallback As Long) As Long ' ' the above API will not work if there is a space in the file path, ' so use the old DOS trick to get a short name path for this file, then play it ' Function get8_3FullFileName(ByVal sFullFileName As String) As String ' ' Convert the normal path to the old DOS 8.3 path ' this solves the problem of spaces in the path ' Dim FSO As Object: Set FSO = CreateObject("Scripting.FileSystemObject") get8_3FullFileName = FSO.GetFile(sFullFileName).ShortPath End Function Public Sub PlaySound(SoundFile As String) SoundFile = get8_3FullFileName(SoundFile) If mciSendString("play " & SoundFile, 0&, 0, 0) <> 0 Then MsgBox "The Sound Did Not Play!" End If End Sub Public Sub StopSound(SoundFile As String) SoundFile = get8_3FullFileName(SoundFile) If mciSendString("close " & SoundFile, 0&, 0, 0) <> 0 Then MsgBox "Could't stop The Sound!" End If End Sub . ومن النموذج ناديها هكذا : اذا كان ملف الصوت في نفس ملف البرنامج Private Sub Form_Current() Call PlaySound(Application.CurrentProject.Path & "\ringin.wav") 'Call PlaySound(Application.CurrentProject.Path & "\ringin.mp3") End Sub او في اي ملف آخر Private Sub Form_Current() Call PlaySound("D:\mySounds\ringin.wav") 'Call PlaySound("D:\mySounds\ringin.mp3") End Sub جعفر Play Sound.zip

وعليكم السلام 🙂 احنا عادة نتعامل مع اصحاب الهمة ، بس الآن تعاملنا بالهمة شخصيا 🙂 مو علوم خبر 🙂 استعمل الوحدة النمطية التالية ، اللي تعمل على النواتين 32بت و 64بت: Option Compare Database Option Explicit Declare PtrSafe Function apisndPlaySound Lib "winmm" Alias "sndPlaySoundA" _ (ByVal filename As String, ByVal snd_async As Long) As Long Function PlaySound(sWavFile As String) ' Purpose: Plays a sound. ' Argument: the full path and file name. If apisndPlaySound(sWavFile, 1) = 0 Then MsgBox "The Sound Did Not Play!" End If End Function . ومن النموذج ناديها هكذا : اذا كان ملف الصوت في نفس ملف البرنامج Private Sub Form_Current() Call PlaySound(Application.CurrentProject.Path & "\ringin.wav") End Sub او في اي ملف آخر Private Sub Form_Current() Call PlaySound("D:\mySounds\ringin.wav") End Sub جعفر Rulesets.zip

كم حجم الصور (الطول x العرض) ، وبالميجابايت

اذن هنا مربط الفرس !!

اعتقد انها السبب في عدم فتح البرنامج المعمول على الاكسس 2019 ، بواسطة اكسس 2010 🙂 جعفر

وتنسيقات النماذج والتقارير الجديدة 🙂 جعفر

الآن فقط عرفنا ايش المشكلة 🙂 الصور ، مثل البرواز وشعار المحل : اذا كانت الصورة في مجلد ، فتأكد بأن المسار نفسه موجود في الكمبيوترات ، لهذا السبب ، يُفضل بأن تحفظ الصور في مجلد داخل مجلد البرنامج ، فتشير اليه عن طريق Application.CurrentProject.Path & "\Logo_Folder\" & myLogo.jpg ، مثلا ، تأكد بأن حجم الصوره ليست كبيرة (الطول والعرض) ، فلست بحاجة الى صورة بحجم 1900x4000 فهذه الصورة تحتاج الى RAM كبير من الطابعة ، ومعظم الطابعات الرخيصة لا تملك هذه الكمية المطلوبة من RAM ، وعلى اساسها ، لا يمكنها ان تطبع الصورة. مثلا الشعار كما في صورك المرفقة ، يجب ان لا يزيد حجمه عن 500x400 مثلا. التظليل : اختار من الالوان العادية ، وقد تفيدك هذه المشاركة: جعفر

عفوا اخوي هاني ، اليك حدود وامكانيات الاكسس ، والتي لا يمكن تجاوزها ، وإلا ستحصل على خطأ ، وبالنسبة لسؤالك ، ابحث امكانيات الاستعلام هنا : مواصفات Access - Access (microsoft.com) جعفر

وعليكم السلام 🙂 اذا استعملت صيغة mdb او mde ، فستجد هذا الخيار في جميع اصدارات الاكسس ، واما اذا استعملت صيغة accdb او accde ، فمايكروسوفت قامت بحذف هذه الخاصية ، ويمكنك البحث في المنتدى عن الطرق البديلة لاذونات المستخدمين 🙂 جعفر

اخي الفاضل لا يمكنني مساعدتك اذا لم تساعدني !! تصور نفسك مكاني ، كيف اقدر اساعدك بالمعلومات اللي ارفقتها انت !!

الافضل ان تخبرنا شو المشكلة ، قبل ان نفكر في الحل 🙂 جعفر

👍