amiralex
دوشنبه 17 مهر 1391, 16:24 عصر
سلام به همه
يه سوالي داشتم
من يه فرمم دارم كه با كانكشن ADO به يه بانك اكسس كه شامل يه جدول ميشه وصله
دو تا ستون دارم يكي سمت و يكي هم شارژ
ميخوام اونايي كه سمتشون يكي هست رو با يه مبلغ شارژ بشه
بنابراين يه دكمه و يه تكست باكس و يه كمبو باكس در فرمم گذاشتم
حالا با استفاده از حلقه for هر كاري ميكنم اين عمل انجام نميشه
نمونه هاي سايت و هم ديدم همشون ارور ميدن در فرم من
نام تكست باكسي كه مبلغ شارژ رو توش مينويسم txtcharj
نام كمبو باكس كه سمت ها توش هست Cbosemat
و نام يه دكمه كه با كليك ميخوام اين عمليات انجام بشه Cmdcharj هستش
من تو اكسس از اين كد استفاده ميكنم. درست عمل ميكرد. ميخوام ببينم تو Vb6 اين كد چرا ارور ميده(البته ميدونم بايد تغييراتي توش بدم اين كار رو همكردم اما باز هم ارور). ممنونم اگه جواب بديد
Dim db As Database
Dim rst As Recordset
Dim strSQL As String
Dim I As Integer
Dim X As Long
strSQL = "SELECT Charj.semat,Charj.Charj FROM Charj WHERE (((Charj.semat)='" & Me!Cbosemat & "'));"
Set db = CurrentDb
Set rst = db.OpenRecordset(strSQL)
rst.MoveFirst
rst.MoveLast
X = rst.RecordCount
rst.MoveFirst
For I = 1 To X
rst.Edit
rst.Fields("charj").Value = Me.txtcharj
rst.Update
rst.MoveNext
Next I
MsgBox "موفقيت آميز", vbInformation + vbMsgBoxRight, "توجه"
rst.Close
db.Close
Set rst = Nothing
Set db = Nothing
Me.Refresh
از دوستان لطفا يه راهنمايي بكنن
متشكرم
يه سوالي داشتم
من يه فرمم دارم كه با كانكشن ADO به يه بانك اكسس كه شامل يه جدول ميشه وصله
دو تا ستون دارم يكي سمت و يكي هم شارژ
ميخوام اونايي كه سمتشون يكي هست رو با يه مبلغ شارژ بشه
بنابراين يه دكمه و يه تكست باكس و يه كمبو باكس در فرمم گذاشتم
حالا با استفاده از حلقه for هر كاري ميكنم اين عمل انجام نميشه
نمونه هاي سايت و هم ديدم همشون ارور ميدن در فرم من
نام تكست باكسي كه مبلغ شارژ رو توش مينويسم txtcharj
نام كمبو باكس كه سمت ها توش هست Cbosemat
و نام يه دكمه كه با كليك ميخوام اين عمليات انجام بشه Cmdcharj هستش
من تو اكسس از اين كد استفاده ميكنم. درست عمل ميكرد. ميخوام ببينم تو Vb6 اين كد چرا ارور ميده(البته ميدونم بايد تغييراتي توش بدم اين كار رو همكردم اما باز هم ارور). ممنونم اگه جواب بديد
Dim db As Database
Dim rst As Recordset
Dim strSQL As String
Dim I As Integer
Dim X As Long
strSQL = "SELECT Charj.semat,Charj.Charj FROM Charj WHERE (((Charj.semat)='" & Me!Cbosemat & "'));"
Set db = CurrentDb
Set rst = db.OpenRecordset(strSQL)
rst.MoveFirst
rst.MoveLast
X = rst.RecordCount
rst.MoveFirst
For I = 1 To X
rst.Edit
rst.Fields("charj").Value = Me.txtcharj
rst.Update
rst.MoveNext
Next I
MsgBox "موفقيت آميز", vbInformation + vbMsgBoxRight, "توجه"
rst.Close
db.Close
Set rst = Nothing
Set db = Nothing
Me.Refresh
از دوستان لطفا يه راهنمايي بكنن
متشكرم