سامر1972

1 ساعه مضت, ناقل said:

2 ساعات مضت, سامر1972 said:

شكرا لكم علي تواصلكم وردودكم

انا طلبي حساب تاريخ الميلاد من العمر

يعني عند كتابه العمر يظهر تاريخ الميلاد

تقصد السنة فقط مثلا شخص عمره ٢٠ يظهر تاريج ميلاده مثلا 2000 صحيح

لو اليوم والشهر يكون افضل

يعني عند كتابه 10 سنين وشهر و10 أيام يظهر تاريخ ميلاده

وشكر علي تواصلك

شكرا لكم علي تواصلكم وردودكم

انا طلبي حساب تاريخ الميلاد من العمر

يعني عند كتابه العمر يظهر تاريخ الميلاد

أريد طريقه لتحويل السن الي تاريخ ميلاد

يعني عند إدخال العمر يظهر تاريخ الميلاد

عايز أعمل في النموذج حقل متعدد القيم

من غير اي تغير في الجول

شكرا لك

في ١٩‏/٩‏/٢٠٢٠ at 23:16, محمد أبوعبدالله said:

في ١٩‏/٩‏/٢٠٢٠ at 23:05, سامر1972 said:

أين كانت المشكله

لديك قوس ناقص

تحياتي

شكرا اخي الفاضل

ممكن طلب اخر عتد جعل حقل ID في الجدول من نرقيم تلقائي الي رقم

مربع البحث لا يضيف البيانات الجديده

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

ومرفق البرنامج بعد تغير الحقل الي رقم

مدرسه جديد.rar

4 دقائق مضت, محمد أبوعبدالله said:

تفضل اخي الكريم

قاعدة بيانات1.rar 21.44 kB · 0 downloads

أين كانت المشكله

4 ساعات مضت, محمد أبوعبدالله said:

5 ساعات مضت, سامر1972 said:

بس لي تعليق عند نقل الكود الي اي برنامج آخر لا يعمل

لاني غيرت اسم مربع تحرير وسرد الى xxx

مرسل لك قاعده جديده تم نقل الكود لها ولا يعمل

123.accdb

5 دقائق مضت, محمد أبوعبدالله said:

32 دقائق مضت, سامر1972 said:

مرسل لك قاعده جديده تم نقل الكود لها ولا يعمل

لا يوجد مرفقات

قاعدة بيانات1.rar

4 ساعات مضت, محمد أبوعبدالله said:

5 ساعات مضت, سامر1972 said:

بس لي تعليق عند نقل الكود الي اي برنامج آخر لا يعمل

لاني غيرت اسم مربع تحرير وسرد الى xxx

مرسل لك قاعده جديده تم نقل الكود لها ولا يعمل

شكرا لحضرتك علي الاهتمام

بس لي تعليق عند نقل الكود الي اي برنامج آخر لا يعمل

الاخوه الافاضل

اريد كود للعمل عند كتابه اسم طالب في مربع لبحث xxxوغير موجود في جدول الطلبهtbl_name  يضاف الي جدول الطلبه  والنموذجstudent

مدرسه.accdb

شكرا لحضرتك 

تم حل المشكله

وشكرا علي المساعدهه

تم نقل الكود عندي ولكنه لا يعمل

school.accdb

1 ساعه مضت, محمد التميمي said:

من بعد اذن استاذ محمد

اخي سامر الكود الاول يعمل بامتياز وقد أضفت لك اربع محافظات

school.rar 27.64 kB · 1 تنزيلات

تم اضافه الكود الي اكسس عندي ولم يعلم

ومرسل القاعده بعد اضافه الكود

school.accdb

شكرا لك

ممكن شرخ الكود

شكرا لحضرتك ولاكن الكود لا يعمل

 Dim ctl As Control
   Dim strSQL As String
   Set ctl = Me!city

معنها

توضيح لها

28 دقائق مضت, محمد أبوعبدالله said:

تفضل اخي الكريم

Private Sub city_NotInList(NewData As String, Response As Integer)
   Dim ctl As Control
   Dim strSQL As String
   Set ctl = Me!city
   
   If MsgBox(" اسم المدينة" & " / " & _
   Me.city.Text & " / ليس ضمن القائمة هل تريد إضافته ", _
      vbOKCancel, "officena") = vbOK Then
      
      Response = acDataErrAdded
      
      strSQL = "INSERT INTO  tbl_city(city) VALUES('"
      strSQL = strSQL & NewData & "');"
      
      CurrentDb.Execute strSQL
      
      MsgBox "تمت الاضافة ", , "officena"
   Else
      Response = acDataErrContinue
      ctl.Undo
   End If
End Sub

school.rar 26.68 kB · 0 تنزيلات

تحياتي

عايز طريقه او كود عند اضافه اسم مدينه جديده في النموذجfrmtbl_student غير موجوده في القائمه يضافه الي القائمه والجدول tbl_city

school.accdb

في ١٠‏/٥‏/٢٠٢٠ at 22:20, فايز.. said:

لا يوجد ضمن الحقول في الجداول اسم الطبيب وتخصصه .. أين هي ؟؟ 

ممكن توضيح عمل الاستعلام والغرض منه والنموذا الفرعي والغرض منه  وطريقه عمل التقرير بالتفصيل ولكم جزيل الشكر

ممكن توضيح للاستعلأم والنمو ج والتقرير طريقه عملهم

طريقه لاضافه عنصر جديد الي  حقل (المواد المتفوق فيها) بدون فتح القائمه

ويضاف هذه العنصر الجديد الي القائمه

قاعدة بيانات1.accdb

الفرق بين القوائم المنسله في تصميم الجدول وتصميم النموزج

ومن الافضل في التصميم

2 ساعات مضت, kha9009lid said:

من خلال نموذج الادخال في حدث عند عدم الوجود في القائمة

ضع الكود التالي لاخينا الاستاذ @ابوآمنة

Dim strSQL As String, X As Integer
    X = MsgBox("هذة المدينة ليست من ضمن القائمة .. هل ترغب في إضافتها؟", vbYesNo + vbDefaultButton1)
    If X = vbYes Then
        strSQL = "Insert Into tbl_city (city) values ('" & NewData & "')"
        CurrentDb.Execute strSQL
        Response = acDataErrAdded
    Else
       Response = acDataErrContinue
    End If

عدلت اسم جدول اسماء المدن واسم المدينة الى الانجليزي

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

الملف مرفق

Database2111.accdb 436 kB · 5 تنزيلات

ممكن من سيآدتكم

تفسير الكود

ارجوا من سيادتكم حل لهذه الموضوع

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

Database2.accdb

10 دقائق مضت, فايز.. said:

لا بد من إضافة حقل خاص باسم الطبيب وكذلك التخصص .. 

أضف الحقل في الجدول الذي تريد ثم أرفقه 

اسم الطبيب ثابت والتخصص 

ولو احتجاجات نغير ممكن من التقرير من التصميم

ممكن من حضرتك عمل نموذج لدخول البيانات

نموذج لأول زياره ثم نموذج للزيارات الاخري للطبيب

1 ساعه مضت, فايز.. said:

لا يوجد ضمن الحقول في الجداول اسم الطبيب وتخصصه .. أين هي ؟؟ 

نفترض اسم الطبيب محمد أحمد محمود

والتخصص أخصائي باطنه

الاخوه الافاضل اريد عمل روشته من برنامج اكسس قيها اسم الطبيب وتخصصه ثابت

مع كتابه اسم المريض وتاريخ الكشف والعنوان  في راس التقرير

والادويه والجرعات وطريقه الاستخدام في التقرير

برنامج عياده.accdb