عبدالجليل العقوري

السلام عليكم CommonDialog1.DialogTitle = "نسخ" CommonDialog1.Filter = "database file*.xlsx|*.xlsx|allfiles *.*|*.*" CommonDialog1.CancelError = True CommonDialog1.ShowSave If Len(CommonDialog1.FileName) = 0 Then Exit Sub If Trim(App.Path & "\elaquori.xlsx") = …

السلام عليكم ان شاء هذا الكود يفي بالغرض ولكني لااملك vb.net حاليا على هذا الجهاز وعملتها لك vb6 واعتقد انها ستنال اعجابك ولكن طلب بسيط لان سرعة العمل الزمتني هو بعد ان تنزل المشروع من النت الرجاء وضعه في جهازك على المسار D Program1.rar ادعوا لنا بالتوفيق

السلام عليكم هذا هو كود الترقيم التلقائي وتوجد ملاحظات كثيره حول الترقيم التلقائي يجب ان تكون بالحسبان اتمنى ان تحاول وتجرب ثم تسئل لتعيش المشكلة وتجرب طعم حلاوه الحل project.rar وبالتوفيق ان شاء الله

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

السلام عليكم اخي Iraheema جرب هذا الحل Private Sub Form_Load() Text1.Text = "" Text2.Text = "" End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text2.SetFocus End Sub Private Sub Text1_LostFocus() Dim str, strall As String str = Te…

السلام عليكم جرب الكود التالي وان شاء الله امورك تمام بس خلي حقل الترقيم في قاعدة البيانات نص وانا عملت لك ترقيم يبداء من 00001 الى 99999 وممكن تزيده Dim rs As New ADODB.Recordset Dim STCOUNT As String SQLS = "SELECT itm.imt_ctr FROM itm order by imt_ctr" If r…

السلام عليكم الاخ ابوزيد ردا على اقول لك ليس في اللغة شيئ اسمه (يسر الله جاجتك ) فيه (يسر الله حاجتك ) والكل بيغلط ومشيها وكل عام وانتم بخير

السلام عليكم طيب اخي بدل النص Text2 = "all i love" ضع النص الجديد بدل الفراغ في النص Text3 = ""

تم الارسال

السلام عليكم Private Sub Command1_Click() Text3.Text = Replace(Text1.Text, Text2.Text, Text3.Text) End Sub Private Sub Form_Load() Text1 = "hello all i love php" ''النص المراد البحث فيها Text2 = "all i love" 'النص او الكلمة المراد البحث عنها في النص السابق Tex…

السلام عليكم عندما قلت متغير منطقي فانا اعرفه true أو false وهذا ما عملت عليه عندما وضعت الجمله الشرطية والتجربة التي قمت بها ونجحت معي هي باختبار قيمة الحقل والذي عرفته ب Yas or no ولكن في حالتك كما قلت عرفت الحقل bit وبالتالي سيكون عليك تغيير الكود بالصورة ا…

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

السلام عليكم اخي الكريم والله العظيم عملت لك مشروع صغير والامر شغال عندي 100% ولكن عندي مشكلة في ارفاق الملفات فزر ارفاق الملف يظهر ثم يختفي بسرعة ولكن اريد ان اتاكد هل انت متأكد من ان اسم الحقل هو done1 وليس هو الفورملا وهل تعريف الحقل في قاعدة البيانات هو Ya…

السلام عليكم انا اسف لعدم وضوح الكود ولكن اسم الحقل يجب ان يكون بالصورة التالية if { اسم الحقل.اسم الجدول}=false then "لا" else "نعم" ويفضل ان لاتكتب اسم الحقل بل اختاره من قائمة Report Fields بالتوفيق

السلام عليكم ان كنت تقصد تغيير رصيد الصندوق مثلا صندوق أجبان Xيحتوي على 20 قطعة ثم تم استلام صندوق أجبان من نفس النوع X ولكن يحتوي على 25 قطعة تعتبر هذه من اكبر المشاكل التي تواجهه المبرمج وكذلك البيع بالصندوق وبالقطعة من نفس الصنف وكيف يتم احتساب الرصيد وإظها…

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

السلام عليكم اتمنى ان اكون قد وفقت فيما تريد

السلام عليكم يمكن ان تستخدم الطريقة الاتية : اعمل Formula جديدة وسميها مثلاً Donefild انقر على ال Formula الجديدة بزر الماوس الايمن واختر منها Edit Format واكتب الكود التالي if {اسم الحقل}=false then "لا" else "نعم" واخبرني بالنتيجة وبالتوفيق

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

السلام عليكم لقد جربتها على 2008 واشتغلت تمام ومش عارف ليش تبحث عنها اذا كان المراد معرفة الفرق بين تاريخين جربها كما في الكود التالية لمعرفة الفرق بالشهور مثلا Dim DD As Integer DD = DateDiff("M", DateTimePicker1.Value, DateTimePicker2.Value) وبالتوفيق