Foksh

على ما أذكر ، نعم هذا ممكن ، ولكنها غير مجانية من 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

شكراً للتوضيح ، تداخلت معي الأمور بعد البخور اللي استعملناه عشان الاستاذ ابو جودي

بخرت والله ، وانا برضو استغربت ، وقلت بنفسي يمكن العمل مربوط بالديسك توب على العموم جزاك الله خير ، وما كنت أشكك في عملك ، ولكن كحالة استغربت بس

مداخلة لتصحيح الخطأ بعد اذن أستاذي @Eng.Qassim ، وصاحب الموضوع @imad2024 بعد تجربة المرفق وجدت ان حساب الفرق بين التاريخين خاطئ !! فارتأيت تعديل بسيط بعد إذنك طبعاً . التاريخ.accdb

أكيد طبعاً أستاذي الكريم ، شكراً للتوضيح

ملغي والله

لا يوجد وظيفة مباشرة تسمى COUNTIF في Access على حد علمي كما في برامج جداول البيانات الأخرى مثل Excel. ومع ذلك، يمكنك استخدام استعلام SQL لتحقيق نفس الغرض ، وهذا مثال بسيط في الاستعلام SELECT COUNT(*) AS RecordCount FROM MyTable WHERE MyField = 'قيمة_معينة'; وهذا مثال آخر من خلال الـ VBA :- Dim db As DAO.Database Dim rs As DAO.Recordset Dim recordCount As Long Set db = CurrentDb Set rs = db.OpenRecordset("SELECT COUNT(*) AS RecordCount FROM MyTable WHERE MyField = 'قيمة_معينة';") recordCount = rs("RecordCount") rs.Close Set db = Nothing

عمل جميل جداً منك أستاذنا الكبير @ابو جودي ولكن واجهتني مشكلة غريبة ، ارفقتها في فيديو لتتضح ؛ هل من تفسير ؟؟ 2023_12_16_145730.zip

تفضل أخي ، إن كان ما فهمته صحيح جدول أنتهاء الأجازات.mdb

ارسل مرفق بسيط اذا أحببت ، لنر أين المشكلة

مربعات النص في نموذجك غير مرتبطة في الجداول ( ليس لها مصدر سجلات ) جميع الحقول تعتمد في بياناتها على تحديث الحقل نهاية العمل. وسأعدل اللازم واوافيك بأقرب فرصة ، إلا إن سبقنا أحد الأساتذة ، ولهم جزيل الشكر سلفاً 😊

Mde

تفضل محاولتي اخي الكريم التاريخ (1).accdb

يبقى هشوف الكود وازبطه بس اوصل الكمبيوتر

أخي الكريم في أقرب فرصة ، لأني حالياً بعيد عن الكمبيوتر.