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

السلام عليكم الاخ الكريم / محمود ابو الدهب بارك الله فيك ولكن اطلب منك العذر للجميع .. فكل حسب مشغولياته ووقته واحب ان اعرفك معلوم بسيطة ( وعن تجربة في منتديات كثيرة ) اذا كان الموضوع به طلبات كثيرة يجعل البعض ان يحجم عن التقدم بحل لكثرة الطلبات في الموضوع الواحد ومشاركتك الثانية وطريقتها .. تجعل البعض ايضا يحجمون عن الرد .. فمن شروط المشاركات بالمنتدي عدم مناداه شخص باسمه للحل عنوان الموضوع وبعد اذنك وبعد ردك سوف اقوم بحذف المشاركة الثانيه بعد ردك هذا هو رأي شخصي فقط ونصيحة من اخ لأخيه .. ارجو ان تتقبلها بصدر رحب ========================== بالنسبة لموضوعك .. بقا ... فعذرا لم افهم المطلوب بعض الشئ ... وبعد اذنك سوف نقوم باخذ طلب او طلبين لفهم المطلوب بالتسلسل وان شاء الله يمكنني مساعدتك علي قدر استطاعتي ما المقصود بالعنوان الرئيسي ( تقصد الموجود بالفورم ) .. ولماذا من الصف السادس في حين ان هناك بيانات من الص الاول بالملف والمهم .. ما معني ان يكون الجلب للخلايا التي يتم فيها التعديل في هذا الصف ( هل هذه الخلايا محدد ام ماذا ) وفي ملفك المرفق لا يوجد رؤس للاعمدة ليمكن تسميتها في الفورم والتعامل معها وفي برنامجك قوت ( هذه نسخة من البرنامج لا يهمنى فقط الا نتائج الفورم والمطلوب عملة كالتالى ) ولكن يجب فهم الشكل العام لملفك ليمكن وضع اكواد الفورم لتتناسب مع طلبك عذرا علي الاطالة .. ولكني اردت التوضيح فق تقبل خالص تحياتي

قم اخي الكريم بضغط ملفك باحد برامج الضغط ثم قم بارفاقة حيث انه متاح ارفاق ملفات لاي عضو ولكن يجب ان تكون مضغوطة فقط تقبل خالص تحياتي وفي انتار ردك

السلام عليكم بعد العديد من المحاولات أخي محمد توصلت إلى كود يقوم بتصدير الباركود كما هو: Dim objWord As Object Dim oDoc As Object Dim i As Integer Dim j As Integer Dim sTemp As String DoCmd.OpenReport "report1", acViewPreview, , , acHidden Set objWord = CreateObject("word.application") Set oDoc = objWord.Documents.Add With objWord .Visible = True .selection.Font.Name = "MW6 Matrix" .selection.Font.Size = 22 .selection.ParagraphFormat.LineSpacing = 11 .selection.ParagraphFormat.SpaceAfter = 0 .selection.ParagraphFormat.SpaceBefore = 0 .selection.InsertAfter Reports![Report1]![Text0] End With oDoc.SaveAs2 CurrentProject.Path & "\ss123.docx" objWord.Quit DoCmd.Close acReport, "report1" Set objWord = Nothing Set oDoc = Nothing Desktop10.rar

نعم أخي محمد لا يوجد حرج في أن يطلب الشخص العون من إخوته. كلنا نحتاج و كلنا نطلب العون

المعذرة لم أتمكن من إكمال المشاركة السابقة لعدم استجابة المتصفح للتحرير 2- إنشاءالوظيفة ()IsMonth وهي تعود بقيمة منطقية، وتستقبل أيضا متغير يعود بقيمة عددية من خلال الحاوية التي أنسأنها 3- يوضح هذا المقطع مستعرض المراجع؛ وهو هنا يسرد قيم الحاوية التي أنشانها 4- هي لنافذة التنفيذ السريعة ويمكن من خلالها فحص الوظفة السابقة ومدى استجابة المحث بسرد قيم حاوية أسماء الأشهر.. يجب أن تظهر هذه القيم عند كتابة الوظيفة وبعد كتابة القوس الأيسير. وهذا مثال للتوضح T004.zip

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

شاهد المرفق .. ان شاء الله به طلبك علي حسب فهمي له اسم آخر شيت تم فتحه.rar

