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

اتفضل اخي محمد استخدمت هذا الكود Dim i As Integer Dim sCount As Integer sCount = DateDiff("d", Me.StartDate, Me.enddate) DoCmd.GoToRecord , , acNewRec For i = 0 To sCount Me.XDate = DateAdd("d", i, Me.StartDate) Me.IdMonth = Format(Me.XDate, "mm") DoCmd.GoToRecord , , acNext Next DoCmd.Requery db11.rar

اتفضل =NZ(DCount("[vizites]";"visit";"[vizites]='خارجية' and [gustid]=" & [gustid]);0)

يمكنك عمل ماكرو لذلك بسهولة ؟ هذا هو الكود الثاني يقوم بإزالة المسافة قبل وبعد الفقرة ويجعل المسافات بين السطور مفرد. Sub الكود_الثاني() ' ' الكود_الثاني Macro ' ' With Selection.ParagraphFormat .LeftIndent = CentimetersToPoints(0) .RightIndent = CentimetersToPoints(0) .SpaceBefore = 0 .SpaceBeforeAuto = False .SpaceAfter = 0 .SpaceAfterAuto = False .LineSpacingRule = wdLineSpaceSingle .Alignment = wdAlignParagraphJustifyLow .WidowControl = False .KeepWithNext = False .KeepTogether = False .PageBreakBefore = False .NoLineNumber = False .Hyphenation = True .FirstLineIndent = CentimetersToPoints(0) .OutlineLevel = wdOutlineLevelBodyText .CharacterUnitLeftIndent = 0 .CharacterUnitRightIndent = 0 .CharacterUnitFirstLineIndent = 0 .LineUnitBefore = 0 .LineUnitAfter = 0 .MirrorIndents = False .TextboxTightWrap = wdTightNone .ReadingOrder = wdReadingOrderRtl End With End Sub أما بالنسبة للكود الأول فحدد ما هو التباعد المطلوب ليتم ضبط الكود عليه. ويمكنك الاستفادة من هذا الموضوع طريقة إنشاء مشروع الماكرو .

هل تريد ان يكود يربط استعلام مساعد منع التجاوز 1 مع الاستعلام التحويل خارج ان يكون في استعلام واحد هكذا ام ماذا

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

برنامج شئون الموظفين يعمل بالتاريخين الهجرى والميلادى. امكانية البحث برقم الموظف . امكانية ربط الموظف بصورة الموظف من اى مكان من الحاسب (وليس وضع الصور بجانب الملف كما كان مسبقا). امكانية حذف موظف او تعديل بيانات الموظف . اصدار تقارير عن موظف واحد بطباعة بياناته فى صفحة مستقلة. امكانية تصدير التقارير لملف اكسيل جديد باسم جديد. البحث بين تاريخين . امكانية طباعة عدد من الموظفين سواء (اسم الموظف - الراتب - الاقامات - الادارة التابع لها - او اى بيانات مدخلة ). التحكم فى تغيير اسم الشركة . نافذة امان قبل الدخول للبرنامج بكلمة مرور يمكن اظهار النافذة او اغلقها. امكانية التحكم فى اعدادات المظهر (خلفية البرنامج - لون الخط ). للاطلاع عن المزيد من الصور والشرح للبرنامج من هنا او الاطلاع على دليل المستخدم من البرنامج شكر خاص للأستاذ/ عبد الله باقشير حيث استخدمت الكثير من اكواده الاكثر من رائعه وكذلك باقى الاعضاء الاخرين ملاحظة : باسورد نافذة الامان الافتراضى 12345 باسورد vba وقاعدة البيانات وفتح الملف 12345 لابد من تمكين الماكرو ليعمل الملف فى النهاية نسألكم الدعاء بظهر الغيب emp.rar

بسم الله الرحمن الرحيم الحمد لله الواحد القهار، العزيز الغفار، مكور الليل على النهار ، تذكرة لأولي القلوب والأبصار وتبصرة لذوي الألباب والاعتبار ، الذي أيقظ من خلقه من اصطفاه فزهدهم في هذه الدار، وشغلهم بمراقبته وإدامة الأفكار ، وملازمة الاتعاظ والادكار، ووفقهم للدؤوب في طاعته والتأهب لدار القرار، والحذر مما يسخطه ويوجب دار البوار، والمحافظة على ذلك مع تغاير الأحوال والأطوار. أحمده أبلغ حمد وأزكاه، وأشمله وأنماه. أما بعد: رأيت أن أقدم عملا خالصا لوجه الله الكريم لعل الله يتغمدنا برحمته ولذا رأيت أنا الفقير إلى الله المحمدي عبد السميع عبد الغني وهو عباره عن ملف رائع لاستخراج شهادات الطلاب وأوائل الطلبة وشهادات تقدير للأوائل ولا ننسى الدعاء لساحرالاكسيل ومهندسه العالم العلامة والبحر الفهامة بمشيئة الله عبد الله باقشير جزى الله كل من كانت له بصمة في هذا العمل أوائل الطلبه وشهادات3.rar ===================================== تفضل اخي الكريم وجزاكم الله خيرا أوائل الطلبه وشهادات3.rar

دورة شرح الفيجوال بيسك لبرنامج الإكسيل VBA .. !! خطوة خطوة ( الجزء الأول ) صدقة جارية علي روح والدي ) رحمه الله ( ... نسألكم الدعاء له ==================== الجزء الأول السلام عليكم اساتذة المنتدي وخبراؤه الكبار الاخوة الافاضل اعلم ان مثل هذه الموضوعات قد قتلت بحثا وطلبا واجابة من الاعضاء وهناك امثلة كثيرة للاساتذة الافاضل الكبار ولكن ما دعاني لتقديم هذا الموضوع ... حيث كنت قد اعددت له منذ فترة وأن يصبح لي اي عمل ولو صدقة جارية عله ينفع البعض ولو بمعلومة صغيرة وايضا لأنني اردت ان اجعل المواضيع الاساسية في تنفيذ عمل وتصميم اي برنامج في متناول الجميع بطريقة بسيطة وسهله اكثر ما يكون من خلال هذه السلسلة ... سلسة ( خطوة .. خطوة ) (( اعانني الله علي اكمالها كما ينبغي )) وقصدت ان يكون الموضوع بعنوان واضح ليستفيد منه الجميع عند البحث وسأقدم الشرح في هذا الجزء علي ملفات PDF لتصبح موجودة لدي من يحتاجها دائما واليكم اخواني الكرام : فهرس بالدروس التي تم اعدادها ( جاري اعداد بقية الدروس ان شاء الله ) : الدرس الاول : مقدمة عامة الدرس الثاني : اعدادات مستوي الامان ( التعرف عليها – كيفية ضبطها ) الدرس الثالث : كيفية اظهار شريط ادوات الـ VBA ضمن اشرطة الادوات و القوائم الدرس الرابع : كيفية اظهار محرر الفيجوال بيسك VBA في الاكسيل الدرس الخامس : مكونات وأجزاء محرر الفيجوال بيسك VBA في الاكسيل الدرس السادس : بعض الاجراءات الضرورية للتعامل مع محرر الفيجوال بيسك VBE قبل التطرق للاكواد وبرمجتها الدرس السابع : المـــــــــــــــــاكرو ( الجزء الأول ) ما هو الماكرو أنواع الماكرو ما هي أفضل الطرق للتعامل مع الماكرو؟ انواع الاجراءات تسجيل الماكرو بالنسبة لاكسيل 2003 الدرس الثامن : المـــــــــــــــــاكرو ( الجزء الثاني ) ( تسجيل الماكرو بالنسبة لاكسيل 2007 ) الدرس التاسع : المـــــــــــــــــاكرو ( الجزء الثالث ) شرح بسيط لتركيبة الكود او الماكرو بشكل عام وللماكرو المسجل لدينا بشكل خاص تعديل الماكرو ( المسجل أو المكتوب ) تعديل أو تعيين اختصار الماكرو ( المسجل أو المكتوب ) الدرس العاشر : المـــــــــــــــــاكرو ( الجزء الرابع ) كيفية تشغيل الماكرو كيفية عمل زر لتشغيل الماكرو الدرس الحادي عشر : المـــــــــــــــــاكرو ( الجزء الخامس ) تسجيل الماكرو النسبي تخصيص زر لتشغيل الماكرو في القوائم الموجودة لدينا في الاكسيل التوقيع الرقمي او التوثيق واي استفسار .... في الخدمة دائما ... واي شئ غير واضح في الشرح علي استعداد تام لشرحه مرة اخري ومرات اخري ومنتظر أرائكم في الشرح .. جزاكم الله خيرا اساتذتنا المقدمة1.rar طريقة تخفيض مستوي الامان في كل اصدارات الاكسيل2.rar اظهار شريط ادوات الفيجوال بيسك للاكسيل 3.rar وباقي الدروس في المشاركات التالية نظرا لحجم المسموح برفعه في كل مشاركة

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

اطلع على المرفق و وافني بالنتيجة

وعليكم السلام إذا أردت عمل استثناء لأوراق عمل معينة قم بإضافة سطر بعد سطر الحلقة التكرارية شبيه بما قدمه أخونا زيزو العجوز If sh.Name <> "الرئيسية" And sh.Name <> "namodaj" And sh.Name <> "طباعة" Then ولا تنسى الجملة End IF قبل نهاية الحلقة التكرارية

تمام اخی غدا راح اشرح لک بالصور ان شاء الله لكن ذكرني غدا

تمام اخوى تسلم ممكن باقى الكود بنفس التفريده السابقة

عفوا انت اختارت شهر مرتين اي انت خذت الايام شهر وبعدين خذت مرة اخرى بنفس الشهر وهذا ما يقبل لان في جدول ئيكس دَي به حقل باسم ئيكس داتا وما يقبل التكرار غير خاصيته الى التكرار مقبول راح يعمل لك كما تريد واذا تريد ما يقبل التكرار وعند ضغط ما يظهر رسالة الخطأ في اول الكود اكتب ON ERROR RESUME NEXT وجربه هل سيشتغل تمام ام ماذا سيجري

اخي @اسلام سيد هو استعلام تجميعي ما يظهر كنماذج الاخرى بل بيظهر ك كود سكويليتي شوف افتح قسم استعلامات واضغط على علامة استعلام تجميعي راح يفتح لك نافذة ما بها شي اكتب فيها SELECT [الفواتير اصناف].المكاتب FROM [الفواتير اصناف]; UNION ALL SELECT [رصيد المخازن].الاسم FROM [رصيد المخازن]; سيجمع لك الحقل مكاتب و الحقل الاسم في حقل واحد وهنا الشي المهم هو UNION ALL وتكدر تجمع بين جدول واحد كما عملت انا و اكثر تحياتي

استاذنا الفاضل/ نورت بيتك منتدى اوفيسنا طال غيابك عنا

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

هل تريد هكذا

يا رب اغفر لنا .. اننا احزنّا قلب واحد طيب اعتذر بشدة

جزاك الله خير

الله يوفقك اخي الحبيب Shivan Rekany وجزاك الله خيرا دمت لاخيك تحياتي

السلام عليكم بعد العديد من المحاولات أخي محمد توصلت إلى كود يقوم بتصدير الباركود كما هو: 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

يمكنك اخي الكريم تغيير لغة المنتدي من الاسفل في آخر الصفحة كما في الصورة الموضحة ( ستجد زر تغيير اللغة ) وللتوقيع واستخدامات المنتدي وطريقة التعامل عليه اليك الرابط التالي به كل شئ توجيهات للأعضاء لمعرفة كيفية التعامل مع المنتدى بشكل أفضل

السلام عليكم لو هيستمر الموضوع هنا مستعد للمساعده ان شاء الله

السلام عليكم الاخ الكريم / محمود أبوالدهب بارك الله فيك بالنسبة لطلبك الآخر الخاص بـ PrintArea .. وعذرا علي التأخير ولكن اعتقدت انك وصلت لما تريد وبعض مشغوليات الحياه فقط عموما سيكون الكود الخاص بك الذي تسخدمه في معاينه الطباعة مختلف بعض الشئ ( بتعديلات بسيطة ) عن الذي قمت بوضعه في مشاركتك حيث ستقوم بتحديد النطاق الذي تريده مرة واحد مع بعضه ثم اضافته لـ PrintArea ليمكنك المعاينة للثلاث نطاقات مع بعض تنفيذ ما تريد قمت بتطبيقه علي الملف الذي ارسلته لك في المشاركات السابقة .. قم بتجربته علي ملفك واخبرني بالنتيجة .. ان شاء الله يفي بطلبك Sub print_somwafaa() On Error Resume Next mahmoud_hide3 Sheets("som wafaa").Range("B3:h24,b26:h84,b86:g110").Select Sheets("som wafaa").PageSetup.PrintArea = "$b$3:$h$24,$b$26:$h$84,$b$86:$g$110" ActiveWindow.SelectedSheets.PrintPreview mahmoud_Unhide3 Sheets("som wafaa").Select End Sub تقبل خالص تحياتي

السلام عليكم الاخ الكريم /alaagold11 بارك الله فيك شاهد اخي الكريم المرفق المطلوب ... ان شاء الله يفي بطلبك تقبل خالص تحياتي حماية خلية معينة من التعديل فيها وظهور رسالة والرقم السري علي شكل نجوم.rar السلام عليكم لك مني اخي الكريم دعوة علي الرابط التالي تقبل خالص تحياتي

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

شکرا لک صدیقی الحمد لله الان اللی ترید بین یدیک تحیاتی

الان جربه اذا حد الرسوب بيكون ما بها اي رقم لا يبدله stu.rar

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

السلام عليكم الاخ الكريم / محمود أبوالدهب بارك الله فيك اولا لا يوجد داعي لاي اسف فكلنا هنا اخوة الكل يشارك لافادة بعضنا البعض بالنسبة لاخفاء الاعمدة اليك كود بسيط لاخفاء الاعمدة التي تحددها انت ويمكنك دمجها مع الاكواد السابقة الكود يكون كالتالي مع الشرح Sub hide_Column() 'hide_Column طبعا السطر السابق كما اتفقنا هو بداية الكود ثم تسميته واسمه هنا Sheets("Sheet1").Range("F:F,I:I,K:K,O:O").EntireColumn.Hidden = True 'Sheet1السطر السابق نحدد فيع اولا الشيت المراد تنفيذ امر الاخفاء عليه وهو هنا في الكود 'F,I,K,Oثم نقوم بتحديد نطاق الاعمدة المراد اخفاؤها كما نريد وهو هنا الاعمدة ' F ويجب عند تحديد النطاق للعمود الواحد ان يكتب بالشكل الموجود في الكود فمثلا للعمود 'F:F يكون النطاق بهذا الشكل اي العمود من بابه .. يعني End Sub 'السطر السابق هو نهاية الكود كما اتفقنا سابقا ولا نسيت فيمكنك اخي الكريم استخدام هذا السطر للاخفاء : Sheets("Sheet1").Range("F:F,I:I,K:K,O:O").EntireColumn.Hidden = True ثم قم باستخدام نفس السطر للاظهار ولكن بتغيير بسيط وضع FALSE مكان TRUE كالتالي : Sheets("Sheet1").Range("F:F,I:I,K:K,O:O").EntireColumn.Hidden = False ارجو ان اكون قد وفقت في شرح المطلوب واس استفسار معك دائما باذن الله تقبل خالص تحياتي

هل قمت بتجربة المرفق

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

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

الدروس من الدرس الرابع ... الي ... الدرس السادس كيفية اظهار محرر الفيجوال بيسك الاكسيل4.rar مكونات محرر الفيجوال بيسك 5.rar كيفية التعامل مع محرر الفيجوال بيسك 6.rar الدروس من الدرس السابع ... الي ... الدرس التاسع المـــــــاكـــــــــــرو7.rar تابع المـاكـــــرو8.rar تابع المـاكـــــرو9.rar الدروس من الدرس العاشر ... الي ... الدرس الحادي عشر تابع المـاكـــــرو10.rar تابع المـاكـــــرو11.rar أرجو من الله ان أكون قد وفقت في توصيل ولو معلومة صغيرة لمن يريدها بخصوص هذا الجزء تقبلوا خالص تحياتي

طريقة عمل شاشة افتتاحية باسم مستخدم ورقم سري !! خطوة خطوة طريقة عمل شاشة ( فورم ) ادخال وترحيل واستعلام وتعديل !! خطوة خطوة طريقة عمل فورم فاتورة ووضع اكوادها وترحيلها واستدعائها وطباعتها !! خطوة خطوة طريقة عمل او استخراج كشف حساب بالاكواد بطريقة بسيطة !! خطوة خطوة طريقة عمل فورم بحث واظهار النتائج في ليست بوكس وتعديل النتائج !! خطوة خطوة ===================================================== ( مدخل في تعلم VBA اكسيل خطوة خطوة - 12 درس ) دورة شرح الفيجوال بيسك لبرنامج الاكسيل VBA .. !! خطوة خطوة ===================================================== قوائم بشكل جديد في الاكسيل .... تصلح للاستخدام في برنامجك .. بطريقة بسيطة كود اضافة ازرار باسماء الشيتات في الصفحة الرئيسية وزر للرئيسية في كل شيت فورم بسيط لاضافة شيت او عدة شيتات دفعة واحدة ... قائمة منسدلة متعددة الألوان - اختار لون الخلفية و الحروف لكل عنصر - أ / Jaafar Tribak هدية الجمعة : سورة ( الكهف ) في فورم ... معلومات .. قراءة .. فضائل ( لعبة مسابقات اوفيسنا ) علي الاكسيل - لعبة بسيطة من تصميمي .. تصلح لالعاب المسابقات العب مع الفورم ... حركة لطيفة وخفيفة .. واظهر قوة ملاحظتك !! ( لعبة الصورة المستخبية ) علي الاكسيل - لعبة بسيطة .. تصلح لالعاب المسابقات للاطفال استفتاء : ما افضل اصدار الاكسيل في ( اوفيس 2003 - 2007 - 2010 - 2013) هو ليس موضوع معادلات او اكواد ... ولكنه استفتاء فقط ... ولكني اعشق هذا الموضوع لاتنشرها جزاك الله خيراً ... ولا تجعل الملف يقف عندك .. انشره .. ادخل وستعرف !! علي الاكسيل ........... علي الباوربوينت

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

بسم الله الرحمن الرحيم الاخوة والاخوات فى هذا الصرح العظيم أقدم لكم اليوم الاصدار الثالث من برنامج EMA يشمل جميع الامور المحاسبيه هذه النسخه نسخه تجريبيه يرجى من الاخوة المحاسبين والمهتمين بالامور المحاسبية التجربه والتقييم للوصول الى الافضل ان شاء الله بنزل الشرح عن كيفية الاستخدام والتعامل مع البرنامج اى سؤال أو استفسار لا تترد وأنا تحت امركم كلمة المرور - الدعم الفني الباسورد - 123 تفضل نسختك EMA.zip

اخي مستر ستيف اليك هذا السطر من الكود وامسح جميع الاكواد الاخرى Private Sub Form_BeforeUpdate(Cancel As Integer) If DCount("*", "tbl1", "[B]=1 and [A]= form![A]") = 1 Then Cancel = B: MsgBox ("مكرر"): Undo End Sub تحياتي

تفضل آمل ان يحقق مطلبك Private Sub A_AfterUpdate() If (DLookup("B", "tbl1", "B=form!B")) Then MsgBox "هذا السجل مكرر " Undo End If End Sub Private Sub B_AfterUpdate() If Not IsNull(DLookup("A", "tbl1", "A=form!A")) Then MsgBox "هذا السجل مكرر " Undo End If End Sub NoDuplicates.rar

الاخ أحمد بكر افكار رائعه ولكن انا عايز اطوع الملف ده عشان يناسب العمل عندي فمثلا الشاشه اللي فيها الكود وارقام الموبايل والاسم عربي/انجليزي وغيرهم الهيد ده بتاع البيلنات عايز اغيرهم لاني هستعمل الملف ده في تسجيل جوازات مسافرين في شركه سياحه كل بيانات الجواز يعني مع امكانيه البحث والتعديل والالغاء وطبع سيكتور معين كنت فعلا بدور علي فكره زي اللي في الملف ده ولكن ما اريده حاليا اني اعدل عليه جزاك الله خيرا

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

استاذى احمد بكر عمل فى منتهى الروعه والاتقان زى مقال حبيبى ابن مصر استمر استمر استمر تقبل تحياتى

اخى العزيز الاستاذ : أحمد بكر عمل أكثر من رائع جزاك الله كل الخير وجعله في ميزان حسناتك

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

اشكرك على المجهود

طريقة تحويل ملفات PDF باللغة العربية الى ملف word بدون اي اخطاء

اخى العزيز قم بتجربة هذا البرنامج وسيحل المشكلة باذن الله http://depositfiles.com/files/5ux1lhskr

السلام عليكم: ان شاء الله يقدم المثال المطلوب والدالة كما تلاحظ هي DLookup. DLookup.rar

السلام عليكم شكرا لكل من ساهم في موضوع الباركود وخصوصا صاحب المثال أخي طارق ، فقد صممت برنامجا للحضور انطلاقا من هذا المثال وهو الآن من البرامج الأساسية بالشركة وقد كفانا عذاب الإدخال الشهري وأخطاء الإدخال وشكاوي الموظفين ممن لا يريحهم نتائج خارج الدوام "OV" . من الأفكار التي طبقتها هو عمل بطاقات ثبوتية للموظفين واستخدام وجه البطاقة في الدخول وظهرها في الخروج . ويمنع منعا باتا استخدام لوحة المفاتيح في الإدخال إلا في حالة ضيقة جدا كضياع البطاقة مثلا ، ولكن استخدام لوحة المفاتيح يكون عن طريق صندوق نص آخر وبكلمة مرور وذلك لسد كل الثغرات للتلاعب بالمعلومات . من الأمور التي أتعبتني بحق هو كيف أجعل البرنامج يتعرف على مصدر الإدخال ، لوحة المفاتيح أو القارئ ، وذلك لأن الكمبيوتر لا يفرق بين الإثنين . حتى فكرت في طريقة لإجبار البرنامج على التمييز بينهما وذلك باحتساب سرعة الإدخال بين رقم وآخر بمعنى لو كان عندنا رقم موظف 102 فسأقوم بدراسة فرق الوقت بين إدخال 1 و 0 وكذلك بين 0 و 2 . فواجهتني مشكلة تشكيك فريق تقنية المعلومات أنه يوجد من يملك سرعة الإدخال مما لن ينفع معها هذا الحقل ، ولكن لأنه لم يوجد حل آخر وكنت شبه مقتنق أن القارئ سوف يكون سريعا جدا مقارنة مع الموظف تم تطبيق الفكرة ونجحت نجاحا مدهشا ولم يستطع أحدا اللحاق بالقارئ . البرنامج ملك للشركة فاسمحوا لي بعدم نشره . دوشتكم :) . تحياتي .