thuphuong0808 > 09-04-13, 12:23 PM
Private Sub ghi7_Click()
Dim SQLLop As String
Dim rsLop As Recordset
Dim SQLHS As String
Dim rsHS As Recordset
Dim i As Integer
SQLLop = "SELECT LanKD FROM KiemDinhDH where (((KiemDinhDH.LanKD)=[Forms]![F-kiemdinh]![T3])) "
Set rsLop = CurrentDb.OpenRecordset(SQLLop)
If rsLop.RecordCount > 0 Then
rsLop.MoveFirst
Do Until rsLop.EOF
SQLHS = "SELECT * from KiemDinhDH WHERE (((LanKD)='" & rsLop!LanKD & "'))"
Set rsHS = CurrentDb.OpenRecordset(SQLHS, dbOpenDynaset)
rsHS.MoveFirst
i = tem
Do Until rsHS.EOF
rsHS.Edit
rsHS!Sotem = i
rsHS.Update
rsHS.MoveNext
i = i + 1
s1.Requery
Loop
rsLop.MoveNext
s1.Requery
Loop
rsHS.Close
End If
rsLop.Close
Me.Requery
End SubXuân Thanh > 09-04-13, 02:46 PM
(09-04-13, 12:23 PM)thuphuong0808 Đã viết: Em có table KiemDinhDH(LanKD,Sotem...) và form F-kiemdinh có 2 textbox nhập lần KĐ (T3) và nhập Sotem (tem) khi em thực hiện báo lỗi là Run-time error '3061': Tow few parameters.Expected 1.
mọi người xem giúp em lỗi ở đâu ak!
Mã:Private Sub ghi7_Click()
Dim SQLLop As String
Dim rsLop As Recordset
Dim SQLHS As String
Dim rsHS As Recordset
Dim i As Integer
SQLLop = "SELECT LanKD FROM KiemDinhDH where (((KiemDinhDH.LanKD)=[Forms]![F-kiemdinh]![T3])) "
Set rsLop = CurrentDb.OpenRecordset(SQLKD)
If rsLop.RecordCount > 0 Then
rsLop.MoveFirst
Do Until rsLop.EOF
SQLHS = "SELECT * from KiemDinhDH WHERE (((LanKD)='" & rsLop!LanKD & "'))"
Set rsHS = CurrentDb.OpenRecordset(SQLHS, dbOpenDynaset)
rsHS.MoveFirst
i = tem
Do Until rsHS.EOF
rsHS.Edit
rsHS!Sotem = i
rsHS.Update
rsHS.MoveNext
i = i + 1
s1.Requery
Loop
rsLop.MoveNext
s1.Requery
Loop
rsHS.Close
End If
rsLop.Close
Me.Requery
End Sub
thuphuong0808 > 09-04-13, 03:06 PM
(09-04-13, 02:46 PM)Xuân Thanh Đã viết:Em đã sửa nhưng vẫn sai như trước,nó báo lỗi ở Set rsLop = CurrentDb.OpenRecordset(SQLLop) anh xem lại giúp em với!(09-04-13, 12:23 PM)thuphuong0808 Đã viết: Em có table KiemDinhDH(LanKD,Sotem...) và form F-kiemdinh có 2 textbox nhập lần KĐ (T3) và nhập Sotem (tem) khi em thực hiện báo lỗi là Run-time error '3061': Tow few parameters.Expected 1.
mọi người xem giúp em lỗi ở đâu ak!
Mã:Private Sub ghi7_Click()
Dim SQLLop As String
Dim rsLop As Recordset
Dim SQLHS As String
Dim rsHS As Recordset
Dim i As Integer
SQLLop = "SELECT LanKD FROM KiemDinhDH where (((KiemDinhDH.LanKD)=[Forms]![F-kiemdinh]![T3])) "
Set rsLop = CurrentDb.OpenRecordset(SQLLop)
If rsLop.RecordCount > 0 Then
rsLop.MoveFirst
Do Until rsLop.EOF
SQLHS = "SELECT * from KiemDinhDH WHERE (((LanKD)='" & rsLop!LanKD & "'))"
Set rsHS = CurrentDb.OpenRecordset(SQLHS, dbOpenDynaset)
rsHS.MoveFirst
i = tem
Do Until rsHS.EOF
rsHS.Edit
rsHS!Sotem = i
rsHS.Update
rsHS.MoveNext
i = i + 1
s1.Requery
Loop
rsLop.MoveNext
s1.Requery
Loop
rsHS.Close
End If
rsLop.Close
Me.Requery
End Sub
SQLHS = "SELECT * from KiemDinhDH WHERE (((LanKD)='" & rsLop!LanKD & "'))"
Sai ở cái hàng này
Thân mến
Xuân Thanh > 09-04-13, 03:21 PM
(09-04-13, 03:06 PM)thuphuong0808 Đã viết: Em đã sửa nhưng vẫn sai như trước,nó báo lỗi ở Set rsLop = CurrentDb.OpenRecordset(SQLLop) anh xem lại giúp em với!
SQLLop = "SELECT * FROM KiemDinhDH where LanKD = '" & Forms!F-kiemdinh!T3 & "'"thuphuong0808 > 09-04-13, 05:22 PM
(09-04-13, 03:21 PM)Xuân Thanh Đã viết:Em gửi file CSDL lên mọi người xem giúp em với ạ! http://www.mediafire.com/?3yzz2my1w9tmro5(09-04-13, 03:06 PM)thuphuong0808 Đã viết: Em đã sửa nhưng vẫn sai như trước,nó báo lỗi ở Set rsLop = CurrentDb.OpenRecordset(SQLLop) anh xem lại giúp em với!
Thử sửa lại thế này xem sao
Mã:SQLLop = "SELECT * FROM KiemDinhDH where LanKD = '" & Forms!F-kiemdinh!T3 & "'"
(Xem thêm cả hai câu SQL đều lấytừ một table và cùng một đ/k là LanKD là sao? Vì không biết cấu trúc Database của bạn như thế nào)
Thân mến
xuanchien > 09-04-13, 05:43 PM
(09-04-13, 12:23 PM)thuphuong0808 Đã viết: Em có table KiemDinhDH(LanKD,Sotem...) và form F-kiemdinh có 2 textbox nhập lần KĐ (T3) và nhập Sotem (tem) khi em thực hiện báo lỗi là Run-time error '3061': Tow few parameters.Expected 1.
mọi người xem giúp em lỗi ở đâu ak!
Mã:Private Sub ghi7_Click()
Dim SQLLop As String
Dim rsLop As Recordset
Dim SQLHS As String
Dim rsHS As Recordset
Dim i As Integer
SQLLop = "SELECT LanKD FROM KiemDinhDH where (((KiemDinhDH.LanKD)=[Forms]![F-kiemdinh]![T3])) "
Set rsLop = CurrentDb.OpenRecordset(SQLLop)
If rsLop.RecordCount > 0 Then
rsLop.MoveFirst
Do Until rsLop.EOF
SQLHS = "SELECT * from KiemDinhDH WHERE (((LanKD)='" & rsLop!LanKD & "'))"
Set rsHS = CurrentDb.OpenRecordset(SQLHS, dbOpenDynaset)
rsHS.MoveFirst
i = tem
Do Until rsHS.EOF
rsHS.Edit
rsHS!Sotem = i
rsHS.Update
rsHS.MoveNext
i = i + 1
s1.Requery
Loop
rsLop.MoveNext
s1.Requery
Loop
rsHS.Close
End If
rsLop.Close
Me.Requery
End Sub