السلام عليكم
لدي 21 جدول مقسمة على الاحرف الابجدية للكتب قمت بالتقسيم بسبب عدد الكتب الكبير احتاج الان طريقة لربط هذة الجداول مع بعض هل من افكار يوجد مثال بسيط عن طريقة تقسيم الجداول عندي
library.accdb
السلام عليكم
في الجدول tbbook احتاج حذف النص في كافة الحقول الموجود بعد العلامة / مثلا book3 and f / كتاب1 يصبح book3 and f
ملاحظة ارجو ان يكون الحذف مع العلامة
library.accdb
وعليكم السلام اخي العزيز
هذا الكود للقراءة فقط
DoCmd.OpenTable "tablename", acViewNormal, acReadOnly
وهذا الكود لكل الصلاحيات
DoCmd.OpenTable "tablename", acViewNormal, acEdit
السلام عليكم
لدي نموذج fmast يحتوي حقلان الاول id mast وهو ترقيم تلقائي والثاني mast وهو نص احتاج طريقة لخذف السجلات بشرط ان يكون الحقل في id mast رقم زوجي مثلا 4,6,8,10, 2
mast.accdb
السلام عليكم
لدي مربع نص textbox1 وهناك ثلاثة ازرار الاول button1 والثاني button2 والثالث button3 احتاج عند الضغط على الزر الاول يكتب قي مربع النص الرقم الاخير من اسم الزر يمعنى يكتب 1 وهكذا يقية الازرار
طبعا نوجد طريفة وهي كتاية الكود التالي تحت كل زر وحسب الرقم المطلوب
me.textbox1 = 1
لكني احتاج طريقة اسهل لوجد العديد من الازرار في مشروعي وهناك مجموعة من الاكواد المرتبطة في كل زر
New Microsoft Access قاعدة بيانات.accdb
السلام عليكم
قي النموذح ftext يوجد حقل textfield وهناك زران الاول textimport احتاج عند الضغط علية يجلب لي النص الموجود في المستند textm الى الحقل textfield وهذا المستند موجود بجانب قاعدو البيانات في نفس فولدر القاعدة اما الزر الثاني textchange عند الضغط علية يتم تحديث النص الموجود في المستند textm مثلا لو كان النص في textfield بعد جلبة هو x12345 وبعد تغيرة في textfeild الى y12345 والضغط على الزر textchange ينم تحديث النص الموجود في المستند textm الى القيمة الجديدة
textf.rar
Function EnableShift()
'This function enables the SHIFT key at startup. This action causes
'the Autoexec macro and the Startup properties to be bypassed
'if the user holds down the SHIFT key when the user opens the database.
On Error GoTo errEnableShift
Dim db As DAO.Database
Dim prop As DAO.Property
Const conPropNotFound = 3270
Set db = CurrentDb()
'This next line of code disables the SHIFT key on startup.
db.Properties("AllowByPassKey") = True
'function successful
Debug.Print "Enabled Shift Key - Successful"
GoTo ExitHere
errEnableShift:
'The first part of this error routine creates the "AllowByPassKey
'property if it does not exist.
If Err = conPropNotFound Then
Set prop = db.CreateProperty("AllowByPassKey", _
dbBoolean, True)
db.Properties.Append prop
Resume Next
Else
MsgBox "Function 'ap_DisableShift' did not complete successfully."
GoTo ExitHere
End If
ExitHere:
Set prop = Nothing
Set db = Nothing
Exit Function
End Function
وعليكم السلام ورحمة الله وبركاتة
بعض الاحيان لاتحتاج عمل علاقة بين الجداول يجب اولا تحديد نوع البيانات المراد عمل علاقة بينهم ثم نفوم بانشاء العلاقات اما بخصوص سؤالك لماذا لم تظهر البيانات في الاستعلام ببساطة لانة لايوجد حقول مشتركة بين الجدولين لاحظ يعد اضافة اسم علي الى الجدول 2 ظهرت بيانات في الاستعلام كما في هذا المثال
New Microsoft Access قاعدة بيانات.accdb
اما اا اردت دمج جدولين من تصميم في الاستعلام اختر استعلام دمج كما في هذا المثال
New Microsoft Access قاعدة بيانات.accdb
السلام عليكم
احتاج كود تحت زر بحيث عند الضغط على هذا الزر يفنح مستعرض الملفات وعند الضغط على الملف المطلوب يقوم بتخزين مسار هذا الملف في حقل داخل النموذج وليكن اسمه filesource دون فتح الملف ثم يغلق مستعرض الملفات