tiger wanted

طبعا كلامك صحيح ولكن ذلك فى اطار التجربة ومن المفترض انه سيتم من تحريك النموذج الرئيسى

مرفق لكم ملف يحتوى على ثلاث نماذج f1,f2,f3 قم بفتح f1 ستجد مسطرة افقيه ومسطرة رأسية يقومان بالتحرك داخل نموذج f1 تقديرا وعرفانا لهذا المنتدى الكبير Database16.accdb يرجى عند التحريك الضغط على زر الامر scroll والتحرك

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

تقدير لهذا الموقع الكبير الذى طالما تعلمت منه ومن اعضاءه الكرام ووجدت حلولا كثيرة لطالما تمنت ان اغير شكل سكرول بار اكسس ومرسل لكم نموذج يقوم زر امر بالتحرك عليه اسفل واعلى ويحرك سجلات النموذج الفرعى Database12.accdb

قمت بعمل هذا الكود بناء على موقع اجنبى لارسال واتس من اكسس ولكن يقوم بارسال الواتس برجاء التوضيح Private Sub send_Click() Dim strurl As String Dim strdata As String Dim struser As String Dim strpwd As String Dim objrequest As ServerXMLHTTP60 strurl = "https://api.twilio.com/2010-04-01/Accounts/AC844a9cca973d4a95a55b0e9198255350/Messages.json" strdata = "From=whatsapp:14155238886" strdata = strdata & "&To=whatsapp:" & Me!whatsAppto strdata = strdata & "&body=" & Me!whatsAppmsg struser = "sid id" strpwd = "token" Set objrequest = New ServerXMLHTTP60 objrequest.Open "POSt", strurl, False, struser, strpwd objrequest.setRequestHeader "Content-type", "application/x-www-form-urlencoded" objrequest.send strdata Debug.Print objrequest.responseBody End Sub

تم الحصول على الكود ولكن يجب الاتصال اولا باستخدام 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

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