الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

جملة select يطلع فيها خطا.ايش الحل؟

بدأه فراوله2010 في 28 يونيو 2010 · 4 رد · 732 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

:)

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

هذا كود يحتوي ع جملة select >> ماضبطت معاي

في البدايه بشكل عام كتبتها كذا select >>columns name >>where >>

طبعا اسماء الحقول اللي بعد سلكن فصلت بينهم ب فاصله

بس يطلع لي خطا....

وبعدين حطيت كل الحقول وكمان ظلت المشكله

وهذا الكود

Private Sub Combo277_AfterUpdate()

Dim s As Recordset

Dim n As String

n = Combo277.Value

MsgBox (n)

Set s = CurrentDb.OpenRecordset("select * from z where z.zname like n")

End Sub

واستبدلت like بعلامة المساواة >> ولازالت الاخطاء تطلع.....

احيانا يقول البراميتر ناقصه, واحيانا يقول خطا في جزء from

واذا شلت جزء الwhere واعمل رن للفورم مايطلع خطا؟؟؟

ياليت تتفيدوني...............

#2

أخي جرب الكود التالي:

Dim s As Recordset

Dim n As String

set s = new recordset

n = Combo277.Value

MsgBox (n)

s.open "select * from z where z.zname like '" & n & "';" , CurrentProject.Connection, adOpenKeyset, adLockOptimistic

#3

بارك الله فيك اخي

لكن

يطلع خطا

invalid use of new keywords

:)

#4

السلام عليكم

حاول تجربة الكود التالي:

Set s = CurrentDb.OpenRecordset("select * from z where z.zname like '" & n & "'")
1
#5

جرب هذا 

 
Dim rs As Recordset
Dim db As Database
Set db = CurrentDb

Set rs = db.OpenRecordset("select * from z where z.zname like '" & combo277.Value & "'")

MsgBox "تم العثور على " & rs.RecordCount & "  سجل "

تحياتي

تم تعديل هذه المشاركة بواسطة omani في 1 يوليو 2010 في 14:19

1

OMANI FOR EVER

-------------------------------------------------

post-12787-12780191801974.jpg

-------------------------------------------------

مواضيع مشابهة