Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Hỏi] Truyền giá trị trừ textbox của form vào câu lệnh SQL
#1
Question 
Xin chào các bạn!
Mình có đoạn code sau mà không biết sai ở chỗ nào các bạn giúp với mình với
Mã PHP:
Private Sub cmdAddNewUnit_Click()
Dim rs As DAO.Recordset
Dim db 
As Database
Dim strSQL 
As String
Dim UnitSymbols 
As String
UnitSymbols 
txtUnitSymbols
strSQL 
"SELECT UnitSymbols FROM tbl_Unit WHERE UnitSymbols = '& UnitSymBols &'"
Set db CurrentDb
Set rs 
db.OpenRecordset(strSQL)
Dim Dem As Integer
Dem 
0
If rs.RecordCount <> 0 Then
    rs
.MoveFirst
        
While Not rs.EOF
            Dem 
Dem 1
        rs
.MoveNext
        Wend
    MsgBox 
"So Rcs: " Dem
ElseIf rs.RecordCount 0 Then
    MsgBox 
"Loi roi"
End If 
[/quote]
Mục đích của mình là truyền giá trị UnitSymBols vào Câu lệnh SQL.
Làm như trên được không?
Cảm ơn nhiều!
Chữ ký của mrmintoa Xin chào, mình là mrmintoa, Tham gia http://thuthuataccess.com/forum từ ngày 16-01 -13.
Reply
Những người đã cảm ơn
#2
Mình bó tay thật rồi. Cao nhân nào vào giúp với
Fix lại như thế lày rồi mà nó vẫn lỗi. Kỳ lạ ở chỗ là nếu thay Biến UnitSymbols bằng 1 giá trị cụ thể như : a, b, c gì đấy thì lại nhận được kết quả như mong muốn mới đểu.
Help me, please!
Mã PHP:
Private Sub cmdAddNewUnit_Click()
Dim rs As DAO.Recordset
Dim db 
As Database
Dim strSQL 
As String

Dim dem 
As Integer
dem 
0
UnitSymbols 
Me.txtUnitSymbols.Value
Set db 
CurrentDb
strSQL 
"SELECT * FROM tbl_Unit"
Set rs db.OpenRecordset(strSQL)
rs.FindFirst ("UnitSymbols = '&UnitSymbols&'")
If 
Not rs.NoMatch Then
    MsgBox 
"Da tim thay"
ElseIf rs.NoMatch Then
    MsgBox 
"Bo tay roi"
End If
rs.Close
Set rs 
Nothing
Set db 
Nothing
End Sub 
Chữ ký của mrmintoa Xin chào, mình là mrmintoa, Tham gia http://thuthuataccess.com/forum từ ngày 16-01 -13.
Reply
Những người đã cảm ơn
#3
Đã fix xong
Chữ ký của mrmintoa Xin chào, mình là mrmintoa, Tham gia http://thuthuataccess.com/forum từ ngày 16-01 -13.
Reply
Những người đã cảm ơn
#4
Tự xử lun hả ^^!
Chữ ký của hoanglonglangtu Chiều tắt nắng trên con đường quen thuộc
Mưa rơi buồn qua ngõ vắng không em
Từng hạt ngọc rơi đùa qua kẽ lá
Những giọt tràn đầy ngõ ngách tâm tư
Em có biết chiều nay anh vẫn nhớ
Ở nơi nào em có nhớ chăng anh

Trên đời có quá nhiều chữ nếu,đáng tiếc là đều đã qua,việc đã xảy ra,hối hận cũng vô dụng
ღღღღღTài sản của hoanglonglangtu (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#5
(17-01-13, 01:46 AM)mrmintoa Đã viết: Đã fix xong

mrmintoa ơi, mình cũng bị lỗi tương tự như bạn nhưng chưa fix được. bạn chỉ mình fix lỗi này với.
Chữ ký của boy333 Xin chào, mình là boy333, Tham gia http://thuthuataccess.com/forum từ ngày 22-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
  [Hỏi] Căn Chỉnh Form Tự Động pherotao 9 545 21-12-17, 11:38 PM
Bài mới nhất: ongke0711
  [Hỏi] Cập nhật thông tin từ Textbox của UnBound Form vào Listbox pherotao 5 352 20-12-17, 09:00 PM
Bài mới nhất: pherotao
  [Hỏi] Mở 1 Form khác khi thỏa điều kiện pherotao 11 710 20-12-17, 12:10 AM
Bài mới nhất: pherotao
  [Hỏi] Bẫy lỗi Unbound Form (Nhập liệu) pherotao 2 234 13-12-17, 09:40 AM
Bài mới nhất: duynamvnn1208
  Sử dụng Dirty event của Form huylam 2 2,080 07-12-17, 05:31 AM
Bài mới nhất: vkaccess

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ơ| PMA Nha Trang| Gỗ Acrylic Không Đường Line