السلام عليكم ورحمة الله تعالى وبركاته
ندخل فى الموضوع بالنسبة لربط قاعدة البينات اكسس باالاستضافات
والتحكم فى البرنامج الخاص بك من اى مكان فى العالم شرط الاتصال بالانترنت
اولا قمت بحجز استضافة مجانيه من هذا الموقع
https://somee.com/
وقمت بانشاء جدول SQL للتجربة فقط بهذا البرنامج
https://msdn.microsoft.com/en-us/sqlserver2014express.aspx?f=255&MSPPError=-2147217396
ونظرا لطلب الاخوة فى هذا الموضوع
http://www.officena.net/ib/index.php?showtopic=61485&hl=
بخصوص الربط وجعل قاعدة اكسس مجرد واجهة
قمت باعداد هذا المرفق والذى يعتمد على الاكواد المذكورة فى المشاركة السابقة
اما ان تنشء اتصال DNS وتستورد منه الجداول من خلال اكسس
او تربط الجداول مباشرة بقاعدة اكسس وتضيف وتعدل فيها وقت ما تشاء ومن اى مكان تحب
وعند اختيار ربط الجداول ستجد تلقائيا جدول فى قاعدة البيانات باسم mared تستطيع التعدل والاضافة فيه فى امكان
اترككم مع المرفق
انشاء اتصال DNS.rar
تم التعديل كما تشاء
أين الاعجاب (هل من الصعب الضغط على اشارة القلب ❤️ اسفل كل مشاركة)
(الخانات الفارغة في اسفل الصفحة لا تظهر عند الطباعة) جرب ان تعمل Print Preview و سوف ترى نطاق الطباعة
قائمة التلاميذ salim1.xlsm
و عليكم السلام
تم تسمية نطاقات جديدة
الكود هو
Range("INPUT").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"ORDER"), CopyToRange:=Range("OUTPUT"), Unique:=False
المشكلة التي واجهتني
البيانات الموجودة نم جلبها من برنامج آخر لذلك كان التاريخ عبارة عن نص ويجب تعديلة
خدمات سيارات new 2.xls
ضع هذا الكود تحت امر الطباعة لديك
Dim strDocName As String
Dim strWhere As String
strDocName = "Rep"
strWhere = "[ID]=" & Me!ID
DoCmd.OpenReport strDocName, acPreview, , strWhere