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

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

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

للرفع

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