خليل خليل داماس

السلام عليكم, وبارك الله بجهودكم, وموفقين سلفا سؤال إلى الأخوة الأفاضل: لدي نص, أريد كل جملة تنتهي ب "النقطة" تكون تلك الجملة في سطر واحد مثال: لدي هذا النص: As a result, farmers still got enough water, but the Little Aral started filling. Since 2005, the average depth has increased from 30 to 40 metres. The fish have started to return. So has the fishing industry. A lot of money has saved a small part of the Aral Sea. But if those planners had thought more carefully, perhaps they would have killed the project. If they had, this environmental disaster would never have happened! اريده أن يكون بهذا الشكل: As a result, farmers still got enough water, but the Little Aral started filling. Since 2005, the average depth has increased from 30 to 40 metres. The fish have started to return. So has the fishing industry. A lot of money has saved a small part of the Aral Sea. But if those planners had thought more carefully, perhaps they would have killed the project. If they had, this environmental disaster would never have happened! ولكم خالص الدعاء, وجزيل الشكر

السلام عليكم أنا عملت ربط قاعدة بيانات أكسس مع Google sheets عن طريق ال ODBC ولكن الدرايفر غير مجاني شهر واحد فقط وهو: https://www.cdata.com/drivers/gsheets/odbc/ سؤالي: هل هناك درايفر مجاني غير ال "CDATA" يستطيع ربط قاعدة البيانات بال Google sheets ولكم جزيل الشكر

السلام عليكم كل عام وأنتم بألف خير و ينعاد عليكم بالصحة و الخير و البركات ألف شكر لكل الردود : الأخ علي و الأستاذ محمد والاخ جعفر وبارك الله في جهودكم أود أن اعتذر من الأخ جعفر على تأخري في الرد عليه بالنسبة لكود الأخ جعفر جهد جبّار و بارك الله فيك انا عملت شي مختلف شوي بتمنى ينال إعجابكم والطريقة هي انه عند الحدث "SelectionChange" يتم استدعاء المفتاح {BS} او {BackSpace} و بالتالي الكود الذي طرحته انا يعمل وإليكم المثال بالمرفق أتمنى من الأخوة الأفاضل تجربة الملف ولكم كل الشكر و التقدير Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Target.valuse = "" Then MsgBox "Oops!" & vbCrLf & vbCrLf & "You can't leave the cell . . . . . . it's empty", vbCritical Target.Select End If End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error Resume Next Call SendKeys("{BS}", True) End Sub Test.rar

بارك الله فيك أستاذ محمد وألف شكر ليك وللأستاذ علي حاول الإنتقال من خلية إلى أخرى ستجد ان الرسالة تظهر في حالة الخلية السابقة فارغة أو غير فارغة, وليس هذا المطلوب اما في نموذج أكسس فلا فقط عندما يكون الحقل الذي انت فيه فارغ وتحاول الإنتقال إلى حقل آخر تظهر رسالة انه يجب عليك إملاء الحقل ويعود التركيز إلى الحقل الفارغ حاولت مرارا ان اجد الحدث عند الخروج من خلية "Event on Exit" في ورقة العمل ولم اجد فقط هنالك Worksheet_Change worksheet_selectionchange لدي مثال آخر عندما أحدد النطاق في ورقة العمل وليكن العمود A:A وعند ادخال البيانات في هذا العمود بمجرد إدخال قيمة مكررة تظهر رسالة أنه قد تم إدخال هذه القيمة مسبقا فيتم الغاء القيمة المكررة ويرجع التركيز إلى الخلية التي كتبت فيها القيمة المكررة. وهنا ليس نموذج بل ورقة عمل في اكسل. ودمتم

من فضلك اخ علي شوف في المرفقات ملف أكسس حاول الخروج من الحقل Text0 وهو فارغ وشكرا aa.rar

