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

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

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

الكود السابق: UBound(strFileNames) UBound معناه العدد الاكبر من strFileName ، ولكن للاسف بسبب الضغط على زر cancel ، فالمتغير strFileName يصبح Null ، لذلك لم يستطع الامر السابق اصطياد الخطأ، بينما الامر If Len(strFileNames & "") = 0 Then فيقوم محل امرين وهما: If isNull(strFileNames)=true or strFileNames= 0 Then جعفر الله يسلمك ويعافيك ان شاء الله اخوي محمد جعفر

وعليكم السلام أخي اباجودي استبدل هذا السطر If UBound(strFileNames) = 0 Then بهذا السطر If Len(strFileNames & "") = 0 Then بسم الله عليك ايه يا اباجودي ، ما انت قلت انها تظهر لما تضغط على الزر cancel جعفر 207.5.m.salama.accdb.zip

السلام عليكم ورحمة الله تعالى وبركاته استاذ @حسين العربى استاذ @حلبي استاذ @sandanet استاذ @محمد سلامة وكما وعدتكم بمفاجأه اليوم الحمد لله رب العالمين تم التوصل لنتيجة ايجابية لابأس بها ان شاء الله برجاء اتباع التعليمات اولا : تنصيب واعداد البرنامج المرفق "iview423_setup" اهم خطوة برجاء التأكد من تنصيب واعداد البرنامج فى المسار الاتى C:\Program Files\IrfanView للعلم فى حالة وجود نظام تشغيل ويندوز 46 بيت غالبا يكون مسار الاعداد C:\Program Files(x86)\IrfanView لذلك يراعى التأكد من اعداد وتنصيب البرنامج على المسار >>---------> C:\Program Files\IrfanView الخطوة الثانية بعد تنصيب البرنامج يتم فتح البرنامج ويتم اختيار الية المسح الضوئى حسب المطلوب كما هو موضح بالصورة الاتية بعد ذلك افتح قاعدة البيانات المرفقة جرب اضافة سجل وارد او صادر بعد اكمال البيانات فى الحقول اضغط على زر الامر >>-----> اضافة مرفقات من الاسكنر يفتح النافذه الخاصة بالمسح الضوئى اضغط منها على زر scan بعد الانتهاء من المسح الضوئى لاكثر من ورقة تجد الاتى - تم انشاء مجلد بطريقة الية بجوار قاعدة البيانات فى نفس مسارها باسم tempscan وان شاء الله تجد فيه المرفقات التى تم مسحها ضوئيا الخطوة الاخيره منتظر ردكم ان شاء الله تعالى بعد ما تتم معكم التجربة بنجاح لنستكمل باقى العمل فى هذا المشرووووووع الضخم تحميل المرفق من رابط على موقع خارجى بسبب حجم المرفقات http://www.mediafire.com/file/d8wi5993u33r8ur/scan.rar

وعليكم السلام اختي 1. اذا تسمحي لي بتغيير الكود قليلا الى التالي ، فانتي لستي بحاجة الى If اخرى: if result=vbYes then docmd.quit else docmd.cancelevent msgbox "Back" endif 2. برنامج الاكسس تلقائيا يحفظ البيانات عندما ينتقل التركيز من السجل الذي انتي عليه ، سواء انتقلتي الى سجل آخر او خرجتي من النموذج الذي انتي فيه، ولكن اذا اردتي حفظ البيانات يدويا ، فهناك مجموعة طرق للقيام بهذا ، منها: سيتم حفظ البيانات كلما استعملتي هذا الامر docmd.runcommand accmdsaverecord او الامر التالي يحفظ البيانات فقط اذا تم عمل تغيير عليها if me.dirty then me.derty=false جعفر

السلام عليكم أخي أبو إبراهيم الغامدي ، مبارك عليك الترقية ، وهذا ان شاء الله اول الغيث جعفر

ايون ينفع انا عملتها قبل كده تقريبا

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

