Foksh

تفضل أخي هذه المحاولة ,, 1111-1.accdb طبعاً أعتقد أن هذا هو الحل الصحيح والذي قد يكون مقنعاً لي

جرب هذا المرفق أخي الكريم ,, Foksh.accdb

اخي الكريم سأحاول غداً إن شاء الله تعديل الكود لطلبك 😊

تفضل ، هذا مثال سريع Foksh.accdb

ولا يهمك أخي الكريم .. ولا تنسي إغلاق الموضوع باختيار أفضل إجابة 😊

دائماً تبهرنا بما في جعبتك 🥰 أستاذنا ومعلمنا الفاضل @Moosak ما شاء الله عليك ، إضافات مهمة وفعالة ، وشرح كافي و وافي وفقك الله ، وجعله في ميزان حسناتكم 🤲

ممكن توضح ايه يعني استعلام , ثانياً هل جربت فكرتي ؟

هذه محاولتي أخي الكريم @الحلبي الاكثر بيع.accdb

نيابة عن الأخ @Hamtoooo ، اخي الكريم @moho58 في أي جدول تريد التغيير أن يتم ؟ وليس في أي نموذج

أخي @Emad.85 لا تنسى اغلاق الموضوع باختيار افضل إجابة

أخي الكريم كمثال سريع ، قم بجعل الحقل ( 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 لم تتم التجربة طبعاً ولكن كفكرة أعتقد أنها ممكنة ، وبانتظار الأساتذة مشاركتنا خبرتهم