رمهان

جرب ان تذهب لخصائص الجدول وهو في حالة عرض التصميم 

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

بالتوفيق

سياره ام طياره ؟

ساذهب للدوام وللتسوق بالسياره ... ساسافر بالطياره 

تحياتي

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

ابشر ساقوم بالتجربه متى اتيح لي جهاز عربي 

تحياتي

حيا الله الجميع وكل عام وأنتم بخير

ممكن ادخل شرط اخر وبالعامل and  الاجابه بنعم في الرساله مع عدد السجلات 

هذا ان احسنت الفهم

تحياتي

18 ساعات مضت, mido_10070 said:

استفسار اخير مع اعتذارى بالنسبه لحل ا/ رمهان

فى حاله اضافه شرط فى جمله ال sql

بمعنى لو اردنا جعل من يظهر فى القائمه من سكان الجيزه فقط

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

اشكركم

تعديل

تم ضبط جمله Sql

SELECT  tbl.Id,tbl.Id,tbl.address FROM tbl WHERE (((tbl.address)="الجيزه"))UNION SELECT tbl.Id,tbl.Namee,tbl.address FROM tbl WHERE (((tbl.address)="الجيزه"));

 لعلها تفيد احد

بفضل الله ثم اخى رمهان

تمام عليك وتقدر  تخليه ياخذ اسم المدينه من كمبو ثاني كمتغير افضل من تثبيت المدينه

هذا والعفو والشكر موصول للاخوه اللي ماقصرو

تحياتي

في ١٧‏/٤‏/٢٠٢٠ at 04:41, mido_10070 said:

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

المطلوب عند الاستعلام بالاسم والضغط على الانتر تتغير الخانه الى رقم الموظف 

ملحوظه

يمكن جعل العمود الاول هو اسم الموظف وسوف يفلح البحث ولكن الحقل مصدره هو كود الموظف ولذلك مطلوب تحويل الاسم الى كود الموظف

Database10.accdb 512 kB · 17 تنزيلات

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

تحياتي

Database10.accdb

16 ساعات مضت, sweety said:

لقد قمت بتجربة هذا الكود وظهرت لي رسالة خطأ

@sweety

هات الملف ورسالة الخطأ

تحياتي

تفضل اخي @فايز.. والشكر موصول للاستاذ @ابوآمنة

مزحه : تقول ماشفتها وانا لقيتها في ملغك الاخير هذا اخي فايز

تحياتي للجميع

Posters.accdb

@فايز..

لم استطع فتح الملف لعدم وجود نسخة محدثة لدي لبرنامج الضغط

ياسلام عليك @ابوآمنة

وزياده شوية نضيف xn=0   بعد rs.movefirst  لكي برضه رساله واحده للبحث الثاني

بالتوفيق

@فايز..

تفضل 

Dim strSearch As String
static xn
Dim rs As Object
Set rs = Me.RecordsetClone
   
   If IsNull(Me![txtSearch]) Or (Me![txtSearch]) = "" Then
          MsgBox "رجاء ادخل اسم للبحث عنه", vbOKOnly, "خطأ في البحث"
          Me![txtSearch].SetFocus
   Exit Sub
   End If
   strSearch = Me![txtSearch]
  
   With rs
  .FindNext "[EmpName] like '*" & strSearch & "*'"
   
   If Not .EmpName Like "*" & strSearch & "*" Then
          MsgBox "لا يوجد سجل بهذا الإسم :  " & strSearch, , "غير موجود"
          Me.txtSearch = ""
          Me![txtSearch].SetFocus
   ElseIf .NoMatch Then
          MsgBox "آخر سجل في البحث عن :  " & strSearch, , "آخر سجل"
          Me.cmdSearch.Caption = "بحث"
          Me.txtSearch = ""
          Me![txtSearch].SetFocus
          Me.cmdSearch.ForeColor = RGB(0, 0, 255)
  DoCmd.GoToRecord , , acFirst
   Else
xn=xn+1
   Me.Bookmark = .Bookmark
          if xn=1 then MsgBox "تم ايجاد اسم :  " & strSearch, , "مبروك"
          Me.cmdSearch.Caption = "اكمال البحث"
          Me.cmdSearch.ForeColor = RGB(255, 0, 0)
   End If
   End With

rs.Close
Set rs = Nothing

بالتوفيق

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

شكرا لك .. على جهدك وتعبك معي أخي @رمهان 

عندي ملاحظة  : 

وهي/ تكرار الرسالة ( تم إيجاد الاسم ) عند كل اسم .. نريد ان يكتفى بها في المرة الأولى فقط عند العثور على الاسم المطلوب .

 

@فايز..

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

هذا وان كنت متاكد من رغبتك في ازالة المسج عد وسنعود !

تحياتي

@omran2015

ليس لديك برنامج محدث لفك الضغط .. تكرما ارفق الملف بدون ضغط 

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

بالتوفيق

اخي @omran2015

هل يوجد اول مكرر وثاني مكرر ؟

وللعلم المنتدى ملئ بامثله لطلبك فقط ابحث

تحياتي

اخي @فايز..

ليش تركت كود الاخت زهره وانا عدلت عليه ... هل مازبط ؟

لانه يحوي فكره زهريه وهي البحث في المكرر واعلامك بآخر سجل 

بالتوفيق

شوف هنا لمعلومات اكثر حيث اكتب من الموبايل

 يمكن تختصر ب 

currentdb.properties(“allowfullmenus”)=false

بالتوفيق

@فايز..

@ابوآمنة

هذا تعديل على كود الاستاذه زهره ولماطلبت بنفس الرسائل 

Dim strSearch As String
Dim rs As Object
Set rs = Me.RecordsetClone
   
   If IsNull(Me![txtSearch]) Or (Me![txtSearch]) = "" Then
          MsgBox "رجاء ادخل اسم للبحث عنه", vbOKOnly, "خطأ في البحث"
          Me![txtSearch].SetFocus
   Exit Sub
   End If
   strSearch = Me![txtSearch]
  
   With rs
  .FindNext "[EmpName] like '*" & strSearch & "*'"
   
   If Not .EmpName Like "*" & strSearch & "*" Then
          MsgBox "لا يوجد سجل بهذا الإسم :  " & strSearch, , "غير موجود"
          Me.txtSearch = ""
          Me![txtSearch].SetFocus
   ElseIf .NoMatch Then
          MsgBox "آخر سجل في البحث عن :  " & strSearch, , "آخر سجل"
          Me.cmdSearch.Caption = "بحث"
          Me.txtSearch = ""
          Me![txtSearch].SetFocus
          Me.cmdSearch.ForeColor = RGB(0, 0, 255)
  DoCmd.GoToRecord , , acFirst
   Else
   Me.Bookmark = .Bookmark
          MsgBox "تم ايجاد اسم :  " & strSearch, , "مبروك"
          Me.cmdSearch.Caption = "اكمال البحث"
          Me.cmdSearch.ForeColor = RGB(255, 0, 0)
   End If
   End With

rs.Close
Set rs = Nothing

بالتوفيق

اخي @mrsadek2000

هل البرنامج معمول بالاكسس بالكامل ؟

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

نعم شاهدته 

بقي أضيف عليه بعض الرسائل ( لا يوجد طالب بهذا الإسم ) ( تم إيجاد اسم الطالب ) 

اخي @فايز..

بما انك مش فاهم الكود تبع الاستاذ زهرة وناسبك كود الاستاذ ابو امنه

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

Private Sub cmdSearch_Click()
If IsNull(Me.txtSearch) Then Me.FilterOn = False: Exit Sub
Me.Filter = "[StName] like '*" & txtSearch & "*'"
Me.FilterOn = True
If Me.StName Like "*" & txtSearch & "*" Then MsgBox "موجود" Else MsgBox "غير موجود"
End Sub

ولاحظ ان الكود يفلتر السجلات اي السجلات التي ستكون بالنموذج فقط نتائج البحث دون السجلات الاخرى وهنا 

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

