tiger wanted

اعتذر اولا على ارسال الكود بالطريقة الخاطئة وسأقوم بالتعديل واخبركم النتيجة واشكركم على مجهودكم

للرفع

مرفق لكم صورة بالنتيجة التى ظهرت برجاء المساعدة والتوضيح وهذا الكود الذى تم استعماله Dim qdf As DAO.QueryDef, rst As DAO.Recordset Set qdf = CurrentDb.CreateQueryDef("f11") qdf.Connect = "ODBC;DRIVER=SQL Server;SERVER=" & Me.server_name & ";" & "UID=" & Me.user_name & ";" & Trusted_Connection = no & "DATABASE=" & Me.database_name & ";""" qdf.SQL = "INSERT INTO كشف_الحساب ( رقم_فاتورة_المسحوبات, رقم_الحساب, التاريخ, اولوية_التسلسل, قيمة_الفاتورة ) SELECT بنود_الفاتورة.رقم_الفاتورة ,الفاتورة.رقم_حساب_العميل ,الفاتورة.تاريخ_العملية ,الفاتورة.اولوية_العرض ,Sum([العدد]*[سعر_الوحدة]) AS اجمالىFROM بنود_الفاتورة INNER JOIN الفاتورة ON بنود_الفاتورة.رقم_الفاتورة = الفاتورة.رقم_الفاتورةGROUP BY بنود_الفاتورة.رقم_الفاتورة ,الفاتورة.رقم_حساب_العميل ,الفاتورة.تاريخ_العملية ,الفاتورة.اولوية_العرض" qdf.ReturnsRecords = False DoCmd.OpenQuery "f11"

سأقوم بالتجربة وابلغكم بالنتيجة واشكركم على الاهتمام والرد سؤال هل يجب ان اضع strConnectionString بين الاكواد التى ارسلتها برجاء التوضيح كيف سيتم ترتيب الكود واين سأضع هذا التعديل فى انتظار ردكم

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

مرسل لكم كود يقوم بعمل استعلام تمرير لسيكوال سيرفر المطلوب تعديل بحيث qdf.connect = قيمة متغيرة فى مربع نص وليس قيمة ثابتة بحيث يمكننى تغيير بيانات السيرفر وقاعدة البيانات من خلال مربع نص فى نموذج Sub Test_PassThroughQuery() Dim qdf As DAO.QueryDef, rst As DAO.Recordset Set qdf = CurrentDb.CreateQueryDef("MyPassthroughQuery") qdf.Connect = "ODBC;DSN=database_name;UID=username;PWD=password;DBQ=ADPR;DBA=W;APA=T;EXC=F;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;BTD=F;BNF=F;BAM=IfAllSuccessful;NUM=NLS;DPM=F;MTS=T;MDI=F;CSR=F;FWC=F;FBS=64000;TLO=O;MLD=0;ODA=F;" qdf.SQL = "SELECT * FROM DATE_TABLE" qdf.ReturnsRecords = True DoCmd.OpenQuery "MyPassthroughQuery" End Sub ولكم جزيل الشكر وفى انتظار ردكم

فى انتظار ردكم

حاولت كثيرا ولم تفلح التجربة واليكم الآن مأاريده من هذه العملية قد تساعدونى فى ذلك اقوم فى عملى بادارة قاعدة بيانات عملاء وكنت اعمل قاعدة بيانات اكسس لمدة طويلة بدون مشاكل ولكن سيتم عمل افرع اخرى وعندما سألت اوصونى بأن اقوم بعمل خلفية سيكوال سيرفر وواجهة اكسس ونجحت العملية ولكن كانت هناك مشكلة دائمة تواجهنى وهى استعلامات التحديث والالحاق مع فتح نماذج الخاصة بتحديث بيانات العملاء لترحيل الحساب المفتوح والمغلق وهكذا لقد وجدت بطئ شديد فى التعامل حتى قادتنى الصدفة الى خاصة pass_throw وهى تقوم بتنفيذ استعلام سيكوال سيرفر من خلال اكسس بكتابة الاستعلام داخل نموذج الاكسس وتنفيذه بسرعة رهيبة ولكن يجب على عمل حفظ اتصال بالسيرفر من خلال الخاصية وقادنى ذلك الى سؤال ماذا لو تم تغيير هذا السيرفر لا يمكن للمستخدم فتح التصميم وعمل اضافة اتصال جديدا ولذلك فكرت بعمل نموذج يعيد عملية الاتصال بسهولة ولذلك ارجو مساعدتى فى ذلك

نفس المشكلة سأحاول عند وصولى المنزل واوافيكم بالنتيجة سأكون معكم على تواصل

هذا هو الكود المراد تنفيذه ولم يتم Dim dbs As dao.Database Set dbs = CurrentDb Dim strConnect As String strConnect = "ODBC;DRIVER={SQL Native Client}" _ & ";SERVER= WIN-O7711S4F355\SQLEXPRESS" _ & ";DATABASE=main" _ & ";UID= administartor" _ & ";Trusted_Connection=Yes" & ";" For Each qdf In dbs.QueryDefs If qdf.Type = dbQSQLPassThrough Then qdf.Connect = strConnect End If Next qdf ظهور رسالة هذا الكود غير معتمد مع العلم انه تم الاتصال بالسيرفر بدون مشاكل فى انتظار ردكم المطلوب عمل اتصال من خلال استعلام pass- through فى انتظار ردكم ولكم منا جزيل التقدير والعرفان

نجحت التجربة على الامر الاغلاق والان سوف اتصل بسيكوال سيرفر واقوم باتصال سيرفر عن طريق هذا الكود وسأبلغكم بالنتيجة ان شاءالله

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

فى انتظار ردكم جزاكم الله كل خير

لم يتم تنفيذ الكود مرفق صورة

اشكرك على الرد وجارى التجربة

مربع نص كتبت بداخله docmd.close واسم مربع نص mycode كيفية انشاء زر امر يقوم بقراء الكود د اخل مربع النص وتنفيذه شكرا لكم وفى انتظار مساعدتكم

مرفق لكم صورة بما اريد

رابط الموقع الذى يتم فيه تحويل جمل sql access الى sql server SQL Converter - AccessUserGroups.org

اشكركم جدا وجارى التجربة

كود للضغط على مفاتيح ctrl+s برمجيا لحفظ التغييرات داخل استعلام بعد اجراء لصق معين وفى حالة العثور على هذا الكود سأوضح لكم كيفية عمل ذلك ولكن اريد كود مفاتيح الحفظ ctrl+s وفى انتظار الرد وشكرا

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

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

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

للرفع مرفق لكم نموذج للتعديل backupand restor.accdb

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