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

هل المطلوب اجمالي السنه الحالية فقط

اصنع في الجدول الخاص بالاشخاص مربع اختيار .... صع علامة صح للاشخاص الغير مرغوب في ظهورهم ....

انت وضع شرط للبرنامج لابد ان يكون رقم PC واحدة من الارقام الموجودة في الجدول الموجود في الصورة وفي حالة Text4 خالي تظهر الرسالة انت حدد ذلك للبرنامج Me![Text4] = DLookup("[Pc]", "[Table1]", "[Pc]=forms![Form1].[Text0]") Refresh If (IsNull(Forms![Form1]![Text4])) Or (Forms![Form1]![Text4] = "") Then MsgBox "Number not found", 48, "Attention" End If

طيب برنامجك جربته وكتبت في الرقم 100 واشتغل عادي ايش المشكلة

طيب ممكن ترفق لنا هذا التقرير

ما بها الرسالة هل تريد الغائها وعدم ظهورها ؟؟؟؟؟

التلقائي هو العمودي مالم تغيره أو تقصد برمجيا

استخدم هذا الكود ...... Private Sub Text0_Change() On Error Resume Next Dim L As Integer L = Val(Len(Text0.Text) - 1) If Not Trim(Text0.Text) = "" Then If IsNumeric(Text0.Text) = False Then Text0.Text = Mid(Text0.Text, 1, L): Text0.SelStart = Len(Text0.Text) End If End If End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) On Error Resume Next Select Case KeyAscii Case 48 To 57, 32 '(لإلغاء SPACE) KeyAscii = 0 End Select End Sub

مشاركه مع اخى واستاذى العزيز @kanory جزاه الله خيرا الافضل طالما هناك استعلام تجميعى ان تبنى النموذج عليه والخطأ لديك كان فى كتابه الداله فى الحقل وتصحيحه =DLookUp("Debit2";"[Sum_Sales_without_cash_Query]";"[date_of]='" & Format([date_of];"mm/yyyy") & "'") انظر للنموذج Sum_Sales_without_cash_Query المبنى على الاستعلام وللنموذج Table1 بالتوفيق New Microsoft Access Database.rar

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

جرب هذا البرنامج ربما يعمل معك Aclas2.rar

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

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

تفضل ولاحظ التعديلات : كونت لك استعلام ونموذج لاستخراج الاجمالي copy.accdb

انظر .....

يا عم @ابا جودى قبل مشاركة الكود هتاك مشاركة بها مثال أكسس مرفق مثالك بعد إضافة دالتي. Test TimeToLettre2.mdb

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

السلام عليكم أريد جمع في الجدول مجموع على حسب فحوصات د مجموع وحده ومجموع و وحده ومجموع ب وحدة ح وحده على حسب الجدول الأول moudef وشكرا مثال-1.accdb عدة الإستفادة أريد معها في جدول الجمع على حسب الحروف على حسب بلدية دائرة ولاية .....الخ

هذه المعادلة =SUMPRODUCT((LEFT($B$5:$B$19,LEN(E5))=E5&"")*($C$5:$C$19)) sumifs_1.xlsx

الشيء الأكيد هو أنني لن أستغني عنك فعندما أنتهي من برمجة هذا الميزان سوف أبدأ بالفكرة التي طرحتها أستاذنا فهي جد ممتازة

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

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

الكود تمام واصل هكذا اتمنى لك التوفيق

لماذا لا يمكنني التعديل على المشاركة السابقة؟! عموما هناك خطأ كتابي: فالسطر If hh = 1 Or 2 Then يعدل إلى If hh = 1 Or hh = 2 Then وهكذا للدقائق وللثواني

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

