ledoledo

ايه المقصود بفراغ اخر سطر

شكرا استاذي ابوخليل ساعدتني كثيرا تحياتي لشخصك الكريم

الاخ الكريم ابوخليل لو بالامكان تعطيني كود الوصول لقيمة محددة اذا اردت مثلا عند الضغط على زر ان يذهب الاختيار الى العقدة التى تحمل القيمة 14 او القيمة التى بداخلها فكيف يكتب الكود ؟

اشكرك جدا استاذي العزيز

استخدمت هذا الكود Private Sub TreeView2_GotFocus() On Error Resume Next TreeView2.SelectedItem.BackColor = 16777215 TreeView2.SelectedItem.ForeColor = 0 End Sub

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

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

سلمت يداك استاذنا ابوخليل اشكرك جزيل الشكر هذا هو المطلوب تمام

من تنفيذ احد الزملاء بالمنتدي لعله طلبك تصدير جدول من اكسيل الى اكسيس.rar

راجع الملف المرفق هل هو طلبك ؟ نقل سجل من جدول الى جدول مع الغاء رساله التحذير.mdb

الأخوة المحترمين أساتذة الأكسيس السلام عليكم مطلوب مساعدتكم فى تعديل النموذج المرفق كالآتى : الطلب الاول : text1 تساوى القيمة المختارة فى الشجرة عند الضغط - بالكود بدون ربطها بالجدول الطلب الثاني : عند اختيار قيمة في الشجرة تظلل باللون الازرق وعند نقل التركيز يتغير لون الخلفية الى رمادى ، هل يمكن تغيير اللون الرمادى الى الازرق ؟ ولكم جزيل الشكر DB2.mdb

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

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

اشكرك الاخ الكريم محمد أبوعبدالله واعتذر عن التاخير في الرد

اشكرك استاذ أحمد الفلاحجى تحياتي

تحياتي الاخ الكريم المفترض انها مصفوفة تخزن قيم من جدول فى listbox Dim itms(400) As String Dim itm As Integer For itm = 1 To DMax("ItmNumber", "TItems") itms(itm) = DLookup("ItmName", "TItems", "ItmNumber =" & itm) List1.AddItem (itms(itm)) Next اريد تعويض عدد العناصر فى المصفوفة بعدد سجلات الجدول

السادة الخبراء كيف استبدل رقم 400 فى المصفوفة بعدد سجلات جدول معين كما في الكود بالاسفل لان البرنامج يعطي خطأ هل هناك مشكلة فى طريقة الكتابة Dim Z(400) As String Dim X As Integer Dim Z(Dcount("ItmNumber", "TItems")) As String Dim X As Integer

شكرا تم الحل d.accdb

السلام عليكم الاخوة الاعزاء خبراء الموقع استشارة بسيطة ليه المتغير مش بيزود واحد في كل مرة بضغط Option Compare Database Private Sub Form_Load() Dim X As Integer End Sub Private Sub Command0_Click() X = X + 1 Text1 = X End Sub d.accdb

اشكرك يا استاذنا تحياتي لحضرتك

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

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

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

السلام عليكم ورحمة الله وبركاتة الاخوة المحترمين عباقرة الاكسيل أرغب فى معادلة على الإكسيل تعطيني النتائج بالشكل التالى بفرض ان هناك كاشير يحاسب العملاء فى مطعم فيستلم مبلغ ويسلم العميل الباقى ، كيف أصنع معادلة تعطينى المبلغ النقدى الذى يدفعه العميل بناء على الفئات النقدية المعروفة ----------------------------------------------------------------------------------------------------------------- كمثال : اذا كان مبلغ الحساب هو 153 جنيه فإن العميل سوف يدفع 155 جنيه او 160 جنيه او 170 جنيه او 200 فقط مثال آخر : اذا كان مبلغ الحساب هو 118 جنيه فإن العميل سوف يدفع 120 جنيه او 150جنيه او 200 فقط فما هى المعادلة التى تستطيع ذلك علما بأنى جربت الدالة CEILING مع الفئات النقدية 5،10،20،50،100،200 لكن لم تستخرج نتائج بشكل صحيح فى جميع الحالات شكرا لهذا المنتدى الرائع استاذى الفاضل ربما لم اوفق فى شرح المطلوب لا اريد كم يساوى المبلغ من الفئات ولكن اريد معادلة تتوقع المبلغ المدفوع كما في الامثلة فى البوست حساب العميل مثلا 1236 جنيه اذا المتوقع ان يدفع 1240 - 1250 - 1300 - 1400 هذه هى فقط الاحتمالات لانها ترتبط بالفئات النقدية Book10.xlsx

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