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

السلام عليكم في النموذج 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

CurrentDb.Properties("StartUpForm")="myForm"

وعليكم السلام ورحمة الله وبركاتة ادخل غلى ملف ثم خيارات قم خيارات قاعدة البيانات الحالية ستجد كما في الصورة نموذج بدئ التشغيل اذا كان موجود بالامكان تغيره اذا اردت الى نموذج اخر

اضف هذا الكود للحدث الذي تريدة With CodeContextObject If (IsNull(.Enddate) Or IsNull(.Strdate)) Then Beep MsgBox "error23", vbOKOnly, "" End If End With

كان هناك كود برمجي مكرر 😭

تم الحل شكرا جزيلا

السلام عليكم لدي قاعدة بيانات يصيغة accbd تعمل بشكل طبيعي لكن عند تحويلها الى accde ينم التحويل لكن الاكواد البرمجية لاتعمل فقط الماكرو جريت التحويل على قاعدة بيانات اخرى لم اجد اي مشكلة فقط المشكلة في هذة القاعدة ارجو الحل

اخي qathi عذرا لكن اين الاستعلامات في برنامجك فالاستعلامات هي افضل شئ في الاكسس عملت لك استعلام بسيط تستطيع معرفة الكمية المتوفره من خلالة من دون ان تقوم بانقاص الكمية في القائمة ولاني لا افهم طريقة عمل برنامجك عليك ان تستفيد من الحقل Expr1 في الاستعلام في برنامجك لمعرفة كمية الكتب المتوفرة فقط اضف هذا الحقل الى القائمة وضع الشرط المناسب في حال الكمية لاتسمح تحياتي InvoiceSale_9.accdb

اعتقد ان الاساتذه هنا لايستخدمون اي واحدة من هذة في برامجهم ولكن لتسهيل الامر على السائل لانهم لابعرفون طبيعت برنامجه والدليل ما اشار به الاستاذ جعفر في مكان سابق بانة في احد برامجه اضظر لااستخدام هذة الطريقة لكنه رجع ووجد الخطا وانا عملت بنصيحته وبحثت ووجدت طريقة واستخدمت الكود التالي في بداية الحدث وتم حل المشكلة اضغه هنا لكي يستفاد الاعضاء الاخرين If Fbookmain.Form.RecordsetClone.RecordCount = 0 Then

ههههههه يعجز اللسان عن الشكر

جزيل الشكر للاستاذ المبدع @ابو جودي

السبلم عليكم لدي هذا الكود للبحث داخل النموذج DoCmd.FindRecord Me.booknamex, acEntire, False, , True, acCurrent, True المشكلة اذا لم يكن هناك بيانات في النموذج تظهر لي رسالة بالخطا 2137 ارجو منكم المساعدة

السلام عليكم احتاج كود لحفظ قاعدة بيانات بصيغة accde

مبرمج متقاعد هههههههه طريقة غريبة جزيل الشكر

السلام عليكم لدي هذا الكود rs.FindFirst "[bookname] = '" & stry & "'" الحقل bookname حقل نصي موجود في تفس النموذج لكن اصبح الحقل موجود في نموذج فرعي اسم هاذا النموذج fbooksub داخل نموذج رئيسي هو fbookmain ماحناجة هو كتابة مسار النموذج الفرعي من خلال النموذج الرئيسي فكيف تكون كتاية الكود ارجو ان تكون الفكرة واضحة لكم جزيل الشكر

السلام عليكم في النموذج الموجود احناج عندما يكون محدد السجلات على احد السجلات يتغير لون السجل بالكامل او احد الحقول ملاحظة لا اقصد عندما يكون التركيز على احد الحفول لكن عندما يكون محدد السجلات مركز على احد السجلات كما في الصورة xy.accdb

السلام عليكم ,,,,, اعضاء منتدى اوفيسانا الاعزاء لدي نموذج مكون من حقلان x , y قمت بتقسبم عدد الموجود في الحقل y على الغدد الموجود في الحقل x المشكلة لدي انة لايظهر الاعداد العشرية عند التقسبم كما في الصورة xy.accdb

السلام عليكم هل بالامكان اضافة زر خانة الاختيار عن طريق الاستعلام وليس الجدول CHECK BOX.accdb

السلام عليكم لدي هذة المعادلة البسبطة لكني احناج بديل لها تفوم بنفس الوظيفة Expr1: Nz([bookavailable]-[bookback];[bookavailable])

اجعل خاصبة التقرير منبثق

استاذ @Moosak جزيل الشكر زهو المطلوب

السلام عليكم في النموذج fa يوجد نموذج فرعي fa1 يحتوي على مربع تحرير وسرد numb احتاج عند اضافة اسم غير موجود يتم اضافة في الجدول tbb تحت الحقل nameb وان تكون قيمة المفتاح numb في الجدول tbb مساوية للاسم الجديد التي تمت اضافتة bl.accdb

جزيل الشكر لكم @ابو جودي و @Moosak تم الحل جزاكم الله كل خير

السلام عليكم لدي هذا الكود بظهر خطا عند تنفيذه ممكن تعدبل الخطا ="[Nameread]='" & [x1] & "'" And [dateread] Between Nz([Forms]![fmainreader]![x2]) And Nz([Forms]![fmainreader]![x3])