POWER _GIRL

يعطيك الـــــــــــــف مليــــــــــــــــــون عافية :lol: Private Sub Form_Load() Text1.Text = GetSetting(App.EXEName, "Setting", "Text1", "Nothing") End Sub Private Sub Command1_Click() SaveSetting App.EXEName, "Setting", "Text1", Text1.Text End Sub يايرت تش…

شكرا اخي ويعطيك ربي الف عافيه على الايضاحات الحمد لله كلو تمام ولكن انا ما فهمت سطر DoEvents وأول مره يمر عليا ؟! لماذا كتبته.. :lol:

List4.Selected(List3.ListIndex) = True list4.AddItem "-----" list4.Clear تحيه للكل .............................................more question! i know هذا كود للLIST واكيد فهمتو طلبي اريد نفس العمليات لل DataCombo4 WHO !?

فالبدايه اشكرك على الشرح يعجبي اسلوب المعلم اوضحت لي نقاط كثيره انا استخدمت كودك مع الفهم واتخزنت البيانات وايضا ...تفاجأت بأن كودي ايضا قام بتخزين البيانات بعد حذف السطر الاخير منه وهوا سطر اغلاق rs بس مافهمت ايش الرابط..لان الاغلاق تم بعد العمليه؟ Set rs_TST…

ولا وصله البرنامج فيها يتحمل اخي hnhn :angry:

اخواني هذا الكود يبدأ من الساعه 12 وبعدين يزيد.... List4.AddItem TimeSerial(«hour», «minute» + tt, «second») tt = 1 + tt ولو اتكتب بهذا الشكل يديني تاريخ List4.AddItem Time+tt tt = 1 + tt كيف ازيد من الوقت الحال

أخي nasser 50001 شكرا لك عليك افكار تعجبني احب الخدع البرمجيه بس قاعده افكر فالكود :wacko: حشوف ايش يطلع معايا واعرضو هنا kafu Dear brother thanks 4 u feeling u code use with kyboard no't my answer ..but updown mmmmmm i need try code thanks اخي hnhn شكرا على ا…

تفضل.. pg_v.rar

يامبرمجين الداتا بيس ابغاكم تفهموني ايش الفرق بين استخدام DataCombox Combox انا جربت اخزن فيها البيانات لكن يطلعلي اول سجل بس!؟ انتوا عندكم خبره اكيد انا اول برنامج ليا ..........برجاء ابغا اتعلم.. هذا كودي Set rs_TST = New ADODB.Recordset rs_TST.CursorLocatio…

thanks man (",)

بسم الله الرحمن الرحيم بالنسبه لحذف جدول cn.Execute(Drop Table Table_Name) اما اعادة تسمية الجدول cn.Execute(Rename Table_NameNow To Table_NameNew) اما سؤألك الاخير فممكن عمل إضافه بعد الإنشاء للجدل Icn.Execute(nsert Into Table_Name1(Col1.....,....) 'حقول الجد…

ياريت توضيح للمكتوب فعلا....... Set rs_TST = cn.Execute("select SrvD_Name from ServicesDetails where SrvD_Name ='XXXXX'", adOpenKeyset, adLockOptimistic) MsgBox (rs_TST.RecordCount) أصبح لا يعطي اي قيمه!؟؟ ما العمل !؟؟

ممكن تشوفوا المثال! هوا يخزن فالتكست ولكن يبدأ من الصفر ..لا يقرأ من التكست!

مشكلتي اخي بإختصار اني اريد الاداه تعرض الوقت ولما تضغط الاسهم فوق وتحت يزيد الوقت وينقص + تحديد القيمه الجديده(تضليلها) ما ادري اذا في اداه افضل من ListBox وممكن تخدمني.. ان شاء الله تكون وضحت الصورة

هذا الشكل مقبول جدا . Thanks Visitor_OM B) ولكن انا اتساأل الان لما بنكتب في جمله SQL (call1+call2) as إسم مستعار العمليه ناجحه مع ان الحقل تخيلي وليس ضمن الجدول بمعنى ان العارض هنا هيا جمله IF يعني لو قنا خزن ممتاز للكل او اجمع حقلين موجودين راح تتنفذ... لكن …

السلام عليكم لماذا ناتج هذا الكود دائما -1 :wacko: Set rs_TST = cn.Execute("select SrvD_Name from ServicesDetails where SrvD_Name ='xxx'") MsgBox (rs_TST.RecordCount)

shearer thanks هذا طلبي بالضبط تقريبا حليت المشكله ولكن Set List1.DataSource = rs_TST List1.DataField = "Srv_Name" لم يضف هذا الكود شي لماذا ! لازم كود التكرار وكيف اقول المختار من الليست اضفها فالحقل SQL!

))يارب(( السلام عليكم..اخواني.. اريد انشاء ليست بوكس (يحوي شك بوكس) غير معلومه العدد لأن ظهورها معتمد على سجلات .. بمعنى انك لن تدرج على الفورم غير الليست بوكس وعند تشغيل البرنامج يضاف للليست بوكس شك بوكس بعدد سجلات الجدول المحدد :( help me

اخواني غيرت الكود الي List1.AddItem (Date + I) List1.Text = List1.List(I) I = I + 1 لكن احتاج لوضع شرط اذا ضغط سهم فوق يكون +i واذا ضغط سهم تحت يكون -i

العفو اخي وووووولكن لم تجب عن سؤالي :unsure: