نجوم المشاركات

جرب هذا الكود وترى النتيجة في Sheet2 Option Explicit Sub Split_names() Dim rg As Range Dim i%, Str Sheets("sheet2").Range("B2").CurrentRegion.Clear Set rg = Sheets("sheet1").Range("B2").CurrentRegion For i = 1 To rg.Cells.Count Str = rg.Columns(1).Cells(i) Str = Split(Str, "|") Sheets("sheet2").Cells(i + 1, 2) _ .Resize(, UBound(Str) + 1) = Str Next Sheets("sheet2").Range("B2"). _ CurrentRegion.Columns.AutoFit End Sub الملف مرفق Split_names.xlsm

بالخدمه بما نستطيع اخي مصطفى والحمدلله انك وصلت لغايتك

تفضل يا غالي Private Sub Form_BeforeUpdate(Cancel As Integer) Me.Total = DSum("Amount", "cash") Me.Total.Requery End Sub New Microsoft Access Database9.rar تحياتي

تفضل اخي الكريم db1.rar تحياتي

تفضل اخي الكريم New Microsoft Access Database9.rar تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم New Microsoft Access Database9.rar تحياتي

تفضل اخي الكريم Database12222.mdb

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم تحياتي

اخي الكريم بالحقيقة لم اجربه على قوقل درايف لكن لا اظن انه يوجد فرق بينهما

تفضل هذا التعديل اخي الكريم اللصق الجملة في الاستعلام فقط SELECT EMPDEV.IDED, EMPDEV.IDD, EMPDEV.DATER, EMPDEV.DATEG, EMPDEV.NOTES, EMPLOYEE.IDS, EMPLOYEE.NUMBER, EMPLOYEE.ENAME, class.CNAME, DLookUp("[BRANDS]","[MARKA]","[IDM]=" & [EMPDEV]![IDED]) AS [الشركة المصنعة], DLookUp("[MODELS]","[MARKA]","[IDM]=" & [EMPDEV]![IDED]) AS الموديل, DLookUp("[TYPE]","[MARKA]","[IDM]=" & [EMPDEV]![IDED]) AS النوع FROM class INNER JOIN (EMPLOYEE INNER JOIN EMPDEV ON EMPLOYEE.[IDE] = EMPDEV.[IDE]) ON class.IDC = EMPLOYEE.IDC WHERE (((EMPDEV.IDED) Like "*" & [forms]![EMPDEVMENU]![TXTFIND] & "*")) OR (((EMPDEV.IDD) Like "*" & [forms]![EMPDEVMENU]![TXTFIND] & "*")) OR (((EMPDEV.DATER) Like "*" & [forms]![EMPDEVMENU]![TXTFIND] & "*")) OR (((EMPDEV.DATEG) Like "*" & [forms]![EMPDEVMENU]![TXTFIND] & "*")) OR (((EMPDEV.NOTES) Like "*" & [forms]![EMPDEVMENU]![TXTFIND] & "*")) OR (((EMPLOYEE.IDS) Like "*" & [forms]![EMPDEVMENU]![TXTFIND] & "*")) OR (((EMPLOYEE.NUMBER) Like "*" & [forms]![EMPDEVMENU]![TXTFIND] & "*")) OR (((EMPLOYEE.ENAME) Like "*" & [forms]![EMPDEVMENU]![TXTFIND] & "*")) OR (((class.CNAME) Like "*" & [forms]![EMPDEVMENU]![TXTFIND] & "*")); تفضل التعديل في المرفقات PROGRAM IT (2).rar

جزاك الله خيرا كلك زوق والله شكرا لحضرتك

تفضل التعديل اخي العزيز ارجو ان يكون طلبك Test20.rar

تفضل اخي الكريم Database1.rar

التنسيقات بهذا الشكل و الألوان الباهرة تثقل الملف دون حاجة لها الكود Option Explicit Sub Tansfer_data() Dim Tabl As Range Dim m%, Ro%, x%, k%, LA% Dim B_rg As Range Set Tabl = Source.Range("A5").CurrentRegion Ro = Tabl.Rows.Count If Ro = 1 Then Exit Sub Set B_rg = But.Range("A1").CurrentRegion If B_rg.Rows.Count > 1 Then B_rg.Offset(1).Resize(B_rg.Rows.Count - 1) _ .Interior.ColorIndex = xlNone End If Set Tabl = Tabl.Offset(1).Resize(Ro - 1) x = But.Cells(Rows.Count, 4).End(3).Row + 1 But.Range("D" & x).Resize(Ro - 1, Tabl.Columns.Count).Value = _ Tabl.Value m = Application.CountA(But.Range("D:D")) m = But.Cells(m, 1).Offset(-Ro + 1).Row + 1 For k = 1 To 3 But.Cells(m, k) = Source.Cells(k, 2) Next LA = But.Cells(Rows.Count, 1).End(3).Row If LA > 2 Then But.Range("A2:C" & LA).Resize(, 3) _ .SpecialCells(2).Interior.ColorIndex = 35 End If Tabl.ClearContents End Sub الملف مرفق Azhar.xlsm

اخي هذا برنامج كنت استخدمه في اصدار اكسس 2003 قد يفي بالغرض IconChanger3[1].4.zip

تفضل اخي الكريم 11111.rar تحياتي

تفضل اخي الكريم APE - Copy.rar تحياتي