اريد التعديل على هذا الكود للبحث بين تاريخين بالهجري في حقل datas

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

ok اريد التعديل على هذا الكود للبحث بين تاريخين بالهجري في حقل datas

مُساهمة من طرف keyaqar4 في الأحد مايو 15, 2016 11:07 am

[ltr]Text14.Text = x[/ltr]
[ltr]Dim db As DAO.Database[/ltr]
[ltr]Dim Rs1 As DAO.Recordset[/ltr]
[ltr]Set db = DBEngine.OpenDatabase(App.Path & "\data.mdb", False, False)[/ltr]
[ltr]Calendar = vbCalHijri[/ltr]
[ltr]Set Rs1 = Cn.OpenRecordset("Select * From tablqs where datas  ", 2)[/ltr]
[ltr]If Rs1.EOF Then[/ltr]
[ltr]MsgBox "لايوجد ما تبحث عنه"[/ltr]
[ltr]Rs1.Close[/ltr]
[ltr]Exit Sub[/ltr]

[ltr]Else[/ltr]


عدل سابقا من قبل keyaqar4 في الثلاثاء مايو 17, 2016 1:52 am عدل 1 مرات
avatar
keyaqar4
.
.

تاريخ التسجيل : 10/05/2016
المساهمات : 3
النقاط : 7
التقيم : 0
الدولة : السعودية
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

ok رد: اريد التعديل على هذا الكود للبحث بين تاريخين بالهجري في حقل datas

مُساهمة من طرف السنى في الأحد مايو 15, 2016 4:40 pm

يمكنك الاطلاع على هذا المقال 

http://egy-tech.forumegypt.net/t167-topic
avatar
السنى
.......
.......

تاريخ التسجيل : 18/02/2011
المساهمات : 186
النقاط : 346
التقيم : 18
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

ok رد: اريد التعديل على هذا الكود للبحث بين تاريخين بالهجري في حقل datas

مُساهمة من طرف keyaqar4 في الثلاثاء مايو 17, 2016 1:51 am

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

Calendar = vbCalHijri
Dim d1, d2 As String
d1 = Format(Text3.Text, "yyyy/MM/dd")
d2 = Format(Text4.Text, "yyyy/MM/dd")


Set Rs1 = Cn.OpenRecordset("select * from gbddprint  where q7 Between '" + d1 + "' AND '" + d2 + "' ", 2)

نرجو غلق الموضوع
avatar
keyaqar4
.
.

تاريخ التسجيل : 10/05/2016
المساهمات : 3
النقاط : 7
التقيم : 0
الدولة : السعودية
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

ok رد: اريد التعديل على هذا الكود للبحث بين تاريخين بالهجري في حقل datas

مُساهمة من طرف أحمد مناع في الثلاثاء مايو 17, 2016 8:20 am

شكرا جزيلا الاخ الكريم وجزاكم الله خيرا

ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
سبحان الله وبحمدة .....سبحان الله العظيم

إن فقدت مكان بذورك التي بذرتها يوما ما سيخبرك المطر أين زرعتها ..لذا إبذر الخير فوق أي أرض وتحت أي سماء ومع أي أحد.. فأنت لا تعلم أين تجده ومتى تجده؟! إزرع جميلا ولو في غير موضعه .... فلا يضيع جميلا أينما زرعا .. فما أجمل العطاء... فقد تجد جزاءه في الدنيا أو يكون لك ذخرا في الآخرة
avatar
أحمد مناع
.
.

تاريخ التسجيل : 15/02/2011
المساهمات : 815
النقاط : 1484
التقيم : 69
الدولة : مصر
الجنس : ذكر

http://egy-tech.forumegypt.net

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى