افزودن بیشتر از یک شر به SELECT

[Nazir Ahmad]

سلام
چطور میشه به کد SELECT بیشتر از یه شرط رو در قسمت WHERE معرفی کرد بطوری که با انجام تمام شروط عملیات به خوبی انجام بشه؟
مثلا در کد "SELECT * FROM [1_Accounting] WHERE [St-ID]=" & Me.stu_ID علاوه بر فیلد st-id یک یا چند فیلد دیگه مثلا فیلدی به نام sal رو هم به شرط اضافه کرد؟

ممنون
یا حق

[isaac23]

سلام دوست عزیز با یه دستور And می توتی هر چند تا خواستی اضافه کنی
"SELECT * FROM T1 Where Nameb='" & Trim(Form10.Combo3.text) & "' And Vaz='" & Trim(Form10.Combo4.text) & "' Order by Tch"

[Nazir Ahmad]

سلام دوست عزیز با یه دستور And می توتی هر چند تا خواستی اضافه کنی
"SELECT * FROM T1 Where Nameb='" & Trim(Form10.Combo3.text) & "' And Vaz='" & Trim(Form10.Combo4.text) & "' Order by Tch"


سلام دوست عزیز
من کد قبلی که داشتم رو بصورت زیر تغییر دادم اما جواب نداد
'Set rs = CurrentDb.OpenRecordset("SELECT * FROM [1_Accounting] WHERE [St-ID]=" & Me.stu_ID)
Set rs = CurrentDb.OpenRecordset("SELECT * FROM [1_Accounting] Where [St-ID]='" & Me.stu_ID & "' And Acc_Sal='" & Me.salN & "' ")

در حالت اول تغییرات به ساب فرم اعمال میشه اما در تمام رکوردها. اما در کد دومی اصلا هیج تغییراتی در ساب‌فرم اعمال نمیشه

اصل کاری هم که من میخوام انجام بدم اینه
Private Sub clsN_AfterUpdate()Dim rs As Recordset
'Set rs = CurrentDb.OpenRecordset("SELECT * FROM [1_Accounting] WHERE [St-ID]=" & Me.stu_ID)
Set rs = CurrentDb.OpenRecordset("SELECT * FROM [1_Accounting] Where [St-ID]='" & Me.stu_ID & "' And Acc_Sal='" & Me.salN & "' ")


With rs
.MoveLast: .MoveFirst
Do While Not .EOF
.Edit
.Fields("Acc_Cls") = Me.clsN
.Update
.MoveNext
Loop
End With
Set rs = Nothing
[frm_AccountingSubform].Form.Requery
End Sub



یا حق

[isaac23]

دوست عزیز اگه رشته هست از ' استفاده کن و اگه عدد هست فیلدت دیگه اینو علامت (') رو نذار
الان فکر کنم فیلد شما عدد باشه

[1_Accounting]

چرا تو گیومه گذاشتی از گیومه بیرون بیار ببین کار میکنه ؟

[Nazir Ahmad]

چرا تو گیومه گذاشتی از گیومه بیرون بیار ببین کار میکنه ؟
سلام
من هر کاری میکنم جواب نمیده.
لطفا کد زیر رو اصلاح کنید. با توجه با اینکه هر دو فیلد Stu_ID و SalN از جنس عدد هست.
Private Sub clsN_AfterUpdate()Dim rs As Recordset'
Set rs = CurrentDb.OpenRecordset("SELECT * FROM [1_Accounting] Where [St-ID]='" & Me.stu_ID & "' And Acc_Sal='" & Me.salN & "' ")


With rs
.MoveLast: .MoveFirst
Do While Not .EOF
.Edit
.Fields("Acc_Cls") = Me.clsN
.Update
.MoveNext
Loop
End With
Set rs = Nothing
[frm_AccountingSubform].Form.Requery
End Sub
ممنون
یا حق

[agagorge]

Set rs = CurrentDb.OpenRecordset("SELECT * FROM [1_Accounting] Where [St-ID]=Me.[stu_ID] And Acc_Sal=Me.[salN] ")