السلام عليكم ورحمة الله محاولة لا اضمن لها النجاح لأن العمل بدون الملف هو مضيعة للوقت استبدل الكود السابق بنفس الكود مع تعديل تخيلى Private Sub CommandButton1_Click() On Error Resume Next Dim i As Integer, LastR As Long, ws, ws1 As Worksheet Set ws = ThisWorkbook.Sheets("البيانات") Set ws1 = ThisWorkbook.Sheets("المدراء") LastRow = ws.Cells(Rows.Count, "B").End(xlUp).Row + 1 LastRow1 = ws1.Cells(Rows.Count, "B").End(xlUp).Row + 1 For i = 2 To 15 UserForm1.ComboBox1.Clear For T = 2 To LastRow For S = 2 To LastRow1 If OptionButton1.Value = True Then If TextBox1.Text = Mid(ws1.Cells(T, 3).Text, 1, Len(TextBox1.Text)) Then UserForm1.ComboBox1.AddItem ws1.Cells(T, 3) UserForm1.Controls("TextBox" & i).Value = ws1.Cells(T, i).Value UserForm1.CommandButton4.Enabled = True Unload Me End If Else If OptionButton2.Value = True Then If TextBox1.Text = Mid(ws.Cells(S, 3).Text, 1, Len(TextBox1.Text)) Then UserForm1.ComboBox1.AddItem ws.Cells(S, 3) UserForm1.Controls("TextBox" & i).Value = ws.Cells(S, i).Value UserForm1.CommandButton4.Enabled = True Unload Me End If End If End If Next Next Next UserForm1.ComboBox1.ListIndex = 0 If UserForm1.TextBox2.Text = "" Then MsgBox "??C C???U? U?? ????I", vbInformation + vbMsgBoxRight, "?E??E C?E?E" UserForm1.CommandButton3.Enabled = False End Sub

بعد التعديل وفقا لما تفضل به الاستاذ القدير والمعلم الجليل @رمهان الملف.zip

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

حياك الله أخوي حسين هل في شيء معين تريدني انظر فيه؟ جعفر

السلام عليكم أخي حلبي الرابط فيه طلبك: وهذا جعفر

ان احسنت الفهم Private Sub Command12_Click() Me.sbfrmTr.SetFocus DoCmd.GoToRecord , , acFirst For i = 1 To Me.sbfrmTr.Form.RecordsetClone.recordcount If IsNull(Me.sbfrmTr![Section]) Then Me.sbfrmTr![Section] = Me.Text2 If IsNull(Me.sbfrmTr![Doc]) Then Me.sbfrmTr![Doc] = Me.Text0 If IsNull(Me.sbfrmTr![zdate]) Then Me.sbfrmTr![zdate] = Me.Text6 DoCmd.GoToRecord , , acNext Next End Sub وحبذا تعديل التنسيق للعنصر Text6 الى تاريخ بالتوفيق

حياك الله أخوي رمهان ، والله المنتدى له وحشه لما الواحد يكون بعيد واهل المنتدى هم المقصودين ، مثل ما قال الشاعر أمر على الديــــــار ديار ليـلى ... أقبل ذا الـــــــجدار وذا الجـدارا وما حب الديار شـــــغفن قلبي ... ولكن حب من ســـــــكن الديارا جعفر

مشاركة مع الاستاذ اباجودي اعتقد مشكلتك كانت في كيفية الوصول للنموذج الفرعي هنا للسماح Me.NavigationSubform.Form![Table2 subform].Form.AllowAdditions = True وطبعا لعدم السماح تعديل قيمة الخاصية الى false بالتوفيق

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

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

استاذي الفاضل الحين انا عملت زر لسحب الصور من الفولدر المؤقت وزر امر للسحب من الكمبيوتر لاني عندي صور مخزنه جاهزه علي الكمبيوتر حتي الان كله تمام والاكود تعمل تمام بس في مشكله وهي في نفس الوقت خطيره / طبعا للعلم ان طبقت برنامجي علي اخر مرفق وهو الذي يغير اسم الصوره الي تاريخ مع رقم الصورة ويقوم بمسح الصورة من الفولدر المؤقت طبعا لو بعد ذالك سحبنا صورة من الاسكانر في الفولدر المؤقت واعطاها الاسكانر رقم 1 و كان رقم 1 هذا موجود لصوره في فولدر لاحد الموظفين الذي سوف ادرج له هذه الصوره فماذا يحصل يقوم اتومتكيا باستبدل الصوره بمعني يحذف الصوره الموجده في الفولدر ويضع مكانها الصوره المسحوبه وهذا مشكله كبير وعائق كبير امامي الحين / طبعا في الويندوز عند نسخ صوره الي فولدر اخر وبه نفس الاسم يعطيك خياران هل تريد استبدال الصورة اويعطيها نفس الاسم مع زياده رقم يعني مثلا صوره 1 (2) ولو ضفت نفس الرقم مره اخري يعطيها اسم 1(3) هل ممكن عمل ذالك اتوماتيكيا بدون تدخل المستخدم لو تم ذلك سوف تحل المشكله اول مره من خمس سنوان مشترك في هذا الموقع اصل الي هذالرقم كنت لا اتعدي 100 استاذي محمد سلامه / السبب لان هذا الموضوع مهم لاشخاص كثيرون فلذالك وصل الي هذ العدد

