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

السلام عليكم, وبارك الله بجهودكم, وموفقين سلفا

سؤال إلى الأخوة الأفاضل:
لدي نص, أريد كل جملة تنتهي ب "النقطة"  تكون تلك الجملة في سطر واحد
مثال:
لدي هذا النص:
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

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

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

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

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

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

22 hours ago, بسملة جمال said:

If IsNumeric(Text1) = True Then
MsgBox "قيمة رقمية"
Else
MsgBox "قيمة غير رقمية"
End If

 

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

16 hours ago, ابوخليل said:

هذا الكود يعمل 

If Text2 >= #8:00:00 AM# And Text2 <= #8:30:00 AM# Then
Text3 = #8:30:00 AM#
Else
Text3 = Text2
End If

 

db2.rar

ألف شكر لإهتمامك أستاذ أبو خليل الله يجعلها في ميزان حسناتك
بالمناسبة جربت هذا الكود , و ضبط معي

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

السلام عليكم

يا شباب عندي هال داتا بيز
حضور الأطفال
انا بدي إدخال ال 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