ألف شكر لردك السريع وجزاك الله كل خير أخ علي طلبي هو : الحدث عند الخروج من حلية معينة مثلا: انا كنت في الخلية A1 فإذا أنا كتبت فيها شيئا حرف أو رقم لا تظهر اية رسائل تنبيه وإذا تركتها فارغة وانتقلت الى A2 او B1 تظهر رسالة تنبهني ان الخلية السابقة فارعة ويرجع التركيز إلى A1 ولكم كل الشكر

السلام عليكم كل التوفيق لهذا المنتدى الرائع و القائمين عليه لدي سؤال: أريد رسالة تنبثق عند الخروج من خلية فارغة في ورقة العمل في إكسل عملت ملف مرفق ولكن هذا الملف يعمل عند تفريع الخلية و ليس عندما تكون هي بالأصل فارغة. Private Sub Worksheet_Change(ByVal Target As Range) If Target.Value = "" Then MsgBox "Please fill the cell before you leave", vbCritical, "Warninng" Target.Select End If End Sub وشكرا مسبقا Test.rar

ألف شكر للجميع بما يقدمونه

الله يوفق الجميع

سلمت يداك اله يجعلها في ميزان حسناتك

بارك الله بمجهودك

ألف شكر على القائمين و المشاركين في هذا المنتدى

شكرا لمرورك الطيب و رمضان كريم أنا قصدي من النطاق : مثلاّ عندي إثنان من ال TEXTBOX TEXT1 , TEXT2 فإذا كان TEXT1 ينتمي إلى المجال العددي من 50 حتى100 عندئذ يكون ال TEXT2 يساوي 80 و إذا كان ال TEXT1 خارج هذا المجال يكون ال TEXT2 يساوي10 هنا كيف يمكن التعبير برمجيا أن ال TEXT1 ينتمي إلى المجال العددي ليس المطلوب إظهار MsgBox و شكرا

