Foksh

أخي الكريم كمثال سريع ، قم بجعل الحقل ( Suppliers_Name2 ) من النوع ( Combo Box ) ، واجعل مصدره جدول الموردين كما يلي :-

تفضل محاولتي أخي @jo_2010 Word.accdb

تفضل أخي هذا توضيح لكل سطر في الكود ' يتم إعداد المتغيرات Dim strSQL As String Dim db As DAO.Database Dim rs As DAO.Recordset ' يتم تعيين كائن قاعدة البيانات الحالية إلى المتغير db Set db = CurrentDb ' يُبنى استعلام SQL لاستعراض عدد السجلات حيث يكون التاريخ أقل من التاريخ الحالي strSQL = "SELECT COUNT(*) As RecordCount FROM tab WHERE التاريخ < #" & Format(Date, "yyyy-mm-dd") & "#" ' يتم فتح سجل لاستعراض النتائج باستخدام الاستعلام الذي تم بناؤه في السطر السابق Set rs = db.OpenRecordset(strSQL) ' يُخزن عدد السجلات المسترجعة في المتغير نص2 نص2 = rs("RecordCount") ' يُبنى استعلام SQL آخر لاستعراض عدد السجلات حيث يكون التاريخ أكبر من التاريخ الحالي strSQL = "SELECT COUNT(*) As RecordCount FROM tab WHERE التاريخ > #" & Format(Date, "yyyy-mm-dd") & "#" ' يُغلق السجل الحالي rs.Close ' يتم فتح سجل آخر لاستعراض النتائج باستخدام الاستعلام الجديد Set rs = db.OpenRecordset(strSQL) ' يُخزن عدد السجلات المسترجعة في المتغير نص4 نص4 = rs("RecordCount") ' يُغلق السجل بعد الانتهاء من استخدامه rs.Close ' يُغلق كائن قاعدة البيانات بعد الانتهاء من استخدامه db.Close

اخي الكريم ان كان الملف في المرفق يعمل دون مشاكل ، فأن المشكلة لديك في النموذج الخاص بك عند تقلك للكود ، فقد يكون بسبب تكرار أكواد لا أعلمها في ملفك الأصلي , على العموم أرسل رسالة للخطأ نفسه ( المسج ) لمعرفة اين يكون الخلل .

هل هذا ما تقصده أخي الكريم ,, New Microsoft Access Database.accdb

اخي الكريم ، انق الكود إلى أي حدث تريده في النموذج أو التقرير ،، على العموم ، تفضل By date.accdb

اخي الكريم مجرد سؤال ، في حال تم الاستعلام فما هي النتيجة التي ستحدث في الجداول ؟ أعطني مثال لأتحقق ما إذا تم أم لا ,, فالبيانات في الجداول تبارك الله كثيرة ، مع العلم أنه تم حل مشكلة القيم الفارغة بالجداول في السجلات التي من نوع البيانات Number بضغطة زر واحدة عن طريق هذا الكود ( كمعلومة ) Dim db As DAO.Database Dim tdf As DAO.TableDef Dim fld As DAO.Field Dim rs As DAO.Recordset Set db = CurrentDb For Each tdf In db.TableDefs If (tdf.Attributes And dbSystemObject) = 0 Then Set rs = db.OpenRecordset(tdf.Name) Do While Not rs.EOF For Each fld In rs.Fields If fld.Type = dbLong Or fld.Type = dbSingle Or fld.Type = dbDouble Then If IsNull(fld.Value) Then rs.Edit fld.Value = 0 rs.Update End If End If Next fld rs.MoveNext Loop rs.Close Set rs = Nothing End If Next tdf db.Close Set db = Nothing MsgBox "تم استبدال القيم الفارغة في جميع الحقول و في جميع الجداول.", vbInformation, "استبدال القيم"

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

تفضل أخي الكريم ,, By date.accdb

ارفع الملف على ميديافاير مثلاً أو جوجل درايف.... إلخ

ألف سلامة عليك أخونا واستاذي @kkhalifa1960 ، سأحاول فهم النقاط لاستكمال ما استطيع عليه 😊

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

أخي الكريم ، بعد التعديل على انوع الحقول في الجداول ، هذه محاولتي في عدد المشاريع ، ولكن عدد المستفيدين قمت بتصحيح الدالة الجمعية كما عدلتها في الدالة Dcount omm.accdb

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

