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

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

السلام عليكم جرب الكود التالي في حدث ورقة العمل Private Sub Worksheet_Activate() ActiveSheet.TextBox1.Activate End Sub

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

أخي ابو عائشه انت لما تكتب الكود ، فهذه النافذة تُسمى نافذة اكواد VBA ، ويمكنك ان تبحث عن اي امر تريده مساعدة فيه ، بطريقتين (لإصدارات الاكسس 2000 الى 2010) : في هذه النافذة حقل في اعلى اليمين تكتب الامر اللي تريد تبحث عنه ، فتخرج لك نافذة فيها معلومات عن الكلمة التي تبحث عنها ، او تكتب اي امر في نافذة الاكواد ، مثلا: msgbox وتضع مؤشر الكتابة على اي جزء من الكلمة ، ثم تضغط على الزر F1 ، فتأتيك النافذة كما في الرقم 1 اعلاه ، بمعلومات عن msgbox. من الرقم ا او 2 ، سترى جميع الاوامر الخاصة بالامر msgbox الآن بالنسبة الى الامر msgbox ، فهناك اوامر تنبيه ، والتي تصدر صوت تنبيه كذلك ، وكل أمر له الشكل/الايقونة الخاص به (وهذا كان سؤال موضوعك)، مثلا: MsgBox "تجربة بصوت", vbYesNo + vbCritical او MsgBox "تجربة بصوت", vbYesNo + vbExclamation او MsgBox "تجربة بصوت", vbYesNo + vbInformation ولتكملة الموضوع ، فان الصوت يأتي من اصوات الوندوز ، ويمكنك ان تغيره من هنا (فالسهم يؤشر على صوت Critical ، والذي تناديه من الكود اعلاه بـ vbCritical): . وطبعا تستطيع استعمال أمر Beep كما قال عنه أخي شفان ، في اي مكان من البرنامج جعفر

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

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

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

السلام عليكم ورحمة الله وبركاتة جعل الادخال في الحضور والانصراف عن طريق دبل كليك فقط ولا يمكن الكتابة اليدوي Book1.rar

اخى الكريم : معى بالخطوات 1-Control Panel 2- Language and region 3-Administrative كما بالصورة قم بتغييرها الى موقعك او الى الموقع اللى هيظبط معاك

ظهرت عندي مصغرة عند الساعة .. نظام تشغيلي ويندوز 8 64bit مع اوفيس 2007 عربي .. وتمت التجربة بنجاح ايضاً على ويندوز 7 32bit مع اوفيس 2003 انجليزي

جرب هذا المرفق اخي الكريم systray.zip

لدى نموذج لسداد مصاريف الطلاب اريد بمجرد كتابة كود الطالب يظهر اسم الطالب

اخي الكريم ما الفائدة من اخفاء الكومبوبوكس ؟؟؟ (طبعا هذا هو سبب رسالة الخطا ) اما بالنسبة الى فتح النموذج الثاني عند النقر على الاسم استخدم هذا الكود DoCmd.OpenForm "frm-general", , , "[surname]'=" & Me.SurName & "'"

حسب علمي ، لا يمكن اي طريقة اسرع من الطريقة الاولى "لجمع فى نهاية الصفحة" للأسف ، في ثمن ندفعه للبرنامج ليقوم بعمله وبالذات للتقارير ، وهذا الثمن اسمه البطء جعفر

أجل من خصائص شريط الأدوات قم بتعديل خيار ظهور الأيقونة إلى always، أظن هذه طريقتها في Win7

تفضلي تم تعديل استعلامات نماذج "مواعيدك" الاربعة جعفر 630.ننظام متابعة مواعيد مرضى السكر.accdb.zip

حياك الله اخي حسين

تفضل اخي الفاضل https://drive.google.com/file/d/0B5oTVOnhU-rrOFhDOHFxN2c2T1k/view?usp=sharing

اخي سلمان اليلام عليكمورحمة الله وبركاته انااعتذر منك بشدة بعد الانتظار لمدة اكثر من واحد وعشرين ساعة ما وصلت للنتيجة المطلوبة

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

