عبد الله قدور

اخي الكريم الطريقة المعروضة في الفيديو في الموقع هي افضل بكثير من هذه الطريقة يمكنك مراجعة الموقع والكود الرابط

السلام عليكم ورحمة الله وبركاته اسعد الله اوقاتكم اخواني الكريم بعد بحث مطول عن كود ارسال رسائل الواتس اب عن طريق الاكسس حصلت على هذا الكود لكني لم استطيع تحديد المتغيرات المطلوب اضافتها في الكود وهي INSTANCE_ID = "YOUR_INSTANCE_ID_HERE" CLIENT_ID = "YOUR_CLIENT_ID_HERE" CLIENT_SECRET = "YOUR_CLIENT_SECRET_HERE" Sub Main_Routine() ''' The first parameter is the recipient's number, including the country code. ''' The second paramter is the content of the message. WhatsAppMessage_Send "12025550108", "God Loves You" ''' TODO: Specify the recipient's number here. NOT the gateway number End Sub Sub WhatsAppMessage_Send(ByRef strNumber As String, ByRef strMessage As String) Dim INSTANCE_ID As String, CLIENT_ID As String, CLIENT_SECRET As String, API_URL As String Dim strJson As Variant Dim sHTML As String Dim oHttp As Object ''' TODO: Replace the following with your gateway instance ID, your Forever Green client ID and secret: INSTANCE_ID = "YOUR_INSTANCE_ID_HERE" CLIENT_ID = "YOUR_CLIENT_ID_HERE" CLIENT_SECRET = "YOUR_CLIENT_SECRET_HERE" API_URL = "http://api.whatsmate.net/v3/whatsapp/single/text/message/" & INSTANCE_ID strJson = "{""number"": """ & strNumber & """, ""message"": """ & strMessage & """}" Set oHttp = CreateObject("Msxml2.XMLHTTP") oHttp.Open "POST", API_URL, False oHttp.setRequestHeader "Content-type", "application/json" oHttp.setRequestHeader "X-WM-CLIENT-ID", CLIENT_ID oHttp.setRequestHeader "X-WM-CLIENT-SECRET", CLIENT_SECRET oHttp.Send strJson sHTML = oHttp.ResponseText MsgBox sHTML End Sub

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

السلام عليكم اسعد الله اوقاتكم اخواني الكريم اريد ان اجمع عدة خلايا نصية في خلية واحدة باستخدام & او دالة جمع النصوص لكن اريد ان اضع قيمة كل خلية في سطر مستقل عن الثاني كما في الصورة

السلام عليكم نحن جاهزون اخي الكريم للمساعدة لو تكرمت تضع مرفق للتعديل عليه

لم يفلح الامر اخي الكريم اذكر اني سمعت في احد الدروس انه يجب وضع حرف N عند استخدام الشرط النصي، لكني نسيت مكانه وكيفية استخدامه

السلام عليكم ورحمة الله وبركاته حياكم الله جميعا عندي الدالة dlookup لا تعمل ولا ادري اين الخطأ DLookup("[pass]", "TblEmp", "arname='" & Me.Cuser & "'") علما ان اسماء الاعمدة و الجدول صحيح ملاحظة الجدول هو جدول مرتبط بقاعدة بيانات sql هل لهذا له علاقة بالدالة .

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

للرفع

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

للاسف اخي الكريم لم يفلح الامر الموجود في الرابط

السلام عليكم ورحمة الله وبركاته اسعد الله اوقاتكم في استعلام مصدره جدول من اكسس كنا نكتب التعبير التالي وتكون نائجه رائعة like "*" & [forms]![top]![qq]& "*" ولكن لما اصبح مصدر الاستعلام هو جدول قاعدة بيانات sql لم يفلح هذا الكود في العمل، فما هو الكود المقابل له في sql

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

جزاك الله كل خير اخي ابو عبد الله الحلواني لكن كيف يمكنني تعديل جدول موجود على قاعدة بيانات على ازور؟ اما بالنسبة للعمود هل هناك اسم محدد للعمود ام اضع اي اسم من عندي؟

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

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

حياك الله @أبو عبدالله الحلوانى عندنا كل حبة بسنة 🤣😂 في العادة يتم اضافة المرفقات بالضغط على الزر العائم ، لكن عند تحويل البرنامج الى accdr لا يظهر هذا الزر هذا سبب سبب اخر اريد رغبتي باضافة زر لاضافة المرفقات حتى اتمكن من ضبط صلاحيات المستخدمين حيث يحق لاشخاص رفع وحذف المرفقات واشخاص لا

السلام عليكم هذا المرفق dd.accdb

للرفع

السلام عليكم ورحمة الله وبركاته حياكم الله جميعا وجدت هذا الكود على النت يقوم بترجمة النصوص داخل النموذج عن طريق كوكل ترانسليت Option Compare Database Declare PtrSafe Sub Sleep Lib "kernel32" _ (ByVal dwMilliseconds As Long) Global LangFrom As String Global LangTo As String Public Function AutoTranslate(ByVal Text As String) 'Add references to [Microsoft Internet Controls], [Microsoft Scripting Runtime] and [Microsoft 14.0 Object Library] ' On Error GoTo Err_Point Dim IE As InternetExplorer Dim URL As String Dim liCount As Integer Text = Replace(Text, "/", "") Text = Replace(Text, "\", "") For liCount = 0 To 31 Text = Replace(Text, Chr(liCount), "") Next liCount If Len(LangFrom) < 1 Then LangFrom = "ar" End If If Len(LangTo) < 1 Then LangTo = "en" End If '"https://translate.google.com/#" & langfrom & "/" & langto & "/" & text URL = "https://translate.google.com.tr/" & LangFrom & "/" & LangTo & "/" & Text Set IE = New InternetExplorer IE.Visible = False IE.Navigate URL Do Until IE.ReadyState = 4 DoEvents Loop Sleep 1000 AutoTranslate = IE.Document.querySelector(".tlid-translation.translation").innerText IE.Quit Set IE = Nothing Exit Function Err_Point: IE.Quit Set IE = Nothing strMsg = err.Number & Chr(13) & err.Description strTitle = "Error during translation" strResponse = MsgBox(strMsg, vbCritical, strTitle) End Function دائما يظهر لي خطأ عند الكود التالي: AutoTranslate = IE.Document.querySelector(".tlid-translation.translation").innerText فما السبب Google-Tran.accdb

السلام عليكم ورحمة الله وبركاته حياكم الله جميعا اخي الكريم @Elsayed Bn Gemy فكرة رائعة جدا لكنا نحتاج الى عدة امور تدعم هذه الفكرة منها 1- امكانية انشاء قاعدة بيانات جديدة sql والاتصال بها برمجيا (وذلك بسبب أن برامج المحاسبة تحتاج الى قاعدة بيانات جديدة لكل سنة) 2- امكانية النسخ الاحتياطي للقاعدة واستعادة النسخة الاحتياطية برمجيا 3- يوجد في قواعد بيانات sql ميزة انشاء function بحيث ترسل الامر الى القاعدة عن طريق الاتصال بالفنكشن الموجود بقاعدة بيانات sql ، يا ترى اكسس يستطيع الاتصال بها ؟؟؟ طبعا هذه الميزة توفر جهد كبير في ادخال البيانات وتعديلها واستدعائها من قاعدة البيانات و تعطي سرعة في العمل على الشبكة 4- اخيرا اخي العزيز من خلال بحثي على اليوتيوب عن هذا الموضوع وجدت فيديو لادخال البيانات وتعديلها من الاكسس الى sql بدون ربط الجداول حسب ما فهمت من الفيديو ، لكني للأسف لم استطع تطبيق ذلك نرجوا منك شاكرين الاطلاع عليه لعله يفيدنا في تحسين هذه الفكرة وحصولنا على خيارات اكبر

هل تقصد مكان ظهور النموذج على الشاشة؟ ان يظهر في المنتصف او يسار اعلى الشاشة ثم تقوم بتحريكه برمجيا الى مكان اخر

السلام عليكم ورحمة الله وبركاته لا ادري ان كانت هذه المعلومة مفيدة لكم ما اعرفه ان كل واحد سم في الاكسس يساوي 567 لكني نسيت ما اسم وحدة القياس هذه مثال اذا اردنا ان نضع عرض مربع نص 2 سم فيكون الكود me.textbox.width = 2*567

السلام عليكم ورحمة الله وبركاته وانا كمان اول مرة ارى هذا الامر ، ولكن عندما جرتبه توقف النموذج كاملا عن العمل ولم يفلح لايقافه سوى اغلاق الاكسس 😅

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