essam rabea

أ.بوكفوس عبدالسلام مجرد محاولة والله أعلم .. افتح نسخة من قاعدة البيانات علي اي جهاز آخر يعمل بنظام 64 بت واذهب لمحرر فيجوال بيسك وابحث عن (PtrSafe ) فى كامل المشروع وقم بإلغائها .. إحفظ وأغلق القاعدة وأعد فتحها على الجهاز الذى يعمل فى بيئة 32 بت .. عسى ان تلبي الغرض بالتوفيق

أ.Matin_Murad ضع فى حدث عند الضغط لزر الحذف الكود التالى .. DoCmd.SetWarnings False DoCmd.RunSQL "DELETE tabl1.INAME, tabl1.barcode, tabl1.id, tabl1.save FROM tabl1 WHERE (((tabl1.barcode)=[forms]![ZERO]![xx]));" xx.Requery ZEROTABL1.Requery DoCmd.SetWarnings True عسى ان يكون المطلوب

أ.ازهر عبد العزيز أرجو ان اكون وفقت فى فهم السؤال جرب ووافنى بالنتيجة New Microsoft Access Database.accdb

بارك الله فيك أستاذنا أحمد الفلاحجى والحمد لله أنا بخير ونسأل الله أن يرفع عنا جميعا البلاء والوباء وسيئ الأسقام ملحوظة .. أنا قاهرى 😀

أ.لاتبخل جرب المرفق ووافنى بالنتيجة test-Copy2.rar

الف مبروك اخي @husamwahab

راجع هذا الرابط عسي ان يفيد بالتوفيق

أ.ابو عبد الرحمن العراقي فى المرفق يوجد إستعلام بإسم : IBONE به ما تريد إن شاء الله برجاء التجربة والإفاده http://www.mediafire.com/file/kjaze05tixr0sli/123.zip/file بالتوفيق

أ.بلال اليامين جرب هذا الكود ووافنى بالنتيجة Private Sub Command5_Click() On Error GoTo Error_ErrorZ If Len(Me.B1 & vbNullString) = 0 Or Len(Me.B2 & vbNullString) = 0 Or Len(Me.B3 & vbNullString) = 0 Or Len(Me.B4 & vbNullString) = 0 Or Len(Me.B5 & vbNullString) = 0 Then MsgBox "All Fields is Null" Else DoCmd.SetWarnings False DoCmd.OpenQuery "Query1", acViewNormal DoCmd.SetWarnings True ' MsgBox "Done", vbInformation Exit_Command5_Click: Exit Sub End If Error_ErrorZ: MsgBox "Not Done", vbInformation Resume Exit_Command5_Click End Sub

أ.ازهر عبد العزيز جرب هذا الكود Private Sub D_GotFocus() If IsNull(Forms!A!B) = True Then Forms!A.Form!B.SetFocus End Sub

أستاذنا أحمد الفلاحجى سلمك الله من كل هم وضيق يا ابو بسمله يا غالى

أ.husseinharby فضلا ليس أمرا .. رجاء مراجعة الرابط التالى

أ.Q8MBK اعتقد لو نقلت طلبك الى القسم المدرج رابطة هنا سيكون أفضل https://www.officena.net/ib/forum/157-إعلانات-شخصية-للاعضاء-فقط-فى-مجال-الموقع/

أ.نجم30 من محرر VBA إتبع الخيارات التالية لعله يكون المطلوب

أ.mohammad obaid هو كان شغال معى بالامس اخر تمام ولكن اليوم ما راضى يطلع صوت .. أعتذر منك ولكن هناك طريقة أخرى آمل أن تكون مجديه انقل الفولدر لهذا المسار ... C:\Windows xmplay38.rar قرائة الارقام.rar

أ.mohammad obaid جرب ما يلى لعله يفيد بالتوفيق

أ.mohammad obaid استخرج المجلد المرفق والذى اسمه sndrec الى مسار الويندوز بحيث يكون مسار الملف النهائى كما يلى C:\Windows\sndrec\sndrec32.exe قم باستبدال هذا الكود Call Shell("C:\WINDOWS\system32\Sndrec32.exe /play """ & مسار_ملفات_الصوت & اسم_الملف & """ /close ", 6) بهذا الكود Call Shell("C:\Windows\sndrec\Sndrec32.exe /play """ & مسار_ملفات_الصوت & اسم_الملف & """ /close /embedding ", 6) عسى أن يكون المطلوب خالص تحياتى sndrec.rar

أ.mohammad obaid هل البرنامج كان يقرأ الرقم الذى يتم تحديده أم يحدد الرقم ويقرأ ما قبله؟

أ.مصطفى الفارس راجع هذا الرابط

أ.وهيب علي الصلوي لو امكن ارفق مثال للعمل عليه

أ.suliman1971 جرب هذه الطريقة البدائية ID1.accdb

أ.fuadco مش عارف انا كده فهمت المطلوب ام لا .. جرب ووافنى بالنتيجة علما بأن التعديل تم على تقرير الغياب بالتوفيق الحضور.rar

أ.Eng. Abdullah جرب التالى ووافنى بالنتيجة objXLApp.Visible = False objXLApp.Application.Visible = False

عد الجمايل