أخي الكريم ابا جودي لم افهم المشكلة بشكل واضح لكن إليك كود اخذ صورة من الماسح الضوئي وتخزينه في مكان محدد مسبقاً على الجهاز Public Function GetScan(strFileName As String) As Boolean Dim intRes As Integer Dim dlg As WIA.CommonDialog Dim mgr As WIA.DeviceManager Dim prc As WIA.ImageProcess Dim dev As WIA.Device Dim img As WIA.ImageFile Dim imgFmt As WIA.ImageFile Dim itm As WIA.Item Dim prp As WIA.Property Dim flis As WIA.FilterInfos Dim strFullPath As String Set dlg = New WIA.CommonDialog Set mgr = New WIA.DeviceManager Set dev = dlg.ShowSelectDevice Set itm = dev.Items(1) intRes = 300 itm.Properties("Current Intent") = 4 itm.Properties("Horizontal Resolution") = intRes itm.Properties("Vertical Resolution") = intRes Set img = dlg.ShowTransfer(itm) Set prc = New WIA.ImageProcess Set flis = prc.FilterInfos prc.Filters.Add flis("Convert").FilterID prc.Filters(1).Properties("FormatID").Value = wiaFormatPNG Set imgFmt = prc.Apply(img) 'imgFmt.SaveFile "C:\test.png" ومن ثم تحت زر امر سكان ضع الكود التالي Dim x, i x = 0 For i = 1 To Nz(Me.Text1, 1) call GetScan x = x + i Next i MsgBox "تمت عملية السكان بنجاح" حيث ان Text1 هو مربع نص غير منتضم في النموذج يتم تحديد عدد مرات اخذ سكان من خلاله تحياتي

يتم نسخ ملف DLL في ملف system32 ثم تسجيلها من ال run

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

السلام عليكم ورحمة الله وبركاته على الرغم انا لا اعرف شي عن المخازن و الفاتورة لكن حسب رأيي اولا اخفاء حقل نوع الفاتورة لانه النموذج هو نموذج المشتريات ثانيا اضافة حقل اخر باسم كيفية تسديد هل نقدا ام بواسطة شيك ام اجل ثالثا اخفاء حقل سعر الشراء من نموذج الفرعي ( لكن هذا حسب طلب ) اي واحد يريد ان لا يظهر لانه مايريد يعرف حدى اي المستخدمين عن اسعار الشراء رابعا قيمة افتراضي للحقل كمية الشراء بيكون يساوي 1 لكي يظهر النتيجة مباشرتا واذا اشترى اكثر تكدر تزيده بيد خامسا قيمة افتراضي للحقل خصم بيكون صفر لكي يظهر النتيجة مباشرتا واذا تم خصم بشيء تكدر تتغير بيد سادسا لكي تخطي من الرسالة الخطأ للاكسس اكتب في بدايةة الاكواد on error resume next هذا والله يعلم تقبل تحياتي

الحمد لله هذا الاعتراض يدل على أننا عملنا على مطلوب غير المراد فالله المستعان ولكن السؤال هنا هل كنت تريد بالضغط على جديد هو تكرار آخر سجل تم ادخاله مثلا واعادة حفظه مرة أخرى أم ماذا؟ تذكرت الآن كلمة كان يكررها أخى @شيفان ركانى - فهم السؤال نصف الاجابة -

وعليكم السلام الجواب الأول: قائمة القيم السردية التي تظهر معاملات (Parameters) هي في الحقيقة معرفات يعوض عنها بقيم عددية ثابتة .. وصيغتها كالتالي Enum SecurityLevel IllegalEntry = 1 SecurityLevel1 =2 SecurityLevel2 = 3 End Enum للأهمية.. يجب أن يعلن عن هذه المعرفات في أعلى الوحدة النمطية الجواب الثاني: يمكن جعل المعاملات اختيارية بوضع الصيغة الاختيارية Optional قبل اسم المعامل.. كالتالي Function Move(Optional Left As Integer, Optional Top As Integer) If IsMissing(Left) Then '..Do Something End If End Function

السلام عليكم الاخ الحبيب / سعد عابد بارك الله فيك جمعة مباركة تقبل خالص تحياتي

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

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

السلام عليكم الاستاذ الفاضل العميد / دغيدى النظام لدي 32Bit ويعمل بشكل جيد جدا وسوف اقوم بتجربته علي جهاز 64 او يخبرنا احد الاعضاء ممن لديه نظام 64 جزاك الله خيرا

الاخت الفاضلة / سما محمد جزاكي الله خيرا

الاستاذ / جعفر ترباق الشكر دائما موصول لك جعل الله هذا العمل في ميزان حسناتك جزاك الله خيرا

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

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

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

السلام عليكم ورحمه الله وبركاته موضوعي اليوم اضافه الأصناف في الفاتوره بالضغط على f3 عندما يكون الماوس في الحقل الفرعي بالفاتوره رقم الصنف موجود الكود بنموذج مساعدالاصناف اهداني إياه استاذي شفان ريكاني بارك الله فيه وفيكم اجمعين ولكن لم استطع تعديله علما بان نموذج الأصناف هل باستطاعتنا استخدمه لفاتوره البيع والشراء عن طريق الضغط علي f3 تحياتي لكم جميعا الاضافه على الفاتوره.rar

اخي الكريم ابا جودي لقد اطلعت على برنامجك الرائع لكن سؤالي هو هل تريد عمل لوب لأخذ اكثر من صورة للموظف الواحد؟

أخي الكريم تم تطبيق الكود هنا في هذه المشاركة https://www.officena.net/ib/topic/76775-سحب-عدة-صور-من-خلال-الماسح-الضوئي/ يمكنك تجربة البرنامج نعم استاذي الكريم يمكن ذلك تابع هذا الموضوع https://www.officena.net/ib/topic/76775-سحب-عدة-صور-من-خلال-الماسح-الضوئي/?page=2#comment-491907

تم الابتدائى آخر حاجة.rar

انا عملت الفكرة مثلها لو تلاحظة السؤال في اول الموضوع لكن كنت حابب اختصر 100 IF على العموم شكراً لحضرتك لانك اهتميت في الموضوع

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

بارك الله فيك و الموضوع جميل جداً انت حققتلى حلم

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

لو ان الموظف كان من الدرجة 2 في المرحلة 1 الجدول الثالث يعطي رقم 2-1 لو ان الموظف كان من الدرجة 10 في المرحلة 1 الجدول الثالث يعطي رقم 10-1 لو ان الموظف كان من الدرجة 3 في المرحلة 2 الجدول الثالث يعطي رقم3-2

لو ان الموظف كان من الدرجة 1 في المرحلة 1 الجدول الثالث يعطي رقم 10 طيب ولو كان لو ان الموظف كان من الدرجة 2 في المرحلة 1 الجدول الثالث يعطي رقم ؟؟؟؟؟؟؟؟؟؟؟ لو ان الموظف كان من الدرجة 10 في المرحلة 1 الجدول الثالث يعطي رقم ؟؟؟؟؟؟؟؟؟؟ لو ان الموظف كان من الدرجة 3 في المرحلة 2 الجدول الثالث يعطي رقم ؟؟؟؟؟؟؟؟؟؟؟

تفضل تم التعديل اتمنى يوافق رغبتك بالنسبة للنموذج الفرعي واسناد المواد فتركته كما اعده استاذنا ابو عبدالله new2.rar

قيد النظر ...

شكرا على ماقدمته وجزاك الله خيرا

جرب الكود بالشكل التالي Option Explicit Sub Test() Dim ws As Worksheet Dim sh As Worksheet Dim rngDates As Range Dim rngTotal As Range Dim rngFine As Range Application.ScreenUpdating = False Set sh = Feuil1 For Each ws In ThisWorkbook.Worksheets If ws.Name <> "الرئيسية" And ws.Name <> "namodaj" And ws.Name <> "طباعة" Then If ws.Name <> sh.Name Then If ws.Range("B9").Value <> "" Then ws.Range("B9:F" & ws.Cells(Rows.Count, 2).End(xlUp).Row).Copy Feuil1.Cells(Rows.Count, 9).End(xlUp).Offset(1).PasteSpecial xlPasteValues End If End If End If Next ws Application.CutCopyMode = False If sh.Range("I2").Value = "" Then Exit Sub Set rngDates = sh.Range("I2:I" & sh.Range("I2").CurrentRegion.Rows.Count + 1) Set rngTotal = sh.Range("J2:J" & sh.Range("J2").CurrentRegion.Rows.Count + 1) Set rngFine = sh.Range("M2:M" & sh.Range("J2").CurrentRegion.Rows.Count + 1) With sh.Range("E4:E" & sh.Cells(Rows.Count, 4).End(xlUp).Row) .Formula = "=SUMPRODUCT(--(MONTH(" & rngDates.Address & ")=MONTH(D4))*(YEAR(" & rngDates.Address & ")=YEAR(D4)),--(" & rngTotal.Address & "))" .Offset(, 1).Formula = "=SUMPRODUCT(--(MONTH(" & rngDates.Address & ")=MONTH(D4))*(YEAR(" & rngDates.Address & ")=YEAR(D4)),--(" & rngFine.Address & "))" .Offset(, 2).Formula = "=SUM(E4:F4)" .Resize(, 2).Value = .Resize(, 2).Value End With sh.Columns("I:M").ClearContents Application.Goto sh.Range("A1") Application.ScreenUpdating = True End Sub

سلام عليكم tstAvecValeursNull (1).zip

الاختيارات من مربعات السرد و غيرها فى النموذج تسجل فى الجدول وليس فى الاستعلام الاستعلامات - كما هو اسمها - تستخرج البيانات من الجداول بشروط

شكرا جزيلا جزاك الله خيرا للفائدة الكود رقم 1 هو كالتالي: selection.ParagraphFormat.LineSpacing=11

اليك ملف برنامج دريم للملابس (1).rar اللي عملت هو استعلام توحيد لنفس الاستعلام مرتين اي عملت توحيد استعلام رصيد المخزون مرتين اتفضل هذا هو الاستعلام SELECT [الفواتير اصناف].المكاتب, [الفواتير اصناف].التاريخ, [الفواتير اصناف].[رقم الفاتورة], [الفواتير اصناف].التوجيه, [الفواتير اصناف].الموديل, [الفواتير اصناف].السعر, [الفواتير اصناف].العدد, [الفواتير اصناف].[وقت التسجيل], [الفواتير اصناف].[اسم الصنف], [الفواتير اصناف].[اسم المورد], [الفواتير اصناف].التصنيف, IIf([التوجيه]="شراء",[العدد],IIf([التوجيه]="بيع",[العدد]*-1,IIf([التوجيه]="مرتجع شراء",[العدد]*-1,IIf([التوجيه]="مرتجع بيع",[العدد]*-1,IIf([التوجيه]="تحويل",[العدد],0))))) AS الرصيد1 FROM [الفواتير اصناف]; UNION ALL SELECT [رصيد المخازن].الاسم, [رصيد المخازن].التاريخ, [رصيد المخازن].[رقم الفاتورة], [رصيد المخازن].التوجيه, [رصيد المخازن].الموديل, [رصيد المخازن].السعر, [رصيد المخازن].العدد, [رصيد المخازن].[وقت التسجيل], [رصيد المخازن].[اسم الصنف], [رصيد المخازن].[اسم المورد], [رصيد المخازن].التصنيف, [رصيد المخازن].الرصيد2 FROM [رصيد المخازن]; تحياتي

سيتم نقل الموضوع اى قسم اكسل ، للمكان الأنسب و للتفاعل اكثر ،

من الطرق السهلة والبسيطة التي يمكن استخدامها لفعل الحدث التلقائي هو استخدام الوظيفة [DoEvents] في دوارة [Do Until] ويتم وضع الإجراء الذي يحتض هذه الدوارة عند اقلاع قاعدة البيانات وتظل الدوارة تعمل بفعل الوظيفة [DoEvents] حتى تطابق المعيار المطلوب. هذا في نظري أفضل بكثير من استخدام حدث التوقيت [OnTime] في النموذج لأنه ليس من المنطقي أو المقول برمجيا إنشاء نموذج وابقائه مفتوحا من أجل فعل إجراء معين! في المثال التالي وضعت بعض الإجراءات التي تقوم بتنفيذ استعلام التحديث في وقت أو تاريخ محدد؛ ولكي تتأكد من عمل مسابق ذكره فضلا استخدم الإجراء [()UpDateDataInTime] .. فضلا استخدم التوقيت العسكري (24) لتحديد الوقت المطلوب للتنفيذ بين علامتي تنصيص مزدوجة.. كالتالي: UpDateDataInTime("00:50:00") 'الساعة الثانية عشر وخمسين دقيقة إليك المثال RunQueryInSpecificDate.zip

جرب الكود التالي مع تغيير text1 الى اسم مربع النص بالنموذج لديك Private Sub cmdInsertPic_Click() If Dir("\\TOSHIBA\careitems\" & text1 & ".jpg") <> "" Then If MsgBox("الملف موجود هل تريد الاستبدال", vbYesNo) = vbNo Then Exit Sub End If Application.FileDialog(3).Show FileCopy Application.FileDialog(3).SelectedItems(1), "\\TOSHIBA\careitems\" & text1 & ".jpg" End Sub بالتوفيق

سمع الله لمن دعى .. ربّنا ولك مافي القلب

معلومة مهمة لتخفيف حجم الملف طبعاً كلنا يعرف ان اوفيس 2003 يتكون من 65500 صف تقريبا ً و 256 عمود و افيس 2007 تقريباً مليون صف و 16000 عمود لاحظت عند تحديد جميع االصفوف مثلا من 1 : 65500 فى 2003 يزداد حجم الملف بطريقة غير عادية و بالتالى من المهم عند العمل تحديد النطاق المطلوب العمل عليه فقط من صفوف و اعمدة و كذلك التنسيق الشرطى يضاعف حجم الملف بشكل كبير عند التطبيق على جميع الخلايا و الافضل تطبيق التنسيق الشرطى على خلايا محددة

فورم بسيط لاضافة شيت اوعدة شيتات دفعة واحدة هو طلب للاخ الكريم / وليد زقزوق في موضوع وطلب له علي الرابط http://www.officena.net/ib/index.php?showtopic=49438 ولكن ما دعاني لوضعه في موضوع جديد هو ان عنوان الرابط المذكور (( كود لحذف ورقة عمل جديدة )) ********************************** فأردت وضعه في موضوع جديد بعنوان جديد للتسهيل علي من يبحث عن مثل هذه الاوامر ********************************************* وتم تنفيذ طلب للاخ الحبيب / إبراهيم ابوليله ايضا علي نفس الرابط بمنع اضافة الشيتات في حالة تكرار الاسم ارجو ان ينال اعجابكم .... ويكون فيه الافادة للجميع جزاكم الله خيرا sama-add-sheet.rar

الاخ الحبيب / الشهابي بارك الله فيك مرور طيب وكريم واروع من النسيم جعل الله كلماتك في ميزان حسناتك يوم القيامه تقبل خالص تحياتي جزاك الله خيرا

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

السلام عليكم اخواني الكرام ابدأ بنفسي في تقديم الشكر للكبير / Jaafar Tribak وجعله الله في ميزان حسناته فالموضوع له والفضل بعد الله له والشكر واجب له جزاك الله خيرا

السلام عليكم يمكنك اخي الكريم ارفاق الملف الذي وجدته بالمنتدي ويمكن لخبراء منتدانا الرائع التعديل عليه كما تريد ان شاء الله واليك ملفان الاول للاستاذ / احمد يعقوب فكرة الحماية في هذا الملف هي كـ التالي عندفتح الملف الإكسل يتم اخفاء كل اوراق الملف ويظهر الفورد الخاص بادخال البيانات بتم ادخال رقم الموظف و اسمه و الرقم السري له اذا تطابقت البيانات الثلاثة لما نحن مسجلينه في ورقة OPTION يتم اظهار الأوراق المحددة امام اسم الشخص في ورقة OPTION ثم يتم تسجيل اسم المستخدم و يوم و ساعة الدخول = = = = = = = = = ادخل الى ورقة OPTION حدد ارقام و اسماء و الإرقام السرية وامام كل اسم حدد اسماء الأوراق التي تريد ان تسمح للمستخدم بالدخول لها فس كل مرة سوف يتم الدخول للمستخدم للأوراق التي حددتها له فقط و غير ذلك لن يستطيع الدخول لها هذه ارقام و اسماء و كلمات السر الموجودة حاليا بالملف 1 - عبدالله 1 - 1 2 - عبدالله 2 - 2 الملف الثاني : فهو للعبقري الاستاذ / الحسامي باسورد الدخول : 1111 علها ان تنفع معك اخي الكريم فورم_باسوورد_صلاحيات_المستخدمين-احمد يعقوب.zip صلاحيات-الحسامي.rar