thanhtruong > 21-01-17, 11:36 AM
ongke0711 > 21-01-17, 02:21 PM
lehongduc > 21-01-17, 09:45 PM
(21-01-17, 02:21 PM)ongke0711 Đã viết: Cách tôi làm sẽ đưa textbox1 này vô 1 biến. Dùng hàm Split biến này thành biến mảng. Sau đó đọc các phần tử mảng này đưa vô table hay làm gì đó tùy bạn
Dim ArrayText() as String
Dim i as Integer
ArrayText=Split(Textbox1,"|")
For i=0 to Unbound(ArrayText)
Debug.Print ArrayText (i)
Next
Trích dẫn:For i=0 to UBound(ArrayText)nên viết như sau sẽ linh hoạt hơn:
Debug.Print ArrayText (i)
Next
Trích dẫn:For i=LBound(ArrayText) to UBound(ArrayText)
Debug.Print ArrayText (i)
Next
thanhtruong > 22-01-17, 02:49 PM
(21-01-17, 09:45 PM)lehongduc Đã viết:(21-01-17, 02:21 PM)ongke0711 Đã viết: Cách tôi làm sẽ đưa textbox1 này vô 1 biến. Dùng hàm Split biến này thành biến mảng. Sau đó đọc các phần tử mảng này đưa vô table hay làm gì đó tùy bạn
Dim ArrayText() as String
Dim i as Integer
ArrayText=Split(Textbox1,"|")
For i=0 to Unbound(ArrayText)
Debug.Print ArrayText (i)
Next
Bác ghi nhầm "UBound" thành "Unbound" rồi.
Theo tôi, đoạn:
Trích dẫn:For i=0 to UBound(ArrayText)nên viết như sau sẽ linh hoạt hơn:
Debug.Print ArrayText (i)
Next
Trích dẫn:For i=LBound(ArrayText) to UBound(ArrayText)
Debug.Print ArrayText (i)
Next
ongke0711 > 22-01-17, 04:49 PM
(21-01-17, 11:36 AM)thanhtruong Đã viết: ví dụ:
Textbox 1 có nội dung là: "NGUYỄN THỊ A | NGUYỄN THỊ B | NGUYỄN THỊ C" cách nhau bỏi dấu |
Textbox 2 mình muốn lấy "NGUYỄN THỊ B" từ textbox 1 thì mình dùng hàm nào.
thanhtruong > 22-01-17, 06:01 PM
(22-01-17, 04:49 PM)ongke0711 Đã viết:(21-01-17, 11:36 AM)thanhtruong Đã viết: ví dụ:
Textbox 1 có nội dung là: "NGUYỄN THỊ A | NGUYỄN THỊ B | NGUYỄN THỊ C" cách nhau bỏi dấu |
Textbox 2 mình muốn lấy "NGUYỄN THỊ B" từ textbox 1 thì mình dùng hàm nào.
Bạn nói rõ hơn về cách. thức bạn tìm nhé. Bạn muốn tìm tên người đứng vi trí thứ 2 trong danh liệt kê (Textbox1) hay bạn gõ tên NGUYEN THI B rồi tìm trong Textbox1 có hay không? Hay muốn tách danh sách này thành nhưng tên riêng biệt nằm trên nhưng dòng khác nhau? hay như thế nào khác?
ongke0711 > 22-01-17, 10:23 PM
Option Compare Database
Option Explicit
Private Sub cmdXuLy_Click()
Dim x As String, ArrayText() As String
Dim i As Integer, stt As Integer
Dim db As DAO.Database
Set db = CurrentDb
db.Execute "DELETE * FROM tblListTemp"
x = Me.txtTextSplit
ArrayText = Split(x, "|")
stt = 0
For i = LBound(ArrayText) To UBound(ArrayText)
stt = stt + 1
db.Execute "INSERT INTO tblListTemp (Stt,Ten) " & _
"VALUES (" & stt & ",'" & Trim(ArrayText(i)) & "')", dbFailOnError
Next
Me.tblListTemp_subform.Requery
db.Close
End Sub
thanhtruong > 23-01-17, 08:10 AM
ongke0711 > 23-01-17, 05:55 PM
thanhtruong > 06-02-17, 11:16 AM
(23-01-17, 05:55 PM)ongke0711 Đã viết: Thì thay vì lưu vào table tạm tôi làm ví dụ, bạn thay nó bằng table lưu của bạn.
Tôi cũng không hiểu cấu trúc table bạn muốn lưu trong file demo. Bạn làm sao biết tách từ chuỗi ra bao nhiêu phần tử mà tạo sẳn 6 Field đặt tên tach1 -> tach6 ?? nếu có hơn 6 dòng tách ra thì sao?
Bạn làm lại logic xử lý nghiệp vụ này, lưu như thế nào cho khả thi chứ hiện tại thì tôi thấy không ổn rồi. Bạn nói rõ nghiệp vụ này, tôi xem đóng góp ý kiến thêm.