Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Xóa 1 record từ 1 file khác
#1
tmtien261 có một vấn đề nhờ các A/C/E Pro giúp:
tmtien261 muốn xóa 1 record theo điều kiện ở 1 file khác theo đoạn code:

Function Delete(strDelType As String, strSohieu as string)
Dim sql As String
Dim sFilePathName As String: "Diachi"
Dim sPass As String: sPass = "Pass"
Dim db As DAO.Database
Set db = OpenDatabase(sFilePathName, False, False, "Ms Access" & ";pwd=" & sPass & "")
Select Case strDelType
Case "All"
sql = "Delete * from tblName"
Case "Unique"
sql = "Delete * from tblName Where Sohieu='" & strSohieu & "'"
End Select
db.Execute sql
Set db = Nothing
End Function
Nhưng khi xóa hết tất cả thì Ok còn xóa 1 record theo điều kiện thì ko được. tmtien261 đã thử thay biến "strSohieu as string" thành "byval strSohieu as string" vẫn ko được.
Nhờ các Pro chỉ giáo giúp !
Cảm ơn nhiều !
Chữ ký của Minh Tiên -----------------------------------------------
Đường tuy ngắn, không đi không đến
Việc tuy nhỏ, không làm không nên.
                                           Tuân Tử
-----------------------------------------------
Reply
Những người đã cảm ơn
#2
bạn chưa gắn giá trị cho biến strSohieu kìa 007
Chữ ký của ht03 Xin chào, mình là ht03, Tham gia http://thuthuataccess.com/forum từ ngày 08-06 -12.
Reply
Những người đã cảm ơn
#3
Bạn ơi ! Sao không gắn mà xóa được bạn. Do mình ko ghi rõ lệnh gọi đó chứ.
Để xóa tất cả tại form mình gọi: Call Delete("All",me.Sohieu.value) (Thực ra biến strSohieu trong trường hợp xóa tất cả ko có tác dụng);
Xóa chỉ 1 record thì gọi: Delete("Unique",me.Sohieu.value)
Thanks bạn !
Chữ ký của Minh Tiên -----------------------------------------------
Đường tuy ngắn, không đi không đến
Việc tuy nhỏ, không làm không nên.
                                           Tuân Tử
-----------------------------------------------
Reply
Những người đã cảm ơn
#4
tmtien261 đã tìm ra nguyên nhân của việc ko xóa được trên form của mình rồi.
Khi mình gọi bằng lệnh: Delete("Unique",me.Sohieu.value) với me.Sohieu.value là record trực tiếp trên form tức là Click vào Record nào thì là lấy record đó để làm điều kiện xóa. Việc này ko ổn định, có lúc xóa được, có lúc không.
Mình đã khắc phục bằng cách tạo 1 textbox phụ, khi Click vào record nào thì giá trị của Record đó được gán vào textbox phụ để làm điều kiện xóa ---> Thế là Ok !
Chữ ký của Minh Tiên -----------------------------------------------
Đường tuy ngắn, không đi không đến
Việc tuy nhỏ, không làm không nên.
                                           Tuân Tử
-----------------------------------------------
Reply
Những người đã cảm ơn
#5
Có thể không cần textbox phụ vẫn xóa được. Có thể. bạn làm chưa đúng cách đó thôi. Gửi file kên đi
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
#6
tmtien261 Up file lên nhờ XT cùng các Pro xem giúp nhé !
FileDemo
Thanks !
Chữ ký của Minh Tiên -----------------------------------------------
Đường tuy ngắn, không đi không đến
Việc tuy nhỏ, không làm không nên.
                                           Tuân Tử
-----------------------------------------------
Reply
Những người đã cảm ơn
#7
Bạn sửa thủ tục Sub btnXoa_Click() lại như sau là được:

Mã PHP:
Private Sub btnXoa_Click()
On Error GoTo HandleError
    Dim strSohieuTK 
As String
    strSohieuTK 
Me.SohieuTK.Value
    strText 
"Co1 d9u1ng User muo61n xo1a so61 du7 cu3a TK: " Me.SohieuTK " kho6ng ?"
    
If MsgBox(UniConvert(strText"vni"), vbQuestion vbYesNo vbDefaultButton2) = vbNo Then
        
Exit Sub
    
Else
        
'Call Sodudauky.Delete("CurrentDB", Me.txtSohieuTKXoa.Value)
        '
Call Sodudauky.Delete("BackupDB"Me.txtSohieuTKXoa.Value)
        
Call Sodudauky.Delete("CurrentDB"strSohieuTK)
        
Call Sodudauky.Delete("BackupDB"strSohieuTK)
        
DoCmd.Requery
        Call SetButton
("Delete")
    
End If

HandleExit:
    Exit 
Sub
HandleError
:
    
MsgError Err.NumberErr.DescriptionmodName"btnXoa_Click"
    
Resume HandleExit
End Sub 
Chữ ký của MatTroiNguQuen Thời gian nước chảy... da mòn
Ngủ quên một chốc thấy còn bộ xương!
Reply
Những người đã cảm ơn
#8
Cảm ơn "MTNQ" đã giúp. Mình làm trên Function của cls để tiện gọi dùng trên nhiều form. Cách của bạn cũng giống như mình tạo textbox phụ thôi.
Mình đã ko hiểu tại sao khi chạy trực tiếp bằng cách Click chuột vào Record để lấy giá trị thì ko chạy được (Chạy ko ổn định) mà truyền sang 1 textbox phụ thì OK ?
Thanks !
Chữ ký của Minh Tiên -----------------------------------------------
Đường tuy ngắn, không đi không đến
Việc tuy nhỏ, không làm không nên.
                                           Tuân Tử
-----------------------------------------------
Reply
Những người đã cảm ơn
#9
(28-04-14, 03:39 PM)tmtien261 Đã viết: Cảm ơn "MTNQ" đã giúp. Mình làm trên Function của cls để tiện gọi dùng trên nhiều form. Cách của bạn cũng giống như mình tạo textbox phụ thôi.
Mình đã ko hiểu tại sao khi chạy trực tiếp bằng cách Click chuột vào Record để lấy giá trị thì ko chạy được (Chạy ko ổn định) mà truyền sang 1 textbox phụ thì OK ?
Thanks !

Thực ra bạn chỉ cần làm như sau cũng được:

đổi thứ tự:
Mã:
Call Sodudauky.Delete("CurrentDB", Me.SohieuTK.Value)
        Call Sodudauky.Delete("BackupDB", Me.SohieuTK.Value)

lại thành:
Mã:
Call Sodudauky.Delete("BackupDB", Me.SohieuTK.Value)
Call Sodudauky.Delete("CurrentDB", Me.SohieuTK.Value)

Nói đến đây chắc bạn suy ra nguyên nhân rùi đúng ko?
Chữ ký của MatTroiNguQuen Thời gian nước chảy... da mòn
Ngủ quên một chốc thấy còn bộ xương!
Reply
Những người đã cảm ơn
#10
Cảm ơn bạn đã giúp. Mình cũng đã chỉ dùng 1 câu để xóa trên BackupDB là: Call Sodudauky.Delete("BackupDB", Me.SohieuTK.Value) vẫn No OK !
Chữ ký của Minh Tiên -----------------------------------------------
Đường tuy ngắn, không đi không đến
Việc tuy nhỏ, không làm không nên.
                                           Tuân Tử
-----------------------------------------------
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
  Cài đặt ODBC -nền tảng kết nối Access và nguồn dữ liệu khác Noname 33 19,294 01-12-16, 06:49 PM
Bài mới nhất: atula77
  Ứng dụng đổi tên file trong windows hàng loạt tranthanhan1962 7 1,211 19-09-16, 04:16 PM
Bài mới nhất: maidinhdan
  Xuất từ Access ra excel mà không cần phải có file định sẵn trungminh 3 351 18-09-16, 02:33 AM
Bài mới nhất: maidinhdan
  Export Table từ access sang 1 file word có sẵn! cong_agribankPT 50 14,969 02-05-16, 10:52 PM
Bài mới nhất: kuzinhy
  Hướng Dẫn Tạo hàm để Export dữ liệu từ một table Access ra một file Excel Xuân Thanh 16 4,360 24-04-16, 12:34 AM
Bài mới nhất: tvn_hut

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ơ