tiger wanted

تم الحصول على الكود ولكن يجب الاتصال اولا باستخدام sql driver 17 Sub nel_SQL() Dim db As DAO.Database Dim tdf As DAO.TableDef Set db = CurrentDb For Each tdf In db.TableDefs If tdf.Connect <> "" Then 'tdf.Connect = "PROVIDER=SQLOLEDB;SERVER=WIN-9V6JHD626P3\SQLEXPRESS;DATABASE=tarikbase2;UID=user1001;PWD=1@@1a" tdf.Connect = "ODBC;DRIVER=ODBC Driver 17 for SQL Server;SERVER=.\SQLEXPRESS;UID=user1001;PWD=1@@1a;Trusted_Connection=No;DATABASE=tarikbase2;" 'ODBC;DRIVER=ODBC Driver 17 for SQL Server;SERVER=.\SQLEXPRESS;UID=user1001;PWD=1@@1a;Trusted_Connection=No;DATABASE=tarikbase2; tdf.refreshlink End If Next tdf Set tdf = Nothing Set db = Nothing End Sub

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

من فضلك ارجو الايضاح فى انتظار الرد

قمت بعمل كود لاعادة ربط الجداول بسيكوال سيرفر ولكن هناك خطأ اليكم الكود Public Function relinksqltables() As Boolean On Error GoTo relinksqltablesErr Dim tdef As TableDef Dim constr As String Dim cnn As ADODB.Connection Dim strserver As String, strdb As String, struser As String, strpass As String constr = "drive={ODBC;DRIVER=ODBC Driver 17 for SQL Server;SERVER=WIN-9V6JHD626P3\SQLEXPRESS;id = administrator;PASSWOR= ;database=tarikbase;Trusted_Connection=yes;APP=SSMA;DATABASE=tarikbase;" DoCmd.SetWarnings False For Each tdef In db.TableDefs Debug.Print tdef.Name If InStr(tdef.Connect, "odbc") And Left(tdef.Name, 3) = "dbo" Then If tdef.Connect <> conster Then tdef.Connect = constr tdef.RefreshLink End If End If Next DoCmd.SetWarnings True Exit Function relinksqltablesErr: relinksqltables = False MsgBox "Error in relinksqltables: " & Err.Description End Function وهذه الصورة التى تظهر عند تشغيل النموذج

هل يمكن الارتباط باكسل واضافة بيانات من واجهة اكسس الى اكسل برجاء الافادة

بارك الله فيك فعلا هذا هو الحل المطلوب شكرا للجميع

للرفع

شكرا على الرد ولكن اريد الرصيد حسب code وحسب dat معا ارجو ان يكون الطلب واضح

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

اشكركم على الاجابة وبارك الله فيكم

فى هذا الفيديو كود يقوم بسحب وادراج نص من مربع نص الى مربع نص اخر وقمت بكتابة الكود ولكن هناك خطأ يظهر مرفق لكم الملف برجاء المراجعة والافادة Database5.accdb

شكرا على مجهودكم

هل الامر صعب برجاء الافادة

للرفع

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

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

INSERT INTO بنود_حجز_البضاعة ( رقم_الحركة, مستلم_الطلب, المسئول_عن_الطلب, محرر_الطلبية, العدد, الصنف, سعر_الوحدة, كود_الصنف_الفرعى, كود_الصنف_الرئيسى, الكمية_المحجوزة, صورة_الصنف, ملاحظات_البند, اجمالى, رقم_الفاتورة, رقم_الحجز ) SELECT بنود_عرض_السعر.رقم_الحركة ,بنود_عرض_السعر.مستلم_الطلب ,بنود_عرض_السعر.المسئول_عن_الطلب ,بنود_عرض_السعر.محرر_الطلبية ,بنود_عرض_السعر.العدد ,بنود_عرض_السعر.الصنف ,بنود_عرض_السعر.سعر_الوحدة ,بنود_عرض_السعر.كود_الصنف_الفرعى ,بنود_عرض_السعر.كود_الصنف_الرئيسى ,بنود_عرض_السعر.الكمية_المحجوزة ,بنود_عرض_السعر.صورة_الصنف ,بنود_عرض_السعر.ملاحظات_البند ,بنود_عرض_السعر.اجمالى ,بنود_عرض_السعر.رقم_الفاتورة ,بنود_عرض_السعر.رقم_الحجز FROM بنود_عرض_السعر LEFT JOIN بنود_حجز_البضاعة ON بنود_عرض_السعر.[رقم_الحجز] = بنود_حجز_البضاعة.[رقم_الحجز] WHERE (((بنود_عرض_السعر.رقم_الفاتورة)=0) AND ((بنود_عرض_السعر.رقم_الحجز)=[forms]![form5]![tx]) غالبا المشكلة هنا' AND ((بنود_حجز_البضاعة.رقم_الحجز) Is Null)) OR (((بنود_عرض_السعر.رقم_الفاتورة) Is Null)) تكملة لموضع الاستعلام التمريرى اليكم هذا الاستعلام برجاء حل المشكلة

هل يمكن عمل استعلام تمريرى مبنى على مربع نص فى نموذج

هذا الموقع يقوم بتحويل لغة sql access الى sql server وكذلك vba SQL Converter - AccessUserGroups.org

نجحت التجربة بارك الله فيكم وسأوافيكم بأى شيء طارئ

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

للرفع

مرفق لكم صورة بالنتيجة التى ظهرت برجاء المساعدة والتوضيح وهذا الكود الذى تم استعماله 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 بين الاكواد التى ارسلتها برجاء التوضيح كيف سيتم ترتيب الكود واين سأضع هذا التعديل فى انتظار ردكم

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