بركان

و عليكم السلام و رحمة الله و بركاته

اخوي شوف المرفقات

ان شاء الله تفيدك

db2.zip

عدلت على برنامجك

شوف المرفقات و ان شاء الله تفيدك

و يكون هو المطلوب

______.zip

و عليكم السلام و رحمة الله و بركاته

الحل يكون عن طريق الكويري

شوف المرفقات و ان شاء الله تفيدك

jobs.zip

الطريقة كالاتي

اضف Label الى الفورم و سمه باسم مثل Labelclock

في خصائص الفورم خاصية timerInterval اكتب فيها 1000

اضف الكود التالي الى حدث Timer في الفورم

Me.Labelclock.Caption = Format(Now, "day : dddd - date : yyyy/mm/d -- time : hh:mm:ss AMPM

غير : بدلا من day اكتب يوم و بدلا من date اكتب تاريخ , وبدلا من time اكتب الساعة

و ان شاء الله راح تشتغل الساعة على الفورم ويظهر اليوم و التاريخ و الساعة بالثواني تتغير

الطريقة كالاتي

اضف Label الى الفورم و سمه باسم مثلا Labelclock

في خصائص الفورم خاصية timerInterval اكتب فيها 1000

اضف الكود التالي الى حدث Timer في الفورم

Me.Labelclock.Caption = Format(Now, "day : dddd - date : yyyy/mm/d -- time : hh:mm:ss AMPM

غير : بدلا من day اكتب يوم و بدلا من date اكتب تاريخ , وبدلا من time اكتب الساعة

و ان شاء الله راح تشتغل الساعة على الفورم ويظهر اليوم و التاريخ و الساعة بالثواني تتغير

لقيت هذا الكود في احد المواقع الاجنبية

يعمل لوب على كل كنترول موجود على الفروم

و اذا مربع نص يتاكد منه انه مش فاضي

اعتقد راح ينفع

Dim ctl As Control

For Each ctl In Controls
If TypeOf ctl Is TextBox Or ComboBox Then
If Len(Nz(ctl.Value)) = 0 Then
MsgBox "please enter data " & ctl.name

Exit For
End If
End If
Next ctl

For Each ctl In Controls
If TypeOf ctl Is ComboBox Then
If Len(Nz(ctl.Value)) = 0 Then
MsgBox "please enter data " & ctl.name

Exit For
End If
End If
Next ctl

اذا احد عنده افكار ثانية ياليت يعلمنا

السلام عليكم

صممت فورم لادخال البيانات بس للادخال ما تعرض اي شي

و فيها أكثر من حقل تكسك بوكس بلاضافة الى كومبوبوكس

و فيه زر لما يخلص اليوزر ادخال البيانات يضغط زر اضافة البيانات

زر اضافة البيانات لازم يتاكد ان اليوزر ما نسى او ترك اي حقل موجود فارغ

و بعدين يدخل البيانات في القاعدة

المهم اذا دخلت سجل واحد كل شي اوكي

لكن بعد سجلين ثلاث سجلات يصير العكس

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

احيانا يدخل بيانات ناقصة و احيانا ما يسوي اي شي

ولما تغير ادخال البيانات ما يتاكد من كل حقل انه مش فارغ

اريد اعرف شو المشكلة في الكود

انا كتبت if is null لكل حقل علشان ما يكون فاضي بالاضافة الى is numeric للارقام

ارفقت كل شي بالمرفقات

ساعدوني جزاكم الله الف خير

db5.zip

السلام عليكم

اريد أسأل كيف اقدر اتحكم بمفتاح Shift

بحيث اذا ضغطت مفتاح Shift يطلب باسوورد و اذا صحيحة يشغل مفتاح Shift

فتقدر تشوف تصميم قاعدة البيانات

اما اذا غلط يغلق البرنامج كامل

فيه مشاركة لاحد الاخوان في المنتدى بس المشكلة فيها

انه اذا شغل مفتاح Shift مرة ، خلاص على طول راح يكون شغال

و يقدر اي احد انه يشوف القاعدة من داخل

انا اريد اتحكم فيها من البداية و يكون مفتاح Shift شغال بس لمرة واحدة

يعني على كل مرة تضغط Shift علشان تشوف تصميم القاعدة وكل شي فيها لازم تكتب الباسوورد

مشكور ياخوي

الحمدلله صار الي كنت اريده بالكود الي كتبته

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

السلام عليكم

عندي فورم فيها اثنين listbox

يعني a و b

ال Listbox الاولى فيها اختيارات لما تختار منها تنتقل الاختيار الى لل listbox الثانية

اريد اسأل كيف اعمل تفريغ أو مسح لل Listbox الثانية بعد ما اخلص اختيارات علشان

تكون فاضية و جاهزة لاختيارات جديدة

و جزاكم الله الف خير على مساعدتكم لي

مشكور اخوي

الحمدلله نجح الموضوع

و اسأل الله ان يكون في ميزان حسناتك

و الشكر موصول لكل الاخوان في المنتدى

مشكور اخوي حامل المسك على تواصلك

الي اريده كاتالي

شفت التقارير لما يكون فيها سجلات

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

و هذا ماله علاقة بال primary key

مثلا تقرير فيه مجموعة موظفين

اول عمود راح يكون رقم مسلسل يبدا من 1

بعدين العمود الثاني يكون الرقم الوظيفي و الي راح يكون ماله اي

علاقة بالرقم المتسلسل الموجود في اول عمود

مثل التالي

مسلسل الرقم الوظيفي الاسم

1 214-542-8 حسن

2 8-547-7 احمد

3 32-854-7 عبدالله

نفس الفكرة اريدها تكون على نموذج راح يعرض السجلات الناتجة من استعلام بشكل جدول tabular

فالمسلسل راح يكون تقريبا مثل العداد الي يزيد 1 كل مرة و كل سجل يطلع ياخذ رقم متسلسل

جزاكم الله الف خير ساعدوني

اخواني جزاكم الله الف خير

اي افكار ممكن تساعدني على حل المشكلة

اخوي حامل المسك جزاك الله الف خير على ردك

بس هذا مش الي انا بغيته

الموضوع كالتالي

عندي استعلام و تطلع النتائج (السجلات) على نموذج

انا اريد لكل سجل يظهر على النموذج يكون له رقم متسلسل بجانبه

على اعتبار ان ال primary key اصلا مش ترقيم تلقائي و يختلف و انا اصلا ما اريده يطلع

يعني تقدر تقول مثل فكرة counter و يبدا من 1

فكل سجل يطلع ياخذ رقم متسلسل قيمة ال counter الحالية

فكيف اقدر اعمل كذا

كل مواضيع الروابط فكرتها على اساس ان السجلات اصلا فيها ترقيم تلقائي

ياليت تساعدوني و جزاكم الله الف خير

السلام عليكم

اخواني جزاكم الله خير ساعدوني

عندي نموذج يظهر نتائج البحث (سجلات)

المهم انا اريد اضيف خانة رقم متسلسل للسجلات التي تظهر في النموذج

يعني ترقيم متسلسل للسجلات في النموذج

كيف اقدر اعمل هذا الترقيم

جزاكم الله خير ساعدوني

مشكور يا مشرفنا على حضورك

و جزاك الله الف خير على ردك

انا عندي مشروع وشغال عليه و كل التقارير اوكيه شغالة

شغالة ما عدا هذا التقرير يعني مثلا

البيانات الي في التقرير ممكن تكون ثلاث سجلات يعني ثلاث صفوف

يعني تقريبا نص صفحة يعني صفحة واحدة فقط

حاليا المشكلة التقرير راح يطلع الثلاث سجلات في صفحة

و يطلع صفحة زيادة بيضاء ما فيها اي شي

ليش هذي الصفحة الاضافية

انا مشيت على نصيحتك بس ما حلت المشكلة

ياليت تفيدوني بحل جزاكم الله الف خير

السلام عليكم

عندي تقرير يطلع البيانات بشكل ممتاز

بس فيه مشكلة انه البيانات تطلع في صفحة

و تطلع صفحات اضافية فاضية بدون داعي

مع ان البيانات الناتجة تكفيها حتى نص صفحة

لكن يطلع صفحات اضافية بيضاء

كيف احل هذه المشكلة بحيث انه ما يطلع هذه الصفحات

بس يطلع الصفحة الي فيها البيانات

جـــــــــــزاكــــــم الله خير ساعدوني

اخواني جزاكم الله خيرر على جهودكم

و الحمدلله لقيت الحل

استخدمت اللدالة cdate

فصار الكود كالتالي و اشتغل بدون error

 Int((Date - Cdate(DoB)) / 365.25

هذا الحل و اتمنى ان الكل يستفيد منه و لاينسانا من الدعاء

جزاك الله الف خير اخوي rdaas

عملت نفس الكلام الي قلته

بدون فايدة يطلع error في كل خانات العمود

شو الحل ياخوان ساعدوني الله يساعدكم

ياليت اخواني الاعضاء او اساتذتنا المشرفين جزاهم الله خير

يفيدوني في هذا الموضوع

انا اريد العمر ينحسب بشكل فوري على التقرير بناء على تاريخ الميلاد

الطريقة الي تكلم عنها اخوي iemad

تنجح على الفورم

بس ما نجحت في التقرير

ساعدوني جزاكم الله الف خير

مشكور اخوي iemad على ردك

بس نفس المشكلة يطلع error

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

مش على فورم لان على الفورم يشتغل بس على التقرير ما يطلع

و مشكور مرة ثانية و جزاك الله الف خير

و اتمنى من الي يعرف انه يعلمنا و ان شاء الله في ميزان حسناته

السلام عليكم

عندي تقرير يظهر بيانات الموظفين و يظهر تاريخ الميلاد لكل واحد

المهم الان في التقرير اريده يحسب العمر بناء على تاريخ الميلاد

انا اضفت مربع النص و حطيت فيه هذا الكود

Int((Now()-[dob])/365.25)

علشان يحسب العمر و dob هو تاريخ الميلاد الموجود في الجدول

لكن يطلع error و ما يحسب اي شي

ما دري شو الحل

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