[
attachment=8819]اخواني ماهي المشكله في الكود ساعدونا
المظلوب:
اريد من الكود سرد رقم القسم في التكست رقم بعد رقم في كل دوره
يعني في الدوره الاولي التكس يساوي 1 وتعلمني رسالة لتاكد لي مافي داخل التكست
في الدوره التانبة التكس يساوي 2 وتعلمني رسالة لتاكد لي مافي داخل التكست ....... الخ
PHP كود :
Private Sub Command1_Click()
Set rs = New ADODB.Recordset
If rs.State = adStateOpen Then rs.Close
rs.Open "SELECT partid FROM partsTable ", Db, adOpenStatic, adLockOptimistic
Set DataGrid1.DataSource = rs
If Not rs.BOF Then rs.MoveFirst
Text1.Text = rs![partid]
Do While rs.EOF
rs.MoveNext
Loop
End Sub
Private Sub Text1_Change()
MsgBox Text1.Text
End Sub
لا حظ وضعت الرساله في حدث التشينج للتكست
هذا وجزاكم الله خيرا
أهلا أخي الكريم , جرب التعديل التالي :
PHP كود :
Private Sub Command1_Click()
Dim RS As ADODB.Recordset
Set RS = New ADODB.Recordset
If RS.State = adStateOpen Then RS.Close
RS.Open "SELECT partid FROM partsTable ", Db, adOpenStatic, adLockOptimistic
If RS.RecordCount > 0 Then
Set DataGrid1.DataSource = RS.Clone
RS.MoveFirst
Do While Not RS.EOF
Text1.Text = RS![partid]
MsgBox Text1.Text
RS.MoveNext
Loop
Else
Set DataGrid1.DataSource = Nothing
Text1.Text = ""
MsgBox "لايوجد سجلات"
End If
End Sub
تسلم جاري التجربه ولك جزيل الشكر
اخي الكود روعه مررررره
الله يعطيك العافية اخي جزاك الله خير
اخي الغالي
ظهرت لي مشكله في كود الاستعلام مع انني كنت متاكد من انه بيشتغل ولكن للاسف
الذي كنت اريده :
1) يقوم بعرض ارقام الاقسام في تكست
2) في داخل التكست وفي حدث التشينج يوجد كود استعلام يقوم بحساب عدد الذكور والاناث عدد كل الطلاب
انظر الكود :
كود :
Set RS2 = New ADODB.Recordset
RS2.Open "SELECT count (students.stuid) as Total,(students.stusex='f') as Totalfemal,(students.stusex='m') as Totalmale FROM stuTable where stupartnumber = '" & (Text1.Text) & "'", Db, adOpenStatic, adLockOptimistic
Set DataGrid2.DataSource = RS2
Text2.Text = total
Text3.Text = Totalfemal
Text4.Text = Totalmale
والمثال مرفق جزاكم الله خير
أهلا أخي الكريم , تم التعديل في المرفقات .
الله يخليك ياغالي ويحفظك ويعطيك العافيه اخي
اللهم آمين
اخي الغالي
جاري التجربه
اخي الغالي انت اخ غالي جدا , الكود اشتغل 100%
الله يعطيك العافية ويسعدك ويحفظك انت واخي sniper.ps واخي محمد يحي خاصة واعضاء المنتدي عامه
الله يحفظكم اجمعين
بالنسبة للكود المعدل بواسطتك اشتغل 100%
انا اضفت كود اخر يقوم بالاستعلام عن الاقسام واضافة الارقام المستخرجه من الكود الأول كأحصائيات وقد قمت بالعملية100%
""""""""""""
الان في مشكلة اخيرة واعتقد انها بسيطه بالنسبة لك ان شاء الله وهي اضافة شرط اخير وهو شرط مابين تاريخين
مش عارف كيف وبعي اي where احطه , لان في الكود اكثر من where.
'WHERE studateregs BETWEEN" & DTPicker1.value & "AND" & DTPicker2.value بعد اي whereاضعها؟؟
اخي عذبتك معاي سامحنا ارجوك فانت املي الوحيد جزاك الله خير
سارفق المثال مع تعديلي الاخير
اسال الله ان يستفيذو منه اعضاء المنتدي الرائع وهذا الفظل يعود لك اخي
سارفق لك المثال وارجو التعديل عليه
أهلا أخي الكريم , تم التعديل في المرفقات .
اتعبتك اخي معي
الله يحفظك اخي ويجزيك خير
ارسل لي اسمك الكامل
اخي لا لا لا لا لا لا الشرط اريده في التكست في حدث التشينج في rs2 فقط
وليس في كل جمل الاستعلام لان باقي جمل الاستعلام شغاله 100%