صالح حمادي

الله يحفظك أخي أحمد للأسف العمل أخذ منا كل شيء

السلام عليكم 117.mdb

تفضل DATA14.mdb

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

نعم. سوف نضطر إلى تتبعهم لأن ميكروسفت أعلنت على موقعها الرسمي إزالة الدعم عن أوفيس 2007 و أوفيس 2010

اطلع على هذه المشاركة ربما تجد بها ما ينفعك إن شاء الله

السلام عليكم هذا هو المثال و قد استخدمت الكود التالي لعرض الصفوف المحددة على شكل رسائل مع تعديل خاصية متعدد التحديد لمربع القائمة إلى عادي On Error Resume Next Dim i If Me.list_facture.ItemsSelected.Count = 0 Then MsgBox "لم يتم تحديد أي عنصر" Exit Sub End If For Each i In Me.list_facture.ItemsSelected MsgBox Me.list_facture.ItemData(i) Next i تحديد متعدد.mdb

إن شاء الله عندما أكون أمامي جهاز الكمبيوتر أخي

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

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

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

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

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

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

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

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

شكرا جزيلا إخوتي على المرور الطيب

السلام عليكم و رحمة الله تعالى و بركاته لقد لفت إنتباهي عند تصفح المنتدى مجموعة أسئلة تدور حول نقل التركيز إلى سجلات نموذج فرعي. و استخدام أكواد طويلة بعض الشيء لحل هذه المشكلة. فقررت أن أكتب هذا الموضوع لأضع الطريقة التي استخدمها فهي قصيرة و سريعة أولا: الانتقال إلى سجل معين حسب ترتيبه نستخدم هذا الكود Me.sub1.SetFocus DoCmd.GoToRecord , , acGoTo, Me.txt2 بحيث sub1 هو اسم النموذج الفرعي و txt2 هو اسم مربع النص الذي نكتب فيه رقم ترتيب السجل أولا: الانتقال إلى سجل معين من خلال البحث عن اسمه نستخدم هذا الكود Me.sub1.SetFocus DoCmd.SearchForRecord , , acFirst, "[first_name]='" & Me.txt & "'" txt هو المربع الذي نستخدمه للبحث الانتقال الى سجل فرعي.accdb

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

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

السلام عليكم تابع هذا الموضوع

لا يمكن لأنه لا نستطيع قراءة بيانات الصورة و الله أعلم

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

السلام عليكم ونداوز عربي أوفيس عربي النتيجة مع الفاصلة المنقوطة صحيحة في جميع حالات لوحة المفاتيح النتيجة مع الفاصلة غير صحيحة في جميع حالات لوحة المفاتيح تعطي سطر واحد

الفضل لله أولا ثم لك أنت أيضا لأنك أتممت الإجابة و هذه طريقة ثانية لإضافة القيمة لقائمة منسدلة Dim frm As Form Dim fc As Control Set frm = Me For Each fc In frm.Controls If fc.ControlType = 104 Then Me.combo1.AddItem (fc.Name) End If Next fc Set frm = Nothing