jjafferr

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

نعم ، بعمل ثلاث تغييرات : . جعفر 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 ، فمايكروسوفت قامت بحذف هذه الخاصية ، ويمكنك البحث في المنتدى عن الطرق البديلة لاذونات المستخدمين 🙂 جعفر

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

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

👍

ارفق مرفقك فكرة بسيطة وجميلة 🙂 Private Sub Datee_AfterUpdate() Me.Day = Format(Me.Datee, " dddd ") End Sub جعفر

وعليكم السلام 🙂 =Weekday(me.DateField) جعفر

وعليكم السلام 🙂 جعفر

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