مشكور على مرورك استاذى الفاضل بالنسبة لتحديث الكود ل64 بيت يجب التحديث لان فى رسالة خطأ بتظهر بتطلب تحديث الكود ل64 Declare Function بالنسبة لمثالك هنزل اصلى واجرب واوافيك النتيجة

ما تريد اخي ابو عبدالله ما فهمت شيء من قاعدة بيانات المشاركتك الماضية هل تريد شي اخوك شفان ريكاني

اتفضل اليك هذا لحقل شهر 1 اعمله لكل الحقول اولا انا غيرت اسم المربع لشهر 1 من "01" الى "sh01" واستخدمت هذا الكود عند الفتح النموذج Private Sub Form_Open(Cancel As Integer) If DCount("[شهور]", "[qr1]", "[شهور]=" & "01") < 1 Then Me.sh01.ControlSource = "" Else Me.sh01.ControlSource = "01" End If End Sub اليك قاعدة بياناتك بعد اضافة الكود الاعلاه rr2.rar

السلام عليكم آسف لفتح المواضيع القديمه جربت الطريقة المذكورة على برنامج خاص بالعمل وتظهر النتيجة مضبوطة تمامً ..... جزاك الله خيرًا على المجهود والمساعدة ولكن التقرير حتى يعرض أمامى يأخذ وقت طويل بالدقائق .... فما السبب علمًا بأن عدد صفحات التقرير لاتزيد عن 20 صفحة حد أقصى

السلام عليكم ورحمة الله استبدل هذا السطر : If c > 1 And ws.Range("BH" & LS) <> "" Then بهذا السطر : If c > 1 And ws.Range("BH" & LS) <> "" And ws.Range("BI" & LS) = sm.Range("F1") Then

رابط جديد https://drive.google.com/open?id=0B5oTVOnhU-rrOXZhZlZLbjFBSFk اخي الفاضل جزاك الله خير ا ماكنت غير اني سبب والكن الشكر كل الشكر للاستاتذه الذين ساهمو معي في هذا البرنامج ويرجع الفضل في هذا البرنامج للمولي عز وجل / ثم لا ستاذي الفاضل sandanet الذ ي بذل مجهود كبير جدا حتي وصلت به الي هذه الدرجه والشكر ايضا لاستاذي الفاضل محمد سلامه / واستاذي الفاضل ابا جودي / ولاستاذنا الكبير ومعلمنا الفاضل jjafferr الذي شرفنا بلمساته الفنيه الجميله الف شكر لكم استاتذتي الافاض لكم مني كل الشكر والتقدير وجعلكم الله عونا لكل محتاج للعلم وبارك الله لكم وعليكم وجراكم خير الجزاء ارجو من كل من يستفيد من هذا البرنامج الدعاء لكل من ساهم في هذا البرنامج في الرابط الجديد وضعت زر امر لفتح الاسكان عن طريق شورت كت علي سطح المكتب واستدعاء المسار من نموذج تغير مسار حفظ البرنامج زر النموذج في الشاشة الرئيسية لكي تستطيع فتح الاسكنر من داخل البرنامج دون الخروج

السلام عليكم ورحمة الله وبركاته الان انا عم اعمل تجربة على القاعدة بيانات و رقم سري له مكونة من 14 رقم والحروف اذا نجحت فيها ساخبرك واقول لك ارسللي لكن صار تقريبا ساعة و ... بعد وصل الى حد 9 بالمائة اي يعنني سيطول الامر لذا انتظرني تقبل تحياتي

