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

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

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

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