لا ضرورة لهذه الكمية من الأعمدة المدمجة (الملف يجب ان يكون كما في المرفق) الكود ما يجب ان يكون Sub Print_Selection() Dim Rng As Range Dim But As Worksheet Dim Source_sh As Worksheet Dim Where As Range ScreenOff Set But = Sheets("ورقة2") Set Source_sh = Sheets("ورقة1") Set Where = But.Range("B3") But.Cells.Clear Source_sh.Select '=============================================================== Set Rng = Selection If Rng.Cells.Count = 1 Then MsgBox "Please select a range in the sheet: " & _ Source_sh.Name End If 'Rng.Interior.ColorIndex = 4 Rng.Copy Where.PasteSpecial (xlValues) Application.CutCopyMode = False 'Rng.Interior.ColorIndex = xlNone Rng = vbNullString With But .PageSetup.PrintArea = _ .Range("B3").CurrentRegion.Address .PrintPreview 'Replace by .PrintOut End With Source_sh.Select '=============================================================== ScreenOn End Sub الملف مرفق Abou_Tiba.xlsm

شكرا لحضرتك استاذى الكريم تم تعديل الكود وتم العمل هل به خطا Private Sub TextBox1_Change() Dim ws As Worksheet: Set ws = Sheets("æÑÞÉ1") Dim lr, x lr = ws.Cells(Rows.Count, 3).End(3).Row For x = 2 To lr If TextBox1.Text = ws.Cells(x, 3).Text Then TextBox2.Value = ws.Cells(x, 4).Value TextBox3.Value = ws.Cells(x, 5).Value TextBox4.Value = ws.Cells(x, 6).Value ComboBox1.Value = ws.Cells(x, 7).Value Exit For End If Next x If TextBox1 = "" Then TextBox2.Value = "" TextBox3.Value = "" TextBox4.Value = "" ComboBox1.Value = "" End If End Sub جزاكم الله كل خير

جرب هذا الشيء sub PRINT_OUT Range("a1:f32").Printout end sub

الحمد لله رب العالمين ..... حياك الله

تعديل بسيط على الكود مع وضع معادلة مناسبة في العامود Z (يمكن اخفاءه) Private Sub CommandButton2_Click() Dim ws As Worksheet: Set ws = Sheets("inpout1") Dim lr As Integer Dim R, Ahe3b$, Hather$ Ahe3b = "غائب": Hather = "حاضر" ws.Range("w5:w500").ClearContents lr = ws.Range("b" & Rows.Count).End(xlUp).Row For R = 5 To lr ws.Cells(R, "W") = _ Choose(ws.Cells(R, "Z") + 1, Hather, Ahe3b) Next End Sub Khiri.xlsm

واذا عندك لوحة مفاتيح كبيرة ، فهذه ارقام ارقامها ، ويجب اضافتها للكود : Case 96 To 105 'numeric pad جعفر

اعتقد فكرة اخونا عمر هي استخراج المجاميع في جدول جديد لاظهارها في التقرير وطبعا يتم حذف بيانات الجدول بمجرد غلق النموذج ، بمعنى ان الفكرة هي اظهار البيانات لحظية مؤقتة قابلة للتغيير والتحديث بالزيادة او النقص . وهنا نستغني عن الجدول وايضا النموذج والأزرار والأكواد المصاحبة هذه الدالة المصنوعة تحقق المطلوب Public Function studentscount(ByVal i As Byte) Dim z As Integer If i = 0 Then z = DCount("[student_name]", "[student]", "[state_code]<3") ElseIf i = 1 Then z = DCount("[student_name]", "[student]", "[state_code]<3 and [school_code]=1") ElseIf i = 2 Then z = DCount("[student_name]", "[student]", "[state_code]<3 and [school_code]=2") ElseIf i = 3 Then z = DCount("[student_name]", "[student]", "[state_code]<3 and [school_code]=3") Else End If studentscount = z End Function ويتم نداءها داخل الحقل سواء في النماذج او التقارير هكذا : للمجموع الكلي = studentscount(0) الابتدائي = studentscount(1) المتوسط = studentscount(2) الثانوي = studentscount(3) وهذا المرفق : إحصاء2_2003.rar

هذا الماكرو Private Sub CommandButton2_Click() Dim ws As Worksheet: Set ws = Sheets("inpout1") Dim lr As Integer Dim R, Ahe3b$, Hather$ Ahe3b = "غ": Hather = "حاضر" ws.Range("ai5:ai500").ClearContents lr = ws.Range("b" & Rows.Count).End(xlUp).Row For R = 5 To lr If ws.Cells(R, "B") <> vbNullString Then If Application.CountIf(ws.Cells(R, "H").Resize(, 15), Ahe3b) >= 6 Then ws.Cells(R, "AI") = "غائب" Else ws.Cells(R, "AI") = Hather End If End If Next R End Sub