الحمد لله يا @حسين العربى لقد ضربت الارقام القياسية بنجاح حوالي 1800 مشاهدة و7 صفحات شكرا يا @sandanet علي مجهودك ولازلت افضل استخدام برنامج خارجي لاسكنر

وجزاك الله خيرا اخي الكريم

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

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

تفضل هذا ان شاء الله يكون طلبك صلاحيات مستخدم.rar

هههههههههههه اقصد المسبب داخل الكود يا استاذى الحبيب

الخطأ واضح عي بداية الكود انت أعطيت اسم واحد لصفحتين مختلفتين (اكسل هنا يأخذ الاسم على اساس الصفحة الثانية) قم بتسمبة الصفحة الاولى Ws1 مثلا والثانية Ws2 وكذلك LasteRow2 LasteRow1

اساتذتي الكرام أخي حسين وأخي اباجودى ارجو ان تجربوا المرفق التالي وهو بخصوص اخذ نسخة من مجلد السكانر ونقله لمجلد البرنامج كما تفضلتم باقتراحه .. انا قمت بالاستعانة بمرفق الاستاذ جعفر في هذه المشاركة https://www.officena.net/ib/topic/63134-احضار-محتويات-فولدر-خارجى-الى-البرنامج/?do=findComment&comment=410587 مع بعض التعديلات الطفيفة لذلك كل الشكر موجه للأستاذ الكبير جعفر على ذلك ملاحظة : قم بانشاء مجلد خاص بالبرنامج وليكن اسمه new ومجلد خاص بصور السكانر المؤقت وليكن اسمه scanner الذي يحتوي على الصور المسحوبة من السكانر ومن ثم من خلال البرنامج قم بتحديد رقم الموظف ومسار المجلد الجديد وبعدها اختار اضافة مرفقات من الكومبيوتر وتوجه الى مجلد السكانر واختار ماتشاء من صور تحياتي الارشيف.zip

كل الشكر 100% احترامي لك اخي الكريم والى اخي ابو علي

أشكرك أخي @أبو عبدالله الحلوانى على تهنئتك لي وأتمنى أن أكون عند حسن ظنكم جميعا. لا فرق سوى تبعية النموذج للوظيفة! ونحن في الأصل عرفنا المتغير ptInputResult على أنه عام وبناءً عليه يمكنك الوصول إلى المتغير من أي مكان دون الرجوع الوظيفة.. لكن انفكت التبعية هنا.. والإشكالية هنا فنية برمجية بمعنى أن هذا الاسلوب غير مقبول برمجيا. لكون الوظائف (Functions) لا تعيد إلا قيمة واحدة فقط.. ولا تعيد قيمة متعددة إلا إذا أعلنت عنها أنها من نوع (Type)! هذا هو السبب! ومع هذا كله يمكن إعادة استخدام النموذج وملؤه بالبيانات بطريقة أبينها لك وللأخ @sandanet يمكن أن تكون الطريقة بالنسبة للبعض أفضل من الوظيفة! إليكم الطريقة عن طريق محرر الشفرة افتح وحدة نمطية جديدة وسمها ما شئت (mdlForms)، ثم قم باضافة الشفرة التالية Dim UF As New Form_USysInputBox Sub UserDlg() On Error Resume Next '-- تعبئة البيانات متسلسة UF.Caption = "صلاحية الدخول" UF.lblPrompt.Caption = "فضلا أدخل اسم المستخدم وكلمة المرور" UF.lblInputOne.Caption = "اسم المستخدم" UF.lblInputTwo.Caption = "كلمة المرور" UF.OnClose = "=SetClose()" '-- اظهر النموذج UF.Visible = True '-- القيمة العائدة من مربع النص مباشرة Debug.Print UF.txtInputOne Debug.Print UF.txtInputTwo End Sub Function SetClose() Set UF = Nothing End Function

