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

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

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

Just now, محمد أبوعبدالله said:

السلام عليكم

تفضل اخي الكريم

Dim Z As String
Z = (DCount("ItmNumber", "TItems"))

تحياتي

تحياتي الاخ الكريم

المفترض انها مصفوفة تخزن قيم من جدول فى 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

Just now, Barna said:

هذه طريقة بدون اكواد .... انظر 

DB1.accdb 968 kB · 1 download

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

السلام عليكم ورحمة الله وبركاته

الاخوة خبراء المنتدى الكرام ارجو التعديل على الملف المرفق

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

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

المفترض ان يبدا من السجل الذي قيمته 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

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