ازهر عبد العزيز

بالتوفيق استاذ @محمد احمد لطفى

لاداعي للاسف استاذنا الكبير مرورك بموضعي يكفي وشكرا على النصيحة القيمة التي ساعمل بها

السلام عليكم لدي 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

السلام عليكم ممكن مساعدة في تحويل ملف اكسل الموجود الى ورد و PDF BNIN.xlsx

وهو المطلوب جزاك الله كل خير

السلام عليكم لدي مربع نص 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

استعمل الكود الاخير للاستاذ @Eng.Qassim ثم اجعل الالتزام بالقائمة لا لن تظهر لك الرسالة واضف الكود التالي في نهاية الكود Me.Combo0 = Null تحياتي

حسب فهمي للسؤال عليك استخدام معيار في الاستعلام <> True datadaleywork.accdb

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

ملاحظة تلسكوبية اخي حلبي ماهو التكتست موجود داخل زر الامر وهذا مثال اخر لعلي وفقت للمطلوب o.accdb

لعلة المطلوب o.accdb

وعليكم السلام ورحمة الله وبركاتة بعض الاحيان لاتحتاج عمل علاقة بين الجداول يجب اولا تحديد نوع البيانات المراد عمل علاقة بينهم ثم نفوم بانشاء العلاقات اما بخصوص سؤالك لماذا لم تظهر البيانات في الاستعلام ببساطة لانة لايوجد حقول مشتركة بين الجدولين لاحظ يعد اضافة اسم علي الى الجدول 2 ظهرت بيانات في الاستعلام كما في هذا المثال New Microsoft Access قاعدة بيانات.accdb اما اا اردت دمج جدولين من تصميم في الاستعلام اختر استعلام دمج كما في هذا المثال New Microsoft Access قاعدة بيانات.accdb

if isnull(tnv) or tnv = "" then exit sub end if

اغلق الوجهة ثم قم بتمكين المحتوى من الشرط الاعلى

السلام عليكم احتاج كود تحت زر بحيث عند الضغط على هذا الزر يفنح مستعرض الملفات وعند الضغط على الملف المطلوب يقوم بتخزين مسار هذا الملف في حقل داخل النموذج وليكن اسمه filesource دون فتح الملف ثم يغلق مستعرض الملفات

السلام عليكم في النموذج fauthor اسماء احتاج عند الضغط دبل كلك على اي اسم موجود يتم البحث عن الاسم في محرك البحث كوكل sgoogle.accdb