- عيوب : ستفقد السجلات الاخرى .. فلو اردت البحث عن اسم اخر لن تجده لان السجلات اصبحت فقط للبحث السابق القحطاني . وهنا لابد من الغاء الفلتره لعودة جميع السجلات والبحث مره اخرى .. لالغاء الفلتره فقط استخدم me.filteron=false ولكن اين تضعه شوف اللي يناسبك وممكن يكون بزر جديد 

بالتوفيق 

في ١١‏/٤‏/٢٠٢٠ at 21:48, فايز.. said:

السلام عليكم 

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

ما الذي يجب عمله من تغيير حتى نستطيع البحث بأي جزء من الاسم .. 

دمتم سالمين

Dim strSearch As String
Dim rs As Object
Set rs = Me.RecordsetClone
   
   If IsNull(Me![txtSearch]) Or (Me![txtSearch]) = "" Then
          MsgBox "رجاء ادخل اسم للبحث عنه", vbOKOnly, "خطأ في البحث"
          Me![txtSearch].SetFocus
   Exit Sub
   End If
   strSearch = Me![txtSearch]
  
   With rs
  .FindNext "[StName] = '" & strSearch & "'"
   
   If .StName <> strSearch Then
          MsgBox "لا يوجد سجل بهذا الإسم :  " & strSearch, , "غير موجود"
          Me.txtSearch = ""
          Me![txtSearch].SetFocus
   ElseIf .NoMatch Then
          MsgBox "آخر سجل في البحث عن :  " & strSearch, , "آخر سجل"
          Me.cmdSearch.Caption = "بحث"
          Me.txtSearch = ""
          Me![txtSearch].SetFocus
          Me.cmdSearch.ForeColor = RGB(0, 0, 255)
  DoCmd.GoToRecord , , acFirst
   Else
   Me.Bookmark = .Bookmark
          MsgBox "تم ايجاد اسم :  " & strSearch, , "مبروك"
          Me.cmdSearch.Caption = "اكمال البحث"
          Me.cmdSearch.ForeColor = RGB(255, 0, 0)
   End If
   End With

rs.Close
Set rs = Nothing

 

اخوي @فايز..

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

الرسائل :

1. اجبار المستخدم ادخال نص ... مفهومة 

2. لايوجد سجل .. مفهومة

3. هذ اللي مش فاهمها وجايه بالمقلوب عندي ؟ ممكن تشرح متى تستخدمها ؟ هل هي للبحث عن اسم اخر نفس نص البحث ؟ وكم مره البحث هل اسمين فقط ام اكثر؟ ياليت تشرح فائدتها هنا 

4. تم ايجاد السجل .. مفهومه

تحياتي

اخي @husamwahab

عجبني في الكود 

If Rs!k = 0 Then
        i = j

i=j صراحة جديده ولم تدرس في البرمجة لكن والله فكره ومبسوط منها اوي 

اخي @mohamad dahleek

هذه محاولة وباستعلام 

SELECT tgar.no_11, tgar.name_1, Nz(DSum("k","dfaat","no_b>" & DLast("no_b","dfaat","k=0 and t=" & [no_11]) & " and t=" & [no_11]),0) AS Expr1
FROM tgar;

بالتوفيق

اخي @mohamad dahleek

تمام فهمت عليك 

ولكن بالنسبة ل

او وجد الصفر اخر القائمة ولا يوجد بعده شي ؟

انت قلت نجمع مافوق الصفر .. وانا شايف انه يكون صفر لان الفكرة اعتقد هي تصفير ونقطة بداية .. فاكد علي هنا؟

اخينا @mohamad dahleek

لم توضح :

1. هل المجموع بعد الصفر لجميع السجلات ام على حسب كل اسم ؟ 

2.كذلك كيف واين يظهر الاجمالي ؟

3. في حالة لايوجد صفر لاسم مالعمل ؟ او وجد الصفر اخر القائمة ولا يوجد بعده شي ؟

تحياتي

مرحبا @Mohameddd200300

ارفع ملف للعمل عليه كمثال وتجربه

بالتوفيق