وعليكم السلام اختي واهلا وسهلا بك في المنتدى سأعطيك الطرق التالية لعمل المطلوب: 1. لا تعملي اي معيار في الاستعلام ، وسنطلب من البرنامج ان يفتح التقرير برقم Research_ID الذي تنقرين عليه (على نفس السجل ، سواء في النموذج الارئيسي او الفرعي)، وبالنظر الى الصور التي ارفقتيها ، ولأن ارقام حقل Research_ID في يمين الحقل (طبعا هذا اذا لم تقومي بعمل تنسيق له وعمل محاذاته لليمين) ، فهذا معناه ان الحقل نص وليس رقم اذا كان حقل Research_ID نص DoCmd.OpenReport "Report1", acViewPreview, , "[Research_ID]='" & Me.Research_ID & "'" واذا كان رقم DoCmd.OpenReport "Report1", acViewPreview, , "[Research_ID]=" & Me.Research_ID 2. اذا اردتي ان تضعي المعيار في الاستعلام ، فسيكون هكذا (طبعا غيري اسم Main_Form الى اسم النموذج الرئيسي ، و Sub_Form الى اسم النموذج الفرعي): Forms!Main_Form!Sub_Form!Research_ID 3. اذا عندك نموذج رئيسي لا يُغلق طول فترة البرنامج (سواء أكان ظاهر او مخفي) فلنسميه frm_Main ، فاعملي فيه حقل بإسم iResearch_ID مثلا، ثم اعملي الاستعلام على ان يأخذ معيار الحقل Research_ID من هذا الحقل ، وعلى حدث فتح التقرير ، سنرسل قيمة الحقل Research_ID الذي في النموذج الفرعي ، الى الحقل iResearch_ID في النوذج frm_Main ، والذي سيأخذ الاستعلام قيمته: Forms!frm_Main!iResearch_ID=me.Research_ID DoCmd.OpenReport"Report1" ,acViewPreview جعفر

طبعا لا يفتى ومالك فى المدينة ومالكنا هو استاذى ياسر خليل لكن بعد الاستأذان مرفق حل للملف بلعبة صغيرة على معادلة VLOOKUP ارجو ان يكون مفيد 8888.rar

وما هو الخطأ المسبب فى ظهور هذه الرسالة

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

السلام عليكم أرجو أن يكون هذا هو المطلوب New Microsoft Access قاعدة بيانات.rar

ريما يعجبك هذا الملف اذا كانت الخلية فارغة تستطيع ان تكتب فيها ما تشاء(دون دوبل كليك) واذا لم تكن فارغة يتطلب ذلك الاذن بواسطة كلمة المرور(موجودة بالملف و يمكنك حذفها بعد معرفتها) كل ذلك فقط بالجدول من H9:J33 Protect_Me.rar

اخي حسين لامشكلة فكل منا يحاول قدر المستطاع وعلى الله التوفيق

ان شاء الله .. الموضوع عبارة عن قص ولصق وتحديث بيانات جدول الصور

وانا اريد ان اربط قاعدة بياناتي مع سكان المريخ بنقرة زر واحدة

وفقكم الله

ممكن توضح اكثر استاذ عبدالله

كتاب رائع من عضو أكثر من رائع - جزاك الله عنا خير الجزاء

شكرا جزيلا

السلام عليكم أخي محمد كل سنه وانت بخير ان شاء الله انا جربت المرفق ، وحسب تجربتي كُله تمام ، حيث يحفظ الملفات بالتنسيق التالي ، مثلا: At_7_1.jpg At_7_2.doc ولما تضيف ملف جديد ، فيتم الترقيم التلقائي (لم يكن موجودا في النسخ القديمة). جعفر 207.4.m.salama.accdb.zip

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

ما شاء الله عمل ولا اروع جزاك الله خير الجزاء استاذ خالد

بارك اللة بيك وجعلة فى ميزان حسناتك

هذا رائع جزاك الله خيراااااااااااااااا

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