ألف شكر لإهتمامك أستاذ أبو خليل الله يجعلها في ميزان حسناتك بالمناسبة جربت هذا الكود , و ضبط معي On Error Resume Next If (Text2 > #8:30:00 AM#) Then Text3 = Text2 ElseIf (Text2 < #8:00:00 AM#) Then Text3 = Text2 ElseIf (Text2 >= #8:00:00 AM#) Then Text3 = #8:30:00 AM# ElseIf (Text2 <= #8:30:00 AM#) Then Text3 = #8:30:00 AM# End If ألف شكر لك مرة أخرى بصراحة لا أعرف برمجيا كيف يمكن التعبير عن هذه الجملة : "إذا كان المربع النصي, ينتمي إلى المجال العددي , افعل كذا, وإذا لا ,افعل غير ذلك ." ألف شكر إلك مرة أخرى

السلام عليكم كل الشكر لهذا المنتدى الرائع و القائمين عليه و رمضان كريم عندي هذا الفورم لدي 2 TextBox Text2 , Text3 من نوع Date عندما تكون Text2 >=8.30 AM And Text2 <= 8.30 AM أي أن النطاق نصف ساعة , من الساعة الثامنة إلى الساعة الثامنة و النصف حينئذ Text3 = 8.30 AM غير ذلك Text3=Text2 انا حاولت على الشكل التالي : Private Sub Text2_Exit(Cancel As Integer) On Error Resume Next Dim t1 As Date For t1 = #8:00:00 AM# To #8:30:00 AM# If Text2 = t1 Then Text3 = #8:03:00 AM# Else Text3 = Text2 End If Next t1 End Sub و دون جدوى و حاولت أيضا Private Sub Text2_Exit(Cancel As Integer) On Error Resume Next If Text2 >= 8.00.00 AM And Text2 <= 8.30.00 AM Then Text3 = #8:03:00 AM# Else Text3 = Text2 End If End Sub و أيضا بلا فائدة و لكم جزيل الشكر Database1.rar

الشكر لكم جميعا ( الأخ جعفر و الأخ رمهان و الأخ co2002co ). ولمروركم الطيب كان سؤالي : عند إنشاء قاعدة بيانات عن طريق السيكوال. واجهة المستخدم (واجهة إدخال البيانات), إذا كانت بإمتداد html تكون أسرع. و بالتأكيد تكون متصلة بالسيرفر أما إذا عن طريق - مثلا ال C# - تكون واجهة المستخدم بإمتداد EXE الكثير من مبرمجي السيكوال ,يقولون أن قاعدة البيانات تم إنشاؤها, بالسيكوال, و واجهة المستخدم, HTML سؤالي كيف يكون ذلك. السيكوال بواجهة HTML و لكم جزيل الشكر

السلام عليكم الله يعطيك الصحة و العافية عندي سؤال خارج الأكسس, لو تكرمتم أنا عم علّم حالي السيكوال سيرفر ولكن شوي مرتبك, بموضوع : واجهة السيكوال بمعنى : مثلا الأكسس فيه الجداول و الإستعلام و النماذج و التقارير واجهة المستخدم في الأكسس هو النموذج أما في السيكوال ..... فهو يفتقر إلى هذه النقطة لذلك نلجأ إلى ال Visual Studio او ASP.NET سؤالي : أي من هذه البرامج تفضل أن تكون واجهة للمستخدم بالنسبة لي : في شخص خبرني أنو ال HTML أفضل شي , ليكون واجهة للمستخدم بالنسبة للسيكوال جزاكم الله كل خير

انا وجدت الحل يا شباب و هو انا نزيل الخط الفاصل في الوورد "Enter" و بعد ان أزيل الخط في كل الصفحة ,أنسخه إلى ملف الأكسل http://texthandler.com/?module=remove_line_breaks_word

السلام عليكم عندي جدول في الوورد ,و عند نسخ هذا الجدول إلى الأكسل تظهر سطور جديدة في الأكسل أي أن عدد الأعمدة و السطور في الأكسل أكثر من عدد السطور و الأعمدة في الوورد كيف يمكن نقل الجدول من الوورد إلى الأكسل مع المحافظة على عدد السطور و الأعمدة و لكم جزيل الشكر Test.rar

السلام عليكم يا شباب عندي داتا بيز بسيط, تظهر هذه الرسالة : Run-time error 2424 The expression you entered has a field, control, property name that Microsoft Access can't find.

السلام عليكم يا شباب عندي هال داتا بيز حضور الأطفال انا بدي إدخال ال id الخاص بالطفل . و لكن بشرط : أن يكون عمر الطفل يتراوح بين الأربع سنوات و الست سنوات و 11 شهر يعني : ممكن أنا أدخّل قيمة لل id و تطلع خارج القيمتين السابقين. في هذه الحالة تظهر رسالة أن القيمة غير مقبولة https://drive.google.com/open?id=0B61zrCspY6zRYnVZWWh2aENlUkk انا رفعت الملف ل google بسبب الحجم 4 ميغا

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

ألف شكر ليك يا غالي الآن الأمور تمام الله يجزيك الخير

السلام عليكم لدي داتابيز: فيع ثلاث جداول: واحد لأسماء الموظفين : Staff و الثاني لليومي : Daily الثالث : للحضور : Attendance و علاقة : one to many الجدولين : Daily , Staff هما الرأس, و الجدول Attendance هو الأطراف . و عملت استعلام بين الجداول الثلاث . و اسمه : Q_Attendance و عملت من ذلك الإستعلام فورم . و اسمه Attendance و أنشأت فورم من الجدول Daily و سحب و إفلات للفورم Attendance إل الفورم الجديد. بمعنى الفورم Attendance هو النموذج الفرعي للرئيسي Daily الآن : ننقر على : have we work today في أعلى النموذج الرئيسي لكي يتم إختيار اليوم الذي فيه العمل . عند إدخال قيمة رقم الموظف ,في النموذج الفرعي تظهر باقي بيانات الموظف . السؤال : كيف يمكن منع التكرار في النموذج الفرعي, في نفس اليوم فقط بمعنى, لا يمكن أن يداوم الموظف ذو الرقم " 1 " في نفس اليوم أكثر من مرة, و لكن يمكن أن يداوم في اليوم التالي و لكم جزيل الشكر waz-ww.rar