السلام عليكم أصل هذا الموضوع هنا أحببت أن أفرد الرد فى موضوع مستقل لنستفيد جميعا إن شاء الله و هو يختص بكيفية المحافظة على الترتيب داخل جدول حسب حقل المعرف فى حال حذف أحد السجلات و هذا هو الكود المستخدم Option Compare Database Private Sub Form_Current() If Me.NewRecord Then Dim MySQL As String, MyDB As DAO.Database, rst1 As DAO.Recordset Dim rst2 As DAO.Recordset MySQL = "Select [DashNum] From tblTest Order By DashNum;" Set MyDB = CurrentDb() Set rst1 = MyDB.OpenRecordset(MySQL, dbOpenSnapshot) Set rst2 = rst1.Clone rst1.MoveFirst: rst2.Move 1 'move to the 2nd Record in rst2 Do While Not rst2.EOF 'If the difference between 2 consecutive Dash Numbers is not 1, since 'they are ordered, this would indicate a gap in sequence If rst2![dashnum] <> rst1![dashnum] + 1 Then Me.dashnum = rst1![dashnum] + 1 rst2.Close rst1.Close Set rst2 = Nothing Set rst1 = Nothing Exit Sub End If rst1.MoveNext rst2.MoveNext Loop rst2.Close rst1.Close Set rst2 = Nothing Set rst1 = Nothing End If End Sub المحافظة على الترتيب.rar

السلام عليكم هذا هو الفديو الثانى فى شروح أكسيس و لا أدعى أن فى هذه الفديوهات أشياء جديدة على معظمكم لكنها شروح أرجو أن ينتفع بها عدد غير قليل من زوار المنتدى و كل إنسان له بداية ضعيفة ثم بالبحث و المران اكتسب المعلومات و الخبرة و قد كنا و نحن فى البدايات نبحث عن مثل تلك الشروح أرفق لكم ملف الأكسيس قيد الشرح و نتعرض للموضوعات التالية فى هذا الفديو خاصية القيمة الافتراضية و فوائدها استخدام الخاصية فى إدراج معرف الموظف تلقائيا استخدام خاصية وقف علامات الجدولة دالة iff dcount dmax و أشكر الأخ المراقب أبا خليل لتشجيعه وفقكم الله

السلام عليكم موضوع بحثت عنه قديما و لم أتوصل لإجابة شافية - هذا إذا افترضنا أنه ممكن- معيار الاستعلام هل يمكن تخزينه فى جدول و نستدعيه بدالة dlookup لا أقصد قيمة المعيار بل أقصد صيغة المعيار مثلا: لو كان المعيار : >7 أو يشتمل على محددات مثل > < or and <> هل يمكن تخزين صيغة المعيار كاملة فى حقل بجدول و استدعاؤها بدالة البحث أو حتى تخزينها فى مربع تحرير و سرد أفيدونا فى هذا الموضوع أفادكم الله

هذا سريعا وبعدين نسولف استاذ عبدالفتاح SELECT t1.exmid, t1.exmtotal FROM t1 WHERE (((Eval([exmtotal] & DLookUp("[my_parameter]","tbl_parameters","[select_Parameter] =true") & 200))=True)); بالتوفيق

والله كنت أجهزة قبل أن تسأل أستاذى العزيز اتفضل جاااااااهز لعيونك استاذ عبد الفتاح.rar اللى راح يظهر فى الاستعلام لازم يكون = true من الجدول تمام

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

السلام عليكم اخواني الكرام الفكرة عندي هي 1- انشاء وحدة نمطية لاستدعاء الصورة من مجلد جانب البرنامج اسمه img يتطلب هذا الامر استخدام براميتر لاسم الصورة وبراميتر لامتداد الصورة ندخلهم عند كود الاستدعاء وصلت الى هذه الوحدة النمطية Function selectimage(imageName, typeimage As typeimg) Dim typeimg As String Select Case typeimage Case 1 typeimg = ".png" Case 2 typeimg = ".jpg" Case 3 typeimg = ".bmp" Case 4 typeimg = ".ico" End Select selectimage = Application.CurrentProject.Path & "\img\img\" & imageName & typeimg End Function بحيث استخدمها عند استدعاء اربع انواع من الامتدادات حصرا لكن كما هو واضح من الكود اني استدل على الامتداد برقم وبعد مرور الوقت قد انسى ان الرقم 3 يرجع الى اي امتداد او عدد الامتدادات المسموح استخدامها لذلك استخدمت enum لعرض الامتدادات المسموح بها اثناء كتابة كود الاستدعاء على الشكل التالي بهذه الطريقة عرفت الامتدادات وعددها ولم استخدم الارقام في التعريف عن الامتداد لكن القيم بداخلها هي قيم رقمية احتاج الى الامر select حتى احولها الى نصية الى الان الوضع تمام والكود شغال ممتاز لكن طمعي بكود اقصر واداء افضل بحيث عندما اختار من القائمة تكون القيمة المخزنة فيها نصية واستخدمها مباشرة دون الحاجة الى استخدام select

