MR^King

السلام عليكم ورحمة الله وبركاته اخي ضع أكوادك داخل تايمر واجعل قيمة الـ Interval تساوي 1000 واجعل قيمة Enabled = False ثم تحت زر الأمر اكتب الامر التالي Timer1.Enabled = True وبذلك سيعمل التايمر بمجرد الضغط على زر الامر أرجو أن يكون ذلك هو المطلوب بالتوفيق ===…

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

Up Still need help

السلام عليكم ورحمة الله وبركاته أخي هناك طريقتين لعمل التقرير 1 - ربط التقرير بالجدول مباشرة 2 - ربطه بناء على جملة استعلام فأمامك احد الخيارين وهذا يتم تحديده في البداية قبل البدء في عمل التقرير وهناك طريقة اخرى وهي انشاء جدول Temp وتربط التقرير به من الفيجوا…

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

السلام عليكم ورحمة الله وبركاته اخي الكريم اغلاق الـTask Manager يتم بطريقتين (ربما يكون هناك طرق أخرى ) أولا عن طريق وضع قيمة في الريجستري ولكن أعتقد ان هذه الطريقة تحتاج لصلاحيات على الويندوز الطريقة الثانية وهي تعمل عن طريق تايمر يكشف على العنوان المكتوب في…

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

السلام عليكم ورحمة الله وبركاته أخي كومفورت أولا قم بفتح الجدول باستخدام الصيغة العادية RS.Open "SELECT * from Emp_Absent", CN, 1, 2 RS.MoveFirst ثم جرب البحث باستخدام الكود التالي : Dim X As String Dim Z As String X = Text1 Z = DT1 Do While Not RS.EOF If X = …

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

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

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

السلام عليكم ورحمة الله وبركاته اخواني تواجهني ايضا مشكلة شبيه ولكن هي: ان الاتصال سيتم بدون مشاكل ولكن في كل مرة اريد عرض البيانات يقوم الكريستال بسؤالي عن كلمة المرور فما الحل في هذه المشكلة ؟ وشكرا

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

السلام عليكم ورحمة الله وبركاته أعتقد يا اخي ان سبب المشكلة هو أنك نسيت ان تضع الـ Single Qoutations في جملة الاستعلام وربما سبب عدم ظهور رسالة خطأ هو انك استخدمت On Error Resume Next عموما جرب وضع الكود بهذا الشكل وتأكد من الاستعلام عن بيان موجود فعلا وانظر ا…

السلام عليكم ورحمة الله وبركاته شكرا على المثال وهو بالفعل جيد مع العلم ان هناك أداة جاهزة لعمل ذلك وهي أداة اسمها ChoiceList

السلام عليكم ورحمة الله وبركاته اختي الكريمة لقد ذكرت "لوحة التحكم " يعني الـ Control Panel وليس لوحة المفاتيح وكل ما يلزم هو تغيير اعدادات صيغة التاريخ وهي كالتالي Control Panel ==>> Regional and Languages Options ==>> Customaize ==>> Date ومنها غيري الـ Cale…

السلام عليكم ورحمة الله وبركاته شكرا اخي الكريم على ردك وكده تمام الحمد لله مشكلتي اني لم أتعمق في استخدام كريستال ريبورت 10 هناك شئ آخر وهو ظهور الأرقام بالصورة اللاتينية مع اني غيرت نوع الخط والـ Currency في الكريستال وظهرت الارقام بالصيغة العربية ولكنها في …

السلام عليكم ورحمة الله وبركاته اخواني سؤالي هو عن كيفية عرض تاريخ اليوم والوقت ( كل على حدة) في التقرير فكرت في حل من خلال الفيجوال بيزك وهو يمكن تطبيقه ولكن أعتقد ان هناك طريقة افضل من خلال الكريستار نفسه فياريت اللي يعرف يفيدنا ولكم جزيل الشكر :) ==========…

السلام عليكم ورحمة الله وبركاته اخي العقيد حضرتك نسيت تضع الفورم اللي فيها الاكواد :D

السلام عليكم ورحمة الله وبركاته اخي لاحظ ان اسم الزر هو File1 وحضرتك كاتب في الكود Text1.Text = File1.FileName لا بد من تغيير اسم الزر كما يجب وضع اداة Common Dialog Control وتجعل اسمها File1 وان شاء الله يشتغل معاك بالتوفيق ============= الى اللقاء