ابو ياسين المشولي

If Me.shose = -1 Then Set Rs = CurrentDb.OpenRecordset("master", dbOpenDynaset) Set Rs = Forms!invoicebuy!buysub.Form.RecordsetClone Forms![invoicebuy].SetFocus Forms!invoicebuy!buysub.SetFocus Rs.FindFirst "[categoryname] = '" & Me.categoryname & "' And catcod =" & Me.catcods If Rs.NoMatch = False Then DoCmd.OpenForm "frm_Message" Forms!frm_Message!lblMessage.Caption = "ÇáÑÞã ãßÑÑ" MsgBox " ÇáÑÞã ãßÑÑ" & " ", , "ÊÜäÜÈÜíÜå" Else Rs.AddNew Rs!materinvoice = [Forms]![invoicebuy]![buyinvoice] Rs!catcod = catcods Rs!categoryname = categoryname Rs!pricebuy = pricebuy Rs.Update End If End If شوف هذا الكود يضيف في الجدول وفي الفورم واذا هو ليس المطلوب ارجو توضيح المطلوب بالصور

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

انا اسف لم انتبه لطلبك هذا اتفضل هذا حسب طلبك If Me.shose = -1 Then Dim Rs As DAO.Recordset Set Rs = Forms!invoicebuy!buysub.Form.RecordsetClone Forms![invoicebuy].SetFocus Forms!invoicebuy!buysub.SetFocus Rs.FindFirst "[categoryname] = '" & Me.categoryname & "' And catcod =" & Me.catcods If Rs.NoMatch = False Then DoCmd.OpenForm "frm_Message" Forms!frm_Message!lblMessage.Caption = "ÇáÑÞã ãßÑÑ" MsgBox " ÇáÑÞã ãßÑÑ" & " ", , "ÊÜäÜÈÜíÜå" Else Rs.AddNew Rs!materinvoice = Forms!invoicebuy!buyinvoice Rs!catcod = catcods Rs!categoryname = categoryname Rs!pricebuy = pricebuy Rs.Update End If End If الاصناف.accdb

جرب هذا If Me.shose = -1 Then Forms!invoicebuy!buysub!catcod = Me.catcods Forms![invoicebuy]!buysub!categoryname = Me.categoryname Forms!invoicebuy!buysub!pricebuy = Me.pricebuy End If وقبل التحديث If Forms!invoicebuy!buysub!catcod = Me.catcods Then MsgBox " الـمـعـذرة تـم تـسـجـيـل هـذا الـصـنـف عـلـى هـذة الـفـاتـورة " & " " & " مـن قـبـل غـيـر مـسـمـوح الـتـكـرار ", vbMsgBoxRight, "عـمـلـيـة غـيـر صـحـيـحة " Exit Sub End If الاصناف.accdb

اتفضل SELECT جدول1.name, جدول1.Numx, جدول1.kind, IIf([kind]="pc",DLookUp("[numx]","[tab]","[numx]= " & [Numx] & " ")) AS Expr1 FROM جدول1 GROUP BY جدول1.name, جدول1.Numx, جدول1.kind; test951159.mdb

ا اتقضل تم استخدام هذا الكود اخر كود الاضافه c = Right([Mail_Attachment_Path], 4) واذا ارته بدون الدوت اي بدون النقطه c = Right([Mail_Attachment_Path], 3) Microsoft Access قاعدة بيانات جديد.accdb

اعمل هذا في الاستعلام وهذا في الحقل للجمع =Nz(Sum([Expr1]);"0") Expr1: IIf([kind]="pc";DLookUp("[numx]";"[tab]";"[numx]= " & [Numx] & " "))

اخي داله nz هي ليس للجمع ولكن هي تتعداء الحقول الفارغه وداله الجمع هي sum من نفس الاستعلام او dsumمن جدول غير موجود بالاستعلام وانت لم تحدد ماهي الحقول اللي تريد جمعها تحياتي

للبحث راجع هذا الموضوع بتستفيد منه https://www.officena.net/ib/topic/86362-بحث-في-عدة-جداول-و-عرض-البيانات/

شوف هذا هل هو المطلوب Test (5).accdb