On Error GoTo Err_traghh_Click DoCmd.SetWarnings False Me.Job_ID.SetFocus If Me.flagsav = 1 And (IsNull(Me.Job_ID)) Then If MsgBox("åá ÈÇáÝÚá ÇáÊÑÇÌÚ Úä ÊÓÌíá ÇáÈíÇäÇÊ ¿", vbYesNo + vbCritical + vbMsgBoxRight + vbDefaultButton2, "ÊÍÐíÑ") = vbNo Then Exit Sub Else Me.flagsav = Null Me.Refresh Me.Requery Me.OrderByOn = True Me.OrderBy = "[Job_ID] DESC" End If MsgBox "Êã ÇáÊÑÇÌÚ Úä ÇáÊÓÌíá ÈäÌÇÍ.", 48, " " End If If (Not IsNull([Job_ID]) And Not IsNull(Me.flagsav) And (Me.flagsav = 1)) Then If MsgBox("åá ÊÑíÏ ÈÇáÝÚá ÇáÊÑÇÌÚ Úä ÊÓÌíá ÇáÈíÇäÇÊ ¿", vbYesNo + vbCritical + vbMsgBoxRight + vbDefaultButton2, "ÊÍÐíÑ") = vbNo Then Exit Sub Else On Error Resume Next With Me .AllowDeletions = True DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 DoCmd.RunCommand acCmdDeleteRecord DoCmd.RunCommand acCmdSaveRecord DoCmd.RunCommand acCmdRefresh Me.Requery Me.Refresh DoCmd.SetWarnings True .AllowDeletions = False .AllowEdits = True Me.OrderByOn = True Me.OrderBy = "[Job_ID] DESC" End With End If MsgBox "Êã ÇáÊÑÇÌÚ Úä ÇáÊÓÌíá ÈäÌÇÍ.", 48, " " End If If Me.flagsav = 2 Then If MsgBox("åá ÊÑíÏ ÈÇáÝÚá ÇáÊÑÇÌÚ Úä ÊÚÏíá ÇáÈíÇäÇÊ ¿", vbYesNo + vbCritical + vbMsgBoxRight + vbDefaultButton2, "ÊÍÐíÑ") = vbNo Then Exit Sub Else End If Me.Refresh With Me .AllowEdits = True End With MsgBox "Êã ÇáÊÑÇÌÚ Úä ÇáÊÚÏíá ÈäÌÇÍ.", 48, " " DoCmd.RunSQL "UPDATE EMPLOYEES INNER JOIN EMPLOYEES_Temp ON EMPLOYEES.Job_ID = EMPLOYEES_Temp.Job_ID SET Cars_ machinery.Job_ID = [EMPLOYEES_Temp]![Job_ID], EMPLOYEES.ID_cant = [EMPLOYEES_Temp]![Vehicle Type],Cars_ machinery.Vehicle Type = [EMPLOYEES_Temp]![Vehicle Type];" DoCmd.RunSQL "UPDATE Tabl_2 INNER JOIN Tabl_2_Temp ON Tabl_2.B_id = Tabl_2_Temp.B_id SET Tabl_2.FName = [Tabl_2_Temp]![FName], Tabl_2.Kinship = [Tabl_2_Temp]![Kinship];" DoCmd.RunSQL "DELETE Tabl_2.*, Tabl_2.Nn_Id, Tabl_2_Temp.B_id " & _ " FROM Tabl_2 LEFT JOIN Tabl_2_Temp ON Tabl_2.B_id = Tabl_2_Temp.B_id " & _ " WHERE (((Tabl_2.Nn_Id)=[Forms]![frm_F]![N_id]) AND ((Tabl_2_Temp.B_id) Is Null));" DoCmd.RunSQL "INSERT INTO Tabl_2 " & _ " SELECT Tabl_2_Temp.* " & _ " FROM Tabl_2 RIGHT JOIN Tabl_2_Temp ON Tabl_2.B_id = Tabl_2_Temp.B_id " & _ " WHERE (((Tabl_2.B_id) Is Null) AND ((Tabl_2_Temp.Nn_Id)=[Forms]![frm_F]![N_id]));" End If On Error Resume Next AllowAdditions = False AllowEdits = False AllowDeletions = False On Error GoTo 0 Me![cmdNext].Enabled = True Me![cmdPrevious].Enabled = True Me![cmdLast].Enabled = True Me![cmdFirst].Enabled = True Me![D_L].Enabled = True Me![seva].Enabled = True Me![cmdClose].Enabled = True Me![addnew].Enabled = True Me![Edit].Enabled = True Me![traghh].Enabled = True If DCount("*", "EMPLOYEES", "Job_ID") < 1 Then Me![addnew].Enabled = True Me![cmdNext].Enabled = True Me![cmdPrevious].Enabled = False Me![cmdLast].Enabled = False Me![cmdFirst].Enabled = Fals Me![D_L].Enabled = True Me![cmdcols].Enabled = True Me![Edit].Enabled = True Me![sav].Enabled = True Me![traghh].Enabled = True AllowAdditions = True AllowEdits = True AllowDeletions = True End If Me.flagsav = Null Me.traghh.Caption = "" DoCmd.SetWarnings True Exit_traghh_Click: Exit Sub Err_traghh_Click: MsgBox Err.DESCRIPTION Resume Exit_traghh_Click