على ما أذكر ، نعم هذا ممكن ، ولكنها غير مجانية من Google . إذا كان مقدم الخدمة Google ، وترغبي في استخدام Google Cloud Speech-to-Text ، يجب أن تتبع الخطوات التالية: أولاً الحصول على مفتاح API: انتقل إلى Google Cloud Console وقومي بإنشاء مشروع جديد ( كتجربة مجانية طبعاً ). انتقل إلى "APIs & Services" > "Dashboard" وقومي بتفعيل خدمة Cloud Speech-to-Text API لمشروعك. وستحصلي على مفتاح API من قسم "Credentials". الآن إعداد Google Cloud Speech-to-Text في VBA: قومي بتحميل وتثبيت مكتبة HTTPRequests ، في VBA إذا لم تكن مثبتة بالفعل. استخدم الكود التالي كمثال للاتصال بخدمة Google Cloud Speech-to-Text Function ConvertSpeechToText(audioFilePath As String) As String Dim apiUrl As String Dim apiKey As String Dim audioData As String Dim http As Object ' تعيين قيم apiUrl وapiKey وaudioData باستخدام مفتاح API الخاص بك apiUrl = "https://speech.googleapis.com/v1/speech:recognize?key=YOUR_API_KEY" apiKey = "your_api_key" ' قراءة بيانات الصوت من ملف ' يمكنك ضبط هذا بناءً على كيفية تخزين الصوت في مشروعك ' على سبيل المثال، يمكنك استخدام دالة FileToString لقراءة الصوت من ملف ' audioData = FileToString(audioFilePath) ' إرسال الطلب إلى Google Cloud Speech-to-Text API Set http = CreateObject("MSXML2.ServerXMLHTTP") http.Open "POST", apiUrl, False http.setRequestHeader "Content-Type", "application/json" ' تكوين جسم الطلب Dim jsonBody As String jsonBody = "{""config"": {""encoding"": ""LINEAR16"",""sampleRateHertz"": 16000,""languageCode"": ""en-US""},""audio"": {""content"": """ & audioData & """}}" http.send jsonBody ' معالجة الاستجابة If http.Status = 200 Then ' تحديث حقل النص في قاعدة البيانات ConvertSpeechToText = http.responseText Else ' معالجة الأخطاء هنا ConvertSpeechToText = "Error: " & http.Status & " - " & http.statusText End If End Function لم تتم التجربة طبعاً ولكن كفكرة أعتقد أنها ممكنة ، وبانتظار الأساتذة مشاركتنا خبرتهم

ابدأ بتطويرها ، واعتبرها طرف الخيط لأفكارك وإبداعاتك ، وإن واجهت أي صعوبات فكلنا هنا لمساعدة بعضنا 😊

أخي الكريم @Abdelaziz Osman بداية اعتقد العلاقات تم ربطها بالشكل السليم ابتداءً من اسم العمل ثم مجموعة الصنف ثم مكونات فاتورة مجموعة الصنف . انا بالنسبة لباقي الطلبات ، فأرجو منك التوضيح بشكل تفصيلي ماذا تريد ، بعد أن تقوم بتصميم النماذج لإنشاء التقارير حسب الاستعلامات التي ستكون مصدر النماذج ( على الأغلب ) . index.mdb

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

الحمد لله أنك وجدت الحل الشافي لطلبك أخي الكريم ، ولكن اسمح لي بنقطتين مهمتين :- الأولى لاحظ أنك طلبت في طلبك ما يلي :- لقد طلبت ان يضاف يوم واحد الى معادلة تاريخ المباشرة ، وجاء حلك دون إضافة هذا اليوم الذي طلبته ثانياً والأهم ( ردد معي )

اخي الكريم @NoorShams رغم أن البيانات في الجدول قد لا تساعد في الإحصاء ، إلا أن هذه محاولتي في عدد السجلات التي تحتوي م1 أو م2 في جدولك ، ورغم أني غير مقتنع بالحل ، ولكن تفضل 1111-1.accdb

اخي الكريم ارسل ملف بسيط من مشروعك يضم ما تريد العدد له ، للتطبيق عليه . وإن شاء الله الأخوة لن يبخلوا عليك بأي معلومة 😊

ليس بالتأكيد ، ولكن عن تجربتي مع ويندوز 11 والعمل على آكسيس واجهت بعض المشاكل ومنها ما ذكرت ( الخطوط في التقارير ) ، واضطررت للعودة إلى ويندوز 10 ووجدته الأكثر استقراراً في العمل على بيئة آكسيس.

أخي الكريم سأحاول فهم واستيعاب مطلبك ، وتقديم حل لك بأقرب وقت ممكن.

لا مشكلة في إنك تحولها ، أو تتركها دون تحويل ، هي الفكرة فقط في حال التطوير والتعديل فإنك تفقد هذه الصلاحية اذا قمت بتحويلها 😊

لا أزايد على خبرة الأستاذ @jjafferr ، ولكن يبدو أن (.) سقطت سهواً في المديول mod_ConvertToaccDE استبدله بهذا الكود ، فقط . Option Compare Database Option Explicit Public Function ConvertToaccDE(sourcedb As String, targetdb As String) Dim accessApplication As Access.Application Dim extn As String extn = db_Name_n_Extension(sourcedb) If Right(targetdb, 1) <> "\" Then targetdb = targetdb & "\" End If targetdb = targetdb & extn Set accessApplication = New Access.Application With accessApplication .SysCmd 603, sourcedb, targetdb End With Set accessApplication = Nothing End Function Public Function db_Name_n_Extension(db_name_n_path As String) As String Dim db_Extension As String Dim db_name As String db_Extension = Mid(db_name_n_path, InStrRev(db_name_n_path, ".") + 1) 'accdb or mdb db_name = Mid(db_name_n_path, InStrRev(db_name_n_path, "\") + 1) 'abc.accdb or abc.mdb db_name = Mid(db_name, 1, Len(db_Extension)) 'abc. If db_Extension = "accdb" Then db_Name_n_Extension = db_name & ".accde" ElseIf db_Extension = "mdb" Then db_Name_n_Extension = db_name & ".mde" End If End Function