طيب هذه جدزلين ونموذين انا ما كنت بعرف انها كلها الان اشرح المطلوب بالتفصيل

هل تم المطلوب

هههههههههه باقي جدول Jobs

مافهمت test951159 (1).mdb

بالتوفيق

اعمل استعلام جنب الاستعلام وعند سكول انسخ هذا SELECT علامة_جدولة.FirstمنNumx AS Expr1, علامة_جدولة.LastمنNumx AS Expr2, [LastمنNumx]-[FirstمنNumx] AS 123 FROM tab; test951159.mdb

اخي الفاضل انت ارسلت النموذج ولم تضيف الجدول يرجاء ارسال النموذج مع الجدول بيانات جديدة كي نعرف اين الخلل

ليس لدي خبرة ان الحق من جدولين لعل احد الاخوة الخبراء من سوف يقوم بذلك

ليس قاعده البينات كلها النموذج اللي عايز تعدل فيه

بارك الله فيك اخي

ارفق مثال

اتفضل On Error Resume Next DoCmd.SetWarnings False LoadKeyboardLayout "00000401", 1 retry: TempVars.Add "xv", InputBox(Space(5) & " ادخـل رقـم الـتـلـفـون ", Space(5) & " تنبيه") If TempVars!xv = "" Then If MsgBox(" يـجـب ادخـال رقـم الـتـلـفـون ", vbInformation + vbRetryCancel, "تنبيه") & Space(50) = vbRetry Then GoTo retry Exit Sub Else TempVars.Add "mv", InputBox(Space(5) & " ادخـل الـمـعـدل ", Space(5) & " تنبيه") If TempVars!mv = "" Then If MsgBox(" يـجـب ادخـال الـمـعـدل ", vbInformation + vbRetryCancel, "تنبيه") & Space(50) = vbRetry Then GoTo retry Exit Sub Else MsgBox "تـم الـنـسـخ بـنـجـاح ", vbInformation + vbOKOnly, Space(10) & "تنبيه" & Space(10) End If End If DoCmd.RunSQL "INSERT INTO Team ( ID, Fullname, tel, class,Degree ) " & vbCrLf & _ "SELECT Students.ID, Students.Fullname, [TempVars]![xv] AS Expr1, Students.class, [TempVars]![mv] AS Expr2 " & vbCrLf & _ "FROM Students " & vbCrLf & _ "WHERE (((Students.ID)=[Forms]![Form]![Text0]) AND (([TempVars]![xv])IS NOT NULL));" DoCmd.SetWarnings True Me.Text0 = "" End Sub

بالتوفيق اخي النهر العطشان

اتفضل هذا حسب طلبك Dim dbOther As DAO.Database Dim rs1 As DAO.Recordset Dim dbCurrent As DAO.Database Dim rs2 As DAO.Recordset Dim intI As Integer On Error GoTo ErrorHandler If IsNull(Me.txtImportFile) Then MsgBox "عذرا اخي الكريم ... لم تقم بإختيار قاعدة البيانات الخارجية", vbInformation, "تبيه" DoCmd.CancelEvent Me.txtImportFile.SetFocus Else Set dbOther = OpenDatabase(txtImportFile) Set rs1 = dbOther.OpenRecordset("Table", dbOpenDynaset) Set dbCurrent = CurrentDb Set rs2 = dbCurrent.OpenRecordset("Table", dbOpenDynaset) If rs1.EOF Then Exit Sub intI = 1 rs1.MoveFirst Do While Not rs1.EOF With rs2 .AddNew !Name = rs1![Name] !Id = rs1![Id] !tel = rs1![tel] !country = rs1![country] .Update rs1.MoveNext intI = intI + 1 End With Loop MsgBox (" تم نقل " & intI - 1 & " سجل "), vbInformation, "تبيه" MsgBox "تم تحديث بيانات جداول القاعدة الخارجية بنجاح", vbInformation, "تبيه" End If rs1.Close Set dbOther = Nothing rs2.Close Set dbCurrent = Nothing Exit Sub ErrorHandler: ' MsgBox "Error #: " & Err.Number & vbCrLf & vbCrLf & Err.Description

شوف هذا Microsoft Access قاعدة بيانات جديد (1).accdb