في الخلية D3 اكنب هذه المعادلة واسحب نزولاُ =DATE(YEAR(B3),MONTH(B3),DAY(B3)+C3) abdo.xlsm

رائع اخى ابو القاسم ان شاء الله ينتظرك مستقبل رائع

اتمني يكون المطلوب ملف التوازيع (1).xlsm

وعليكم السلام الأفضل من إرفاق صورة أن ترفق ملف .. تقبل تحياتي

السلام عليكم ورحمة الله أخي الكريم، هذا حل آخر بتعديل المعادلات وإضافة "عمود إضافي" العمود G (بمعادلات) في كل من ورقتي الغياب (AbsenceProf و AbsenceEleve) أرجو أن يفيدك في عملك ويفي بالمطلوب.... بن علية repport help++.rar

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

السلام عليكم ورحمة الله وبركاته أخي الفاضل حفظك الله أليك هذا المرفق للأستاذ الفاضل عمر الحسيني حفظه الله وأطال الله بعمره وبارك له في ولده. أبو أنس IFYes.rar

أنسب شىء لما ذكرت برنامج google desktop هو طبعا مجانى حمله من هنا http://www.filehippo.com/download_google_desktop/download/f268ed17b64ecae556bd6624a25c0a46/

هناك برنامج يقوم بذلك و لكنه ليس مجاني و يتيح ايضا الاستبدال و هناك نسخ منه لكافة تطبيقات الاوفيس و نسخة عامة الوورد http://www.replacemagic.com/RMWordEdition.aspx العام http://www.replacemagic.com/ReplaceMagicVersions.aspx?gclid=CLv5uqj086wCFcwMtAodPV48Rw و ان كان الهدف مجرد البحث فالويندوز يتيح لها ما تريد مباشرة دون برامج ( البحث بكلمة داخل الملف )

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته الاساتذة الاجلاء يعلم الله اني لم اقصد ما وصل اليكم ولا ادري كيف تمت ترجمة كلامي على تحفيزكم للمبارزة كل منكم للاخر واشهار سيف العلم في وجه زميله بل كنت اقصد ومازلت اقصد اشهار سيف العلم في وجه الاكسيل وانا اتفق تماما معكم في ان الاكسيل بحر ما اوسعه ولا حدود له ومخطئ من اعتقد انه قادر على كل مافيه ولو لاحظتم ان لي اضافة في ذات الموضوع وقبل ردكم في الساعة 8.3 م اى قيل رد اى من حضراتكم دونت فيها اعتذاري عن استخدام لفظ التحدي وعنوان الموضوع كان تحدي الاكسيل للبشر وليس تحدي البشر للبشر واعتذر مرة اخرى وفي انتظار مساعدتكم هاني بدر اما عن رابط الموضوع فيمكن مشاهدته على الرابط التالي http://www.4shared.com/file/sjwfqUuF/Test_Icome.html وهنا رابط الملف الاصلي http://www.officena.net/ib/index.php?showtopic=33048&st=0&p=170791&hl=مشروعات%203&fromsearch=1&#entry170791

السلام علكيم اساتذتي الكرام صار معي مشكل في الوحدات النمطية فأصبحت فارغة واصبح البرنامج بدون اي حدث فكيف العمل لإسترجاع ما تم حذفه ارجو المساعدة اساتذة في عمل السنين ذهب بسبب مشكل لا اعرف سببه 2021.rar

السلام عليكم - query هل هناك طريقة لايقاف وميض الفورمات اثناء العمل خصوصا بعد الاستعلام وكذلك اذا كان هناك صور خلفية للفورم ما اقصده هو form echo application echo مع العلم اني قمت بايقاف هذه الخاصيات في الكود ولكن لم يتوقف وميض التطبيق docmd.echo false application.echo false ولكم الشكر

وعليكم السلام 🙂 لأسف جميع محاولاتي فشلت ، فأنصحك الرجوع الى النسخ الاحتياطية واستيراد هذ الوحدات النمطية منها. جعفر