اتفضل اخي محمد استخدمت هذا الكود 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

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

دفعة واحدة عبر الاستعلام وحده لا اعلم ولكن اظن تحقيق ذلك بالاستعانة بالكود بالنسبة ليوم الجمعة انظر التعديل على الاستعلام db3.rar

هذا الملف بصيغة 2003 ارجو تحويله لصيغة 2003 او 2007 وشكراً لا تقلق أخي هذا ليس إزعاج نحن نعمل ما نستطيع فعله و لا يمكن أن يزعجنا شخص يطلب العلم تأثيرات 2003.rar و هذا الملف الآخر 2003.rar

السلام عليكم أخي تفضل هذه هي الأكواد التي تحتاجها: 1- بالنسبة لحفظ المرفق بمكان معين في الكمبيوتر: Set db = CurrentDb Set rstable = db.OpenRecordset("tblFonts") Set rsfile = rstable.Fields("attach").Value rsfile.Fields("FileData").SaveToFile txtpath بحيث : txtpath هو مسار الحفظ و إذا أردنا فتح الملف بعد حفظه مباشرة نضيف هذا الكود: Application.FollowHyperlink txtpath & "\" & rsfile.Fields("Filename") 2- أما بالنسبة لفتح المرفق مباشرة فنستعمل هذا الكود: Dim db As DAO.Database Dim rsEmployees As DAO.Recordset Set db = CurrentDb Set rsEmployees = db.OpenRecordset("tblFonts") OpenFirstAttachmentAsTempFile rsEmployees, "attach" و نحفظ الكود التالي في وحدة نمطية جديدة: Public Function OpenFirstAttachmentAsTempFile(ByRef rstCurrent As DAO.Recordset, ByVal strFieldName As String) As String Dim rstChild As DAO.Recordset2 Dim fldAttach As DAO.Field2 Dim strFilePath As String Dim strTempDir As String strTempDir = Environ("Temp") ' Get the Temp directory from the environment variable. If Right(strTempDir, 1) <> "\" Then strTempDir = strTempDir & "\" ' Make sure the path always ends with a backslash. Set rstChild = rstCurrent.Fields(strFieldName).Value ' the .Value for a complex field returns the underlying recordset. strFilePath = strTempDir & rstChild.Fields("FileName").Value ' Append the name of the first (and only) attached file to temp dir. If Dir(strFilePath) <> "" Then ' the file already exists--delete it first. VBA.SetAttr strFilePath, vbNormal ' remove any file attributes (e.g. read-only) that would block the kill command. VBA.Kill strFilePath ' delete the file. End If Set fldAttach = rstChild.Fields("FileData") ' The binary data of the file. fldAttach.SaveToFile strFilePath rstChild.Close ' cleanup VBA.Shell "Explorer.exe " & Chr(34) & strFilePath & Chr(34), vbNormalFocus ' Use Windows Explorer to launch the file. End Function 'OpenFirstAttachmentAsTempFile و هذا ملفك بعد التعديل: fonts.rar

السلام عليكم: 1 - نقوم بإضافة تجميع حسب أحد الحقول أو نضيف حقل فارغ إلى الجدول و نقوم بالتجميع حسب هذا الحقل. 2- نذهب لخصائص المؤسسة رأس (في مكان المؤسسة نجد اسم الحقل المختار). 3- نغير خاصية تكرار المقطع إلى نعم في التبويب تنسيق.

بسم الله الرحمن الرحميم الاحوة الكرام السلام عليكم ورحمة الله وبركاته عند الجمع التراكمي بدالة DSum اقوم بجمع كمية الشراء من جدول المشتريات بمعيار حقل المسلسل Id هكذا Total: Nz(DSum("Quantity";"Purchase";"[IdProduct]=" & [IdProduct] & "and [Id]<=" & [Id]);0) يكون الناتج صحيح وعند تنفيذ نفس الامر بمعيار التاريخ Xdate لا يعمل هكذا Total: Nz(DSum("Quantity";"Purchase";"[IdProduct]=" & [IdProduct] & "and [Xdate]<=" & [Xdate]);0) فهل يمكن حل المشكلة لاستيدالها بمعيار التاريخ Xdate ولكم وافر بتحية والسلام عليكم ورحمة الله وبركاته

الفكرة الجديدة هي: خلينا نستعرض كل صفحة ونشوف نتيجة الجمع اسفل الصفحة ، ولما نشوف نتائج كل صفحة ، خلينا نحفظ هذه المعلومة في مكان ما (انا استعملت Array ، ولكن يمكن استعمال جدول مؤقت كذلك) ، وعلشان نستعرض كل صفحة ، فيجب استعراضها يدويا ، او طباعة التقرير ، انا طبعت التقرير بصيغة rtf (فحصلت على مجموع كل صفحة في Array ، ثم حذفت ملف rtf المؤقت ، ثم اعرض التقرير بطريقة عادية ، وتكون النتائج في رأس الصفحة ولكن يجب عليك فتح التقرير عن طريق النموذج علشان هذا العمل ، لازم تكون عندنا وحدة نمطية للإحتفاظ بالقيم ، الرقم 100 معناه 100 صفحة تقرير (يعني انا كتبت رقم كبير ، واذا تقريرك فيه صفحات اكثر ، فرجاء تكبير الرقم): Option Compare Database Public A1(100), B1(100), C1(100) وكود جمع البيانات كما عملناه سابقا ، بالاضافة الى إضافة النتائج الى Array : Option Compare Database Private A, B, C As Integer Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer) If Me.Sec = "الاستقبال" Then A = A + 1 ElseIf Me.Sec = "الصيانه" Then B = B + 1 ElseIf Me.Sec = "المطبعه" Then C = C + 1 End If End Sub Private Sub PageFooterSection_Print(Cancel As Integer, PrintCount As Integer) Me.txt_A = A A1(Me.Page) = A Me.txt_B = B B1(Me.Page) = B Me.txt_C = C C1(Me.Page) = C A = 0 B = 0 C = 0 End Sub Private Sub PageHeaderSection_Print(Cancel As Integer, PrintCount As Integer) On Error GoTo err_PageHeaderSection_Print Me.txt_A1 = A1(Me.Page) Me.txt_B1 = B1(Me.Page) Me.txt_C1 = C1(Me.Page) Exit Sub err_PageHeaderSection_Print: If Err.Number = 9 Then Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub جعفر 576.الجمع بشرط فى تقرير.accdb.zip

هذا صحيح لأن اكسس ينتهي من العمل من تضبيط وحساب بيانات راس الصفحة قبل ان يذهب الى قسم التفاصيل (الذي به البيانات) ، ثم الى قسم ذيل الصفحة حيث يلقى مجاميع البيانات جاهزة للعرض جعفر

1. هكذا نسحب عدد المتغيّر المطلوب ، 2. جرب جعفر

سامحوني ان اشارك معكم اليك فونتات للباركود ما عليك الا ان تقوم بعمل نموذج و تقرير وفي مربع نصي للباركود تغير فونت المربع الى احد الفونتات مع رغبتك مع تقدير ALLBarcode_Font.rar

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

اخوي جربها راح تشوف هل راح يفتحها او راح يطبعها مع تقدير تحياتي

كود بسيط لهذا الغرض Sub xx() Columns.Hidden = True Range("a1,c1,e1,j1,o1,z1").EntireColumn.Hidden = False End Sub

تم تعديل المرفق فقط باقى الرسائل الجماعية ان شاء الله قريبا مرفق المراسلة2.rar

تفضل آمل ان يحقق مطلبك 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