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

تفضل توضيح (1).xlsm

السلام عليكم مشاركه مع اخى واستاذى العزيز @biskra جزاه الله خيرا 💐 اتفضل اخى @Matin_Murad هل هذا ما تريد Private Sub Form_Load() Call strTime End Sub Private Sub Form_Timer() Call strTime End Sub Sub strTime() x = CDbl(Now) - CDbl(TimeValue("12:00:00")) Me.xxx = Format(TimeValue(CDate(x)), "HH:NN:SS") End Sub بالتوفيق ساعة رقمية 12.accdb

تفضل هنا بغيتك

حيث انك لم ترفع ملف للمعاينة وانا اقدر ذلك (300 صفحة)لكن يمكن التجربة على عدد اقل يكثير(3 الى 10 صفحات) اليك هذا النموذج تكتب في الكود مكان Sheet1 اسم الشبت الرئيسي (حيث يجب الذهاب اليه) Option Explicit Sub select_Main() Sheets("Sheet1").Select ' Change the Name as you like End Sub '++++++++++++++++++++++++++++ Sub Insert_but() Dim wks As Worksheet For Each wks In ThisWorkbook.Worksheets If wks.Name <> "Sheet1" Then wks.Select ActiveSheet.Buttons.Delete wks.Buttons.Add(100, 50, 150, 25).Select Selection.Caption = "Goto Main Sheet" Selection.OnAction = "select_Main" End If Next wks Sheets("Sheet1").Select End Sub الملف مرفق للتجربة Insert_but_to every_sheet.xlsm

بعد اذن احي أحمد حرب هذا الكود Option Explicit Sub Order_by() Dim Mmax%, i%, y%, t%, NB Dim Dic As Object, S_lst As Object Dim ky, x, arr Dim Sh As Worksheet, Main As Worksheet Set Sh = Sheets("Salim") Set Main = Sheets("Sheet1") Set Dic = CreateObject("Scripting.Dictionary") Set S_lst = CreateObject("System.Collections.SortedList") With Sh.Cells(1, 1) .CurrentRegion.Clear .Offset(, 3) = "Itemno": .Offset(, 4) = "Pack Qty" .Resize(, 7).Interior.ColorIndex = 6 End With x = 2 With Main Mmax = .Cells(Rows.Count, 1).End(3).Row For i = 2 To Mmax + 1 If Main.Range("A" & i) = vbNullString Then GoTo Next_I Dic(Dic.Count) = .Range("A" & i) & "*" & .Range("B" & i) & "*" & _ .Range("C" & i) & "*" & .Range("D" & i) & "*" & _ .Range("E" & i) & "*" & .Range("F" & i) & "*" & _ .Range("G" & i) S_lst.Add (.Range("F" & i)) + (i - 2) / 100000, i - 2 Next_I: Next End With '+++++++++++++++++++++++++++ For i = 0 To S_lst.Count - 2 For y = 0 To 6 arr = Split(Dic.items()(i), "*") Sh.Cells(x, 1).Offset(, y) = arr(y) Next y Sh.Cells(x, 1).Offset(, 5) = Round(S_lst.GetKey(i), 2) If Int(S_lst.GetKey(i)) = Int(S_lst.GetKey(i + 1)) Then x = x + 1 Else Sh.Cells(x + 1, "D") = "Itemno" Sh.Cells(x + 1, "E") = "Pack Qty" Sh.Cells(x + 1, 1).Resize(, 7).Interior.ColorIndex = 6 x = x + 2 End If Next Sh.Cells(1, 1).Resize(x - 1, 7).Borders.LineStyle = 1 Set Dic = Nothing: Set S_lst = Nothing Set Sh = Nothing: Set Main = Nothing End Sub الملف مرفق صفحة Salim nany4mg_1.xlsm

تفصل أخي الكريم توضيح.xlsm

وعليكم السلام محاولة مني ان شاءالله يكون المطلوب تحياتي 1311.11.DATA12.rar

السلام عليكم اخي الكريم أنا حاليآ على الهاتف عندما ارجع للبيت سوف انظر للمشكلة. تحياتي لك

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

وعليكم السلام-بكل بساطة يمكنك استخدام هذه المعادلة لطلبك وزيادة عن ذلك تم عمل قائمة منسدلة لأسماء الطلاب لتسهيل الإختيار بدل من الكتابة =IFERROR(VLOOKUP($D4,ورقة1!$D$4:$F$600,3,0),"") 1استدعاء.xlsx

وذلك من خلال هذه المعادلة =TRIM(MID(SUBSTITUTE(";"&$A3,";",REPT(" ",50)),COLUMN(A1)*50,50)) PAVARC.xlsm

بسيطة -تفضل وبكده تم تلبية كل طلباتك ويجب غلق المشاركة NEW2.xlsm

lممكن بالكود التالي عند الضغط على زر المخالفات Private Sub Command5_Click() Me.Command4.SetFocus Call xxx Me.m1.Visible = True Me.m2.Visible = True Me.m3.Visible = True Me.m4.Visible = True Me.m5.Visible = True End Sub

أحتاج منك إلى قاعدة بيانات تحتوي على معطيات تنبئ عن توجهاتك وتطلعاتك التي تحقق هدفك.. لا تتوقع مني أن أكون طرفاً ثالثاً.. يفكر! ويخطط! وينفذ! ويقرأ أفكار الأخرين أيضاً.. ولست أنت عميل فوق العادة.. في تقديري أن أوضحت فكرتي من البداية إلا إذا كنت لا تقرأ المشاركات، ولا تنظر في المرفقات..كمبرمج لقواعد البيانات.. نعم.. سوف استمر معك في إيجاد الحلول وتطبيقها.. لكن لا تتوقع من أكثر من ذلك!

بسم الله الرحمن الرحيم الاخوة الكرام السلام عليكم ورحمة الله وبركاته برنامج الجمعيات الخيرية لبحث الحالات قمت يتصميم هذا البرنامج المتواضع منذ حوالي 3 سنوات تقريبا لجمعية خيرية واحببت ان اضعه بين ايديكم ليستفيد منه من يبحث عن برنامج مماثل البرنامج بسيط ان شاء الله وسهل التعامل معه أ - يجب ادخال الاكواد الاساسية اولا 1 - الحالات الاجتماعية ( اعزب - مطلق - ارمل ... الخ ) 2 - الحالة الصحية ( معاق - مريض بـ - شلل ... الخ ) 3 - المناطق ( منطقة شبرا - منطقة - ببولاق - منطقة العتبة ... الخ ) 4 - المتابعين ( المتابعين للحالة والقائم على زيارتهم وتفقده احوالهم ) 5 - نوع التبرع ( هل الحالة تستحق تبرع شهري او اقل او اكثر )\\ ب - تسجيل الحالات ج - تعديل حالة د - البحث عن حالة او طباعتها البرنامج مفتوح المصدر ويمكن التعديل عليه بما يناسب الحالة التي تمر عليك ارجو من الله العلي القدير ان يكون هذا العمل مقبولاً لوجهه الكريم SocialAffairs.rar تحياتي

السلام عليكم ورحمة الله ضع المعادلة الاولى فى العمود المخصص للتاريخ =IFERROR(INDEX(الحراسة!$F$4:$L$20;SMALL(IF(INDIRECT($C$3;1)<>"";ROW(INDIRECT($C$3;1)));ROW($A1))-3;1);"") اما المعادلة الثانية فضعها فى العمود المخصص للاسماء =IFERROR(INDEX(الحراسة!$F$4:$L$20;SMALL(IF(INDIRECT($C$3;1)<>"";ROW(INDIRECT($C$3;1)));ROW($A1))-3;MATCH($C$3;الحراسة!$F$3:$L$3;0));"") و فى كلتا الحالتين لا تنسى الضغط على Ctrl+Shft+Enter قبل السحب لاسفل

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

جرب هذه المحاولة hide.xlsm

لازلت اعمل علي ملفك وان شاء الله اليوم او غد ارسله هنا بقي القليل ولكن اخي اخبرني هل النتايج التي ظهرت في الصورة التي ارسلتها في الاعلي هل النتايج صحيحة؟ يعني هل هذه التصنيفات هي الاقل سعرا خلال 15 يوما الخيرة فعلا ام انك كتبتها عشوائيا؟ من المهم ان اعرف هذا تقبل تحياتي

تفضل يمكنك هذا بهذه المعادلة =IFERROR(INDEX(البيانات!$C$2:$F$11,MATCH($B2,البيانات!$B$2:$B$11,0),MATCH(C$1,البيانات!$C$1:$F$1,0)),"") تقرير1.xlsx

جرب هذا الملف Moust.xlsx

وعليكم السلام-تفضل لك ما طلبت ـ تــم ترجمة ملفك الأرباح والخسائر.xls

زيادة في الموضوع 1- عند الضغط على اي سطر في الليست بوكس (ما عدا سطر العنوان طبعاً) تظهر لك بيانات الاسم في التكست بوكسات Shibl_Extra.xlsm

اخي ناصر 🙂 الطريقة 1: لو فتحت برنامجي ، لرأيت اني وضعت البيانات العربية في الجدول ، وعليه تقدر ان تعمل التفقيط العربي و الانجليزي (المثال الذي ارفقته لك في مشاركتي السابقة) على اي جهاز فيه حروف عربية ، ولا علاقة له بضبط لغة الجهاز ، بقي ان تضبط التفقيط الفرنسي وتجعل الكلمات الفرنسية في جدول ، وسيكون عندك 3 لغات للتفقيط ، العربية والانجليزية والفرنسية. ------------------------------------------- الطريقة 2: ومثل ما اقترح اخي ابوعبدالله ، بإستخدام برنامجي اخونا @ابا جودى لتحويل الكلمات الى Ascii ، فرجاء ارفق برنامجك الذي فيه تفقيق عربي وتفقيط فرنسي ، وخلينا نساعدك 🙂 جعفر

السلام عليكم ورحمة الله وبركاته تصفية(1).xlsx

السلام عليكم فورم ادخال و تعديل وبحث باستخدام اسم نطاق للقائمة المنسدلة هو تفس الفورم السابق ولكن تم تغيير طريقة ادخال القائمة المنسدلة لاي عمود في الفورم تستطيع اضافة قائمة لعمود معين في الفورم باضافة تعليق على عنوان العمود وتكتب اسم نطاق القائمة وايضا تم تجاوز بعض الاخطاء في الفورم السابق شرح امكانيات الفورم وكيفية الاستخدام 1 - استخدام الفورم لاكثر من قاعدة بيانات في الورقة الواحدة او في المصنف على ان يكون لكل قاعدة كود لاظهار الفورم يتغير فيه معطياتك في متغيرات kh_SetAddrss اولاً : اسم ورقة البيانات ( افتراضي ) ثانياً : نطاق صف رؤوس اعمدة البيانات ( افتراضي ) ثالثاً : عمود التسلسل ( اختياري ) اذا اردت ادخال رقم تسلسل البيانات الخاص بالفورم تلقائيا في عمود معين سجل عنوان راس العمود . مع ملاحظة انه لا يكون من ضمن نطاق رؤوس اعمدة البيانات كما هو معمول في المثال 2. 2 - تستطيع اضافة قائمة لعمود معين في الفورم باضافة تعليق على عنوان العمود وتكتب اسم نطاق القائمة . 3 - ينسخ التنسيقات والمعادلات في السجل الجديد . 4 - يبحث في جميع الاعمدة حسب الاختيار من القائمة في الفورم . 5 - يعطي نتائج صحيحة عند البحث عن تاريخ اذا شيكت الزر البحث عن تاريخ . 6 - امكانيات زر البحث عن تاريخ يتم تحويل اي قيمة تضعها في مربع النص للبحث الى تاريخ بالتنسيق الافتراضي للفورم ,, مع امكانية ادخال رقم صحيح بين 1 الى 31 ليفهم على انه تاريخ اليوم للشهر الحالي والسنة الحالية 7 - ثوابت بامكانك تغييرها حسب طلبك بداية اكواد الفورم 1- تغيير تنسيقات إظهار التاريخ في الفورم في الثابت DtF 2- تغيير عٌرض مربعات الادخال في الثابت iWgt1 8 - بامكانك انتقاء الاعمدة التي تريدها عند تسمية النطاق وترتيبها حسب ما تريد مع ملاحظة ان العمود الذي يعتمد عليه في احتساب آخر صف هو العمود الاول من التسمية مثلا "E15,C15,H15:AX15" المرفق 2003 [فورم ادخال و تعديل مرن باستخدام اسم نطاق للقائمة.rar الاصدار الثالث: http://www.officena.net/ib/index.php?showtopic=51955

السلام عليكم تفضلوا الكود للتحكم قي درجة شفافية القورم - نسخة 64Bit ملف للتحميل : https://app.box.com/s/m96bzgd2efpp5gr9isl96y4n2xav6rm7 1- كود في موديول الفورم : Option Explicit Private WithEvents oAppEvents As Application Public bytScrollBarVal As Byte 'Userform events Private Sub UserForm_Activate() Call UpdateFormPicture(Me) End Sub Private Sub UserForm_Initialize() Set oAppEvents = Application Call init(Me) End Sub Private Sub UserForm_Layout() Call UpdateFormPicture(Me) End Sub Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) Set oAppEvents = Nothing Call CleanUp End Sub Private Sub ScrollBar1_Change() Me.bytScrollBarVal = 255 - ScrollBar1.Value Call UpdateFormPicture(Me) End Sub Private Sub ScrollBar1_Scroll() Me.bytScrollBarVal = 255 - ScrollBar1.Value Call UpdateFormPicture(Me) End Sub Private Sub CommandButton1_Click() Unload Me End Sub 'Application events Private Sub oAppEvents_SheetActivate(ByVal Sh As Object) Call UpdateFormPicture(Me) End Sub Private Sub oAppEvents_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Call UpdateFormPicture(Me) End Sub Private Sub oAppEvents_WindowActivate(ByVal Wb As Workbook, ByVal Wn As Window) Call UpdateFormPicture(Me) DoEvents End Sub Private Sub oAppEvents_WorkbookActivate(ByVal Wb As Workbook) Call UpdateFormPicture(Me) DoEvents End Sub 2- كود في موديول عادي : Option Explicit Private Type POINTAPI x As Long y As Long End Type Private Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type Private Type GUID Data1 As Long Data2 As Integer Data3 As Integer Data4(0 To 7) As Byte End Type Private Type PICTDESC Size As Long Type As Long hPic As LongPtr hPal As Long End Type Private Type BLENDFUNCTION BlendOp As Byte BlendFlags As Byte SourceConstantAlpha As Byte AlphaFormat As Byte End Type Private Type LOGBRUSH lbStyle As Long lbColor As Long lbHatch As Long End Type Private Declare PtrSafe Function ClientToScreen Lib "user32" (ByVal hWnd As LongPtr, lpPoint As POINTAPI) As Long Private Declare PtrSafe Function GetDC Lib "user32" (ByVal hWnd As LongPtr) As LongPtr Private Declare PtrSafe Function ReleaseDC Lib "user32" (ByVal hWnd As LongPtr, ByVal hDC As LongPtr) As Long Private Declare PtrSafe Function BitBlt Lib "gdi32" (ByVal hDestDC As LongPtr, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As LongPtr, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long Private Declare PtrSafe Function AlphaBlend Lib "msimg32.dll" (ByVal hDC As LongPtr, ByVal lInt As Long, ByVal lInt As Long, ByVal lInt As Long, ByVal lInt As Long, ByVal hDC As LongPtr, ByVal lInt As Long, ByVal lInt As Long, ByVal lInt As Long, ByVal lInt As Long, ByVal BLENDFUNCT As Long) As Long Private Declare PtrSafe Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As LongPtr) Private Declare PtrSafe Function CreateCompatibleDC Lib "gdi32" (ByVal hDC As LongPtr) As LongPtr Private Declare PtrSafe Function CreateCompatibleBitmap Lib "gdi32" (ByVal hDC As LongPtr, ByVal nWidth As Long, ByVal nHeight As Long) As LongPtr Private Declare PtrSafe Function DeleteObject Lib "gdi32" (ByVal hObject As LongPtr) As Long Private Declare PtrSafe Function SelectObject Lib "gdi32.dll" (ByVal hDC As LongPtr, ByVal hObject As LongPtr) As Long Private Declare PtrSafe Function DeleteDC Lib "gdi32" (ByVal hDC As LongPtr) As Long Private Declare PtrSafe Function GetWindowRect Lib "user32" (ByVal hWnd As LongPtr, lpRect As RECT) As Long Private Declare PtrSafe Function GetClientRect Lib "user32" (ByVal hWnd As LongPtr, lpRect As RECT) As Long Private Declare PtrSafe Function OleCreatePictureIndirect Lib "oleAut32.dll" (PicDesc As PICTDESC, RefIID As GUID, ByVal fPictureOwnsHandle As LongPtr, IPic As IPicture) As LongPtr Private Declare PtrSafe Function FillRect Lib "user32" (ByVal hDC As LongPtr, lpRect As RECT, ByVal hBrush As LongPtr) As Long Private Declare PtrSafe Function CreateBrushIndirect Lib "gdi32" (lpLogBrush As LOGBRUSH) As LongPtr Private Declare PtrSafe Function SetBkMode Lib "gdi32" (ByVal hDC As LongPtr, ByVal nBkMode As Long) As Long Private Declare PtrSafe Function TranslateColor Lib "oleAut32.dll" Alias "OleTranslateColor" (ByVal clr As OLE_COLOR, ByVal palet As Long, Col As Long) As Long Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr Private Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As LongPtr, ByVal nIndex As Long) As Long Private Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare PtrSafe Function SetLayeredWindowAttributes Lib "user32" (ByVal hWnd As LongPtr, ByVal crey As Byte, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long Private Const PICTYPE_BITMAP = &H1 Private Const SRCCOPY = &HCC0020 Private Const AC_SRC_OVER = &H0 Private Const OPAQUE = &H2 Private Const GWL_EXSTYLE = (-20) ' Private Const WS_EX_LAYERED = &H80000 Private Const LWA_ALPHA = &H2 Private hInitialDCMemory As LongPtr Private frmHwnd As LongPtr Private frmDc As LongPtr Public Sub init(ByVal oFrm As Object) Dim LB As LOGBRUSH Dim Realcolor As Long Dim tRed As OLE_COLOR, tGreen As OLE_COLOR, tBlue As OLE_COLOR Dim hBmp As LongPtr Dim tRect As RECT Dim hBrush As LongPtr 'setup form controls With oFrm .ScrollBar1.Min = 0 .ScrollBar1.Max = 255 .ScrollBar1.SmallChange = 3 .ScrollBar1.Value = .ScrollBar1.Max .ScrollBar1.BackColor = vbCyan .Label1.Font.Bold = True .Label1.BackStyle = fmBackStyleTransparent .CommandButton1.Caption = "Close" .CommandButton1.Font.Bold = True .Caption = "Adjustable Transparent UserForm -- (Client Area)" End With 'retrieve the form hwnd and DC frmHwnd = FindWindow("ThunderDFrame", oFrm.Caption) frmDc = GetDC(frmHwnd) 'convert system color to RGB TranslateColor oFrm.BackColor, 0, Realcolor tRed = Val(CStr(Realcolor And &HFF&)) tGreen = Val(CStr((Realcolor And &HFF00&) / 2 ^ 8)) tBlue = Val(CStr((Realcolor And &HFF0000) / 2 ^ 16)) LB.lbColor = RGB(tRed, tGreen, tBlue) 'create a memory DC and store the initial form backColor in it for later blending hBrush = CreateBrushIndirect(LB) GetWindowRect frmHwnd, tRect hInitialDCMemory = CreateCompatibleDC(frmDc) With tRect hBmp = CreateCompatibleBitmap(frmDc, .Right - .Left, .Bottom - .Top) End With Call SelectObject(hInitialDCMemory, hBmp) SetBkMode hInitialDCMemory, OPAQUE FillRect hInitialDCMemory, tRect, hBrush DeleteObject hBrush DeleteObject hBmp ReleaseDC frmHwnd, frmDc End Sub Public Sub UpdateFormPicture(ByVal oFrm As Object) Dim BF As BLENDFUNCTION Dim lBF As Long Dim IID_IDispatch As GUID Dim uPicinfo As PICTDESC Dim IPic As IPicture Dim tPt As POINTAPI Dim hBmp As LongPtr Dim scrDc As LongPtr Dim tRect As RECT Dim hDCMemory As LongPtr Static frmClientWid As Long Static frmClientHgt As Long Static l As Long oFrm.Label1.Caption = "Transparency : " & (100 * oFrm.ScrollBar1.Value \ 255) & "%" 'brievely make the form fully transparent in order to capture the screen area underneath the form SetWindowLong frmHwnd, GWL_EXSTYLE, GetWindowLong(frmHwnd, GWL_EXSTYLE) Or WS_EX_LAYERED If l Mod 4 = 0 Then SetLayeredWindowAttributes frmHwnd, 0, 0, LWA_ALPHA End If l = l + 1 scrDc = GetDC(0) hDCMemory = CreateCompatibleDC(scrDc) hBmp = CreateCompatibleBitmap(scrDc, frmClientWid, frmClientHgt) 'retrieve the form's client dimensions GetClientRect frmHwnd, tRect With tRect frmClientWid = .Right - .Left frmClientHgt = .Bottom - .Top End With 'create a memory DC to hold the screen area underneath the form Call SelectObject(hDCMemory, hBmp) tPt.x = tRect.Left: tPt.y = tRect.Top ClientToScreen frmHwnd, tPt Call BitBlt(hDCMemory, 0, 0, frmClientWid, frmClientHgt, scrDc, tPt.x, tPt.y, SRCCOPY) 'make the form opaque again SetLayeredWindowAttributes frmHwnd, 0, 255, LWA_ALPHA 'blend the form's initial backcolor with the screen image underneath the form With BF .BlendOp = AC_SRC_OVER .BlendFlags = 0 .SourceConstantAlpha = oFrm.bytScrollBarVal .AlphaFormat = 0 End With CopyMemory lBF, BF, 4 AlphaBlend hDCMemory, 0, 0, frmClientWid, frmClientHgt, hInitialDCMemory, 0, 0, frmClientWid, frmClientHgt, lBF 'Set the Form's Picture property to the resulting blended memory Bitmap With IID_IDispatch .Data1 = &H20400 .Data4(0) = &HC0 .Data4(7) = &H46 End With With uPicinfo .Size = Len(uPicinfo) ' .Type = PICTYPE_BITMAP .hPic = hBmp .hPal = 0 End With OleCreatePictureIndirect uPicinfo, IID_IDispatch, True, IPic Set oFrm.Picture = IPic DeleteDC hDCMemory ReleaseDC 0, scrDc oFrm.Repaint End Sub Public Sub CleanUp() DeleteDC hInitialDCMemory End Sub

السلام عليكم الاخ الكريم / احمد مجدى جميل جدا ان الملف فتح معك حيث كنت بصدد عمل فيديو يوضح لك ان الملف يعمل لدي بكفاءة ولم اكن اعلم السبب في ذلك ونكمل عملنا باذن الله ولكن اعذرني في التأخير ليوم او اثنين علي الاكثر .. واقدم لك اعتذاري عن تأجيل عملك لهذه المدة جزاك الله خيرا

السلام عليكم الاخ الكريم / احمد مجدى بالنسبة للملف المرسل من سيادتكم والمسمي بالخزينة الفرعية فأنا لم اتوصل للطريقة التي تعمل بها انت وبالتالي اقوم بالتعديل علي الملف المرسل مني وارساله لك برجاء العمل عليه وخصوصا ان ملفك تقريبا اكسيل 2010 او 2013 ولكني اعمل علي 2003 وبرجاء ايضا رفع الملفات هنا علي المنتدي لسهوله تحميلها 1- بالنسبة لزر اضافة العميل فقد تم اضافته في الفاتورة كما طلبت ويقوم بالترحيل في صفحة العملاء والتسلسل للعملاء تلقائي ( كما طلبت ) 2- بالنسبة لرقم الفاتورة فسيكون كذلك عند الانتهاء من الشكل العام للترحيل 4- اما عن الملف المرفق والمسمي list box فهو ملف بحث رائع للاستاذ الكبير / عبد الله باقشير ويمكن اضافته ولكن هل تقصد اضافته لفورم العملاء ام فورم الفاتورة وفي اي صفحة تريد البحث والتعديل ( صفحة الادخال ام العملاء ) 5- هل اقوم بالترحيل الي صفحة الادخال بترتيب عناصر الفاتورة ثم تقوم انت بادخال الاعمدة التي تريدها ولكن بعد انتهاء عملية الترحيل جزاك الله خيرا الخزينة الفرعية2.rar

السلام عليكم أخي الصديق تفضل المرفق فاتورة جديدة4.rar