Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
đánh số thứ tự
#1
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
Chữ ký của thuphuong0808 Xin chào, mình là thuphuong0808, Tham gia http://thuthuataccess.com/forum từ ngày 12-01 -13.
Reply
Những người đã cảm ơn
#2
(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

SQLHS = "SELECT * from KiemDinhDH WHERE (((LanKD)='" & rsLop!LanKD & "'))"
Sai ở cái hàng này
Thân mến
Chữ ký của Xuân Thanh Trăm năm trước thì ta chưa gặp
Trăm năm sau biết gặp được không?
Cuộc đời sắc sắc không không
Thì thôi ta cứ hết lòng vì nhau
ღღღღღTài sản của Xuân Thanh (View All Items) ღღღღღ
Reply
Những người đã cảm ơn thuphuong0808
#3
(09-04-13, 02:46 PM)Xuân Thanh Đã viết:
(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
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!
Chữ ký của thuphuong0808 Xin chào, mình là thuphuong0808, Tham gia http://thuthuataccess.com/forum từ ngày 12-01 -13.
Reply
Những người đã cảm ơn
#4
(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
Chữ ký của Xuân Thanh Trăm năm trước thì ta chưa gặp
Trăm năm sau biết gặp được không?
Cuộc đời sắc sắc không không
Thì thôi ta cứ hết lòng vì nhau
ღღღღღTài sản của Xuân Thanh (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#5
(09-04-13, 03:21 PM)Xuân Thanh Đã viết:
(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
Em gửi file CSDL lên mọi người xem giúp em với ạ! http://www.mediafire.com/?3yzz2my1w9tmro5
Chữ ký của thuphuong0808 Xin chào, mình là thuphuong0808, Tham gia http://thuthuataccess.com/forum từ ngày 12-01 -13.
Reply
Những người đã cảm ơn
#6
(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

bạn ơi cho mình xin contact của bạn mình hỏi chút

contact của mình là:
nxchien1984@gmail.com
yahoo:conduong_muagio2505
sdt 0946825584
Chữ ký của xuanchien Xin chào, mình là xuanchien, Tham gia http://thuthuataccess.com/forum từ ngày 05-04 -13.
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  Xin giúp tạo 1 trường trong table đánh số tự động thay cho autonumber trungminh 7 450 16-09-16, 05:17 PM
Bài mới nhất: maidinhdan
Photo [Hỏi] Tạo nút tự động đánh lại số CT khanh 12 410 03-08-16, 08:23 PM
Bài mới nhất: ongke0711
Star Giúp bổ sung form đánh giá mức độ giảng dạy của các giảng viên honglv157 15 885 04-01-16, 05:55 PM
Bài mới nhất: paulsteigel
  Hỏi cách đánh dấu dòng đã mở hoặc xem ledangvan 12 1,045 12-10-15, 07:36 AM
Bài mới nhất: tranthanhan1962
  [Hỏi] [Hep]honglv157_Tạo công thức tính trung bình của các tiêu chí đánh giá GV maidinhdan 14 1,189 15-07-15, 09:51 AM
Bài mới nhất: maidinhdan

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