عندي قاعده اسمها db1
وعندي قاعده ثانيه فيها جاول فقط واسمها db2
اريد ان احفظ بياناتي في db2
بهذه الطريقه ولكم التعديل او اني مخطء
Dim N As Database
Dim G As Recordset
()Set N = CurrentDb
Set G = N.OpenRecordset("WORK1")
G.AddNew
G![A1] = Forms![WORK1]![A1]
G.Update
G.CLOSE
علما بانه db2 محمي برقم سري الرقم هو 3344
معلش طولت عليكم وضايقتكم بسؤال
بس اتمنى ان تجاوبون علي من خلال كود هنا في المنتدي لانه كل ملف انزله لا يعمل عندي
ولكم جزيل الشكر
والله الموفق
اليك طريقة فتح جدول في قاعدة بيانات خارجية
Dim DBS As Database
Set DBS = OpenDatabase("C:DB2.MDB")
Dim rst0 As Recordset
Set rst0 = DBS.OpenRecordset("WORK1")
rst0.AddNew
rst0![A1] = Me.COST_PRICE
rst0.Update
RST0.CLOSE
Set DBS = Nothing
واي استفسار انا في الخدمة
لفتح قاعدة محمية جرب هذا :
Set DBS = OpenDatabase("C:DB2.MDB", , , "PWD=3344")
مشكور اخي
وكيف استرد البيانات
مع وجود السرق السري
ولك جزيل الشكر
الأخ الصراف :
لم أجرب طريقتك هذه ولكن كنت أعمل ارتباط بين القاعدتين والقاعدة الثانية المرتبطة تكون جداول فقط ومحمية بكلمة مرور مثلما شرحت أنت فهل جربت هذه العملية .
أشرف خليل
الاخ قاصد الكود يعمل وبشكل جيد ولكن الباسوورد لا يعمل
الاخ اشرف كبير المبرمجين
الكود يعمل جيدا واسهل وهذه الطريقه جيده وتتحكم في البرنامج اكثر من الربط
ولكن الطريقتين يؤدون الي روما
ولكن كيف استرد البيانات البكود
ولكم جزيل الشكر
تفضل اخي الكريم :
Dim oAcc As Access.Application
Const TMP = "C:ADB2.mdb"
Set oAcc = New Access.Application
Set dbs = oAcc.DBEngine.OpenDatabase(TMP, False, False, ";PWD=3344")
الرجاء من الاخ قاصد كريم وضع مثال باستخام طريقتة
ولكم الشكر
الكود شغال 100 / 100
والبركه فيك
والان يا بطل السؤال الثاني ونبي همتك
السؤال هو
انا عند استيراد البيانات من جدول اعمل هل الكود
[mydata]=dlookup("[f]","mytable","")
ارجو فهم الكود لانه لا اعرف تابة الكود بالمنتدي
والان كيف استرد البيانات من الجدول الخارجي مع وجود الرقم السري
ولك جزيل الشكر
والله الموفق
اخي العزيز
اذا اردت استخدام الـ dlookup
لابد ان يكون الجدول ( table ) المراد التعامل معه مع dlookup
في نفس قاعدة البيانات التي صدر منها الـ dlookup
أو ان يكون هذا الجدول في قاعدة خارجيه
وفي هذه الحالة ( القاعدة الخارجية ) لابد من عمل ربط (Link) لهذا الجدول مع القاعدة الحالية أو يتم فتح القاعدة الخارجية كما اوضحت لك .
والله اعلم
انا اتفق معك انه لابد ان يكون هناك لنك
ولكن اذا كنا نستطيع فتح جدول خارجي وارخال بيانات بالجدول اذن لابد نستطيع ان نسترد البيانات
مو شرط من DLOOKUP لابد وجود امر ثاني
انت شنو رايك بالموضوع
والله الموفق
نعم يوجد طريقة لاستيراد البيانات
استخدم DoCmd.TransferDatabase
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…