Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Help] Tự động lưu dữ liệu trên textbox vào table
#11
(05-11-15, 12:55 AM)tranthanhan1962 Đã viết:
(04-11-15, 05:26 PM)jason Đã viết: Cảm ơn Bác quan tâm, Bác xem giúp code của mình thử nhé vẫn không được, phải click qua txtbox khác mới lưu được:
 
Private Sub txtCartonBarcode_AfterUpdate()
    Dim DB As Database
    Dim RS As Recordset
    Set DB = CurrentDb()
    Set RS = DB.OpenRecordset("TCartonScan", dbOpenTable)   
             
        RS.AddNew
                RS.Fields(0) = Me.txtCartonCode
                RS.Fields(1) = Me.txtCartonBarcode
                'RS.Fields(2) = Me.txtcolor
                'RS.Fields(3) = Me.txtbuyer
                'RS.Fields(4) = Me.txtqty
                'RS.Fields(5) = Me.txtcustdesc           
       
        RS.Update
        
            MsgBox "Saved!"
            RS.Close
          
        Set DB = Nothing
        
    Me.Query5.Requery
 
End Sub

thanks

Sau bạn không tạo form có record source là TCartonScan cho đỡ phải xử lý. Mình không biết phần mềm mã vạch của bạn dùng để xử lý cái gì. Kinh nghiệm của mình khi viết mã vạch cho các phần mềm bán hàng (tạp hóa, vàng bạc...) mình vẫn tạo form có record source là table. Thiết đặt textbox có control source MAVACH (mã vạch) có Auto Tab = Yes, Tab Stop = Yes, Tab Index = 0. Viết code cho MAVACH_Exit xử lý các field còn lại (phần mua hàng còn cho nhảy vào ô số lượng chứ bán hàng thì số lượng cứ default value = 1 quét xong nhảy luôn qua record mới). Máy quét mã vạch chẳng qua cũng chỉ là một bàn phím thôi mà  007
Tại vì mình có một điều kiện nữa nên không dùng cách đó, mình sẽ thử lại, nếu không được mình sẽ post bài lên để mọi người hiểu rõ hơn.
Rất cảm ơn bạn.
Chữ ký của jason Học ...học nữa và học mãi 53_53 !

ღღღღღTài sản của jason (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#12
(06-11-15, 05:20 PM)jason Đã viết:
(05-11-15, 12:55 AM)tranthanhan1962 Đã viết: Sau bạn không tạo form có record source là TCartonScan cho đỡ phải xử lý. Mình không biết phần mềm mã vạch của bạn dùng để xử lý cái gì. Kinh nghiệm của mình khi viết mã vạch cho các phần mềm bán hàng (tạp hóa, vàng bạc...) mình vẫn tạo form có record source là table. Thiết đặt textbox có control source MAVACH (mã vạch) có Auto Tab = Yes, Tab Stop = Yes, Tab Index = 0. Viết code cho MAVACH_Exit xử lý các field còn lại (phần mua hàng còn cho nhảy vào ô số lượng chứ bán hàng thì số lượng cứ default value = 1 quét xong nhảy luôn qua record mới). Máy quét mã vạch chẳng qua cũng chỉ là một bàn phím thôi mà  007
Tại vì mình có một điều kiện nữa nên không dùng cách đó, mình sẽ thử lại, nếu không được mình sẽ post bài lên để mọi người hiểu rõ hơn.
Rất cảm ơn bạn.
Bạn cứ thiết đặt textbox nhận mã vạch như cách mình nêu trên. Xem mã vạch có bao nhiệu ký tự. Thiết đặt Field Size của nó trong table = số ký tự mã vạch. Event Change của nó có lệnh DoCmd.GoToControl "abc nào đó" hoặc DoCmd.GoToRecord , , acNewRec, thiết đặt Auto Tab = Yes buột con trỏ nhảy ra khỏi textbox nhận mã vạch để thực hiện lệnh Goto... vì textbox đã nhận đủ ký tự, lúc này các event AfterUpdate, Change mới có hiệu lực. Lúc này chỉ cần máy quét mã vạch báo "tissss" là chạy.  007
Chữ ký của tranthanhan1962 Kết quả cuối cùng của một đời người, không phải bạn có được bao nhiêu tiền bạc, tài sản. Mà bạn còn bao nhiêu người bạn  thumbs up
ღღღღღTài sản của tranthanhan1962 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn maidinhdan
#13
(07-11-15, 02:06 PM)tranthanhan1962 Đã viết:
(06-11-15, 05:20 PM)jason Đã viết:
(05-11-15, 12:55 AM)tranthanhan1962 Đã viết: Sau bạn không tạo form có record source là TCartonScan cho đỡ phải xử lý. Mình không biết phần mềm mã vạch của bạn dùng để xử lý cái gì. Kinh nghiệm của mình khi viết mã vạch cho các phần mềm bán hàng (tạp hóa, vàng bạc...) mình vẫn tạo form có record source là table. Thiết đặt textbox có control source MAVACH (mã vạch) có Auto Tab = Yes, Tab Stop = Yes, Tab Index = 0. Viết code cho MAVACH_Exit xử lý các field còn lại (phần mua hàng còn cho nhảy vào ô số lượng chứ bán hàng thì số lượng cứ default value = 1 quét xong nhảy luôn qua record mới). Máy quét mã vạch chẳng qua cũng chỉ là một bàn phím thôi mà  007
Tại vì mình có một điều kiện nữa nên không dùng cách đó, mình sẽ thử lại, nếu không được mình sẽ post bài lên để mọi người hiểu rõ hơn.
Rất cảm ơn bạn.
Bạn cứ thiết đặt textbox nhận mã vạch như cách mình nêu trên. Xem mã vạch có bao nhiệu ký tự. Thiết đặt Field Size của nó trong table = số ký tự mã vạch. Event Change của nó có lệnh DoCmd.GoToControl "abc nào đó" hoặc DoCmd.GoToRecord , , acNewRec, thiết đặt Auto Tab = Yes buột con trỏ nhảy ra khỏi textbox nhận mã vạch để thực hiện lệnh Goto... vì textbox đã nhận đủ ký tự, lúc này các event AfterUpdate, Change mới có hiệu lực. Lúc này chỉ cần máy quét mã vạch báo "tissss" là chạy.  007
Xin Chào bạn,
mình có làm thử cách của bạn hướng dẫn nhưng vẫn chưa được !
mình up file lên bạn xem giúp mình cái nha: http://www.mediafire.com/download/m6mb7b...anning.mdb
ở file này mình có những vẫn đề sao chưa làm được mong bạn giúp đỡ:
1. khi scan bằng máy scan đọc mã vạch không tự động lưu vào table được, phải click chuột vào txtbox khác mới lưu được.
2. khi chọn New Scan hoặc Continue Scan thì khi scan mã vạch, em muốn cột CartonQty sẽ reset lại ban đầu và tăng dần theo mã CartonCode đã chọn( giống như 1 mã CartonCode có 1,2,3,4... số của CartonQty)
3. khi chọn Continue Scan thì sẽ chọn mã đã scan lở dỡ trước đó và cột CartonQty sẽ tiếp tục tăng (không có reset lại)
rất mong bạn và anh em trong diễn đàn giúp đỡ.

chân thành cảm ơn, nếu được bác nào có dịp lên tây ninh em dẫn đi cafe ạ !
Chữ ký của jason Học ...học nữa và học mãi 53_53 !

ღღღღღTài sản của jason (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#14
(17-11-15, 09:07 PM)jason Đã viết: Xin Chào bạn,
mình có làm thử cách của bạn hướng dẫn nhưng vẫn chưa được !
mình up file lên bạn xem giúp mình cái nha: http://www.mediafire.com/download/m6mb7b...anning.mdb
ở file này mình có những vẫn đề sao chưa làm được mong bạn giúp đỡ:
1. khi scan bằng máy scan đọc mã vạch không tự động lưu vào table được, phải click chuột vào txtbox khác mới lưu được.
2. khi chọn New Scan hoặc Continue Scan thì khi scan mã vạch, em muốn cột CartonQty sẽ reset lại ban đầu và tăng dần theo mã CartonCode đã chọn( giống như 1 mã CartonCode có 1,2,3,4... số của CartonQty)
3. khi chọn Continue Scan thì sẽ chọn mã đã scan lở dỡ trước đó và cột CartonQty sẽ tiếp tục tăng (không có reset lại)
rất mong bạn và anh em trong diễn đàn giúp đỡ.

chân thành cảm ơn, nếu được bác nào có dịp lên tây ninh em dẫn đi cafe ạ !
Thời gian này mình đang bận nhưng cũng tranh thủ tải csdl của bạn xem thử. Nhưng mình không nhận diện được field nào của bạn là barcode. Về nguyên tắc barcode của hàng hóa phải có thống nhất số lượng ký tự cho từng tiêu chuẩn cho hàng hóa (trong khi đó sổ lượng ký tự barcode, số lượng ký tự tiêu chuẩn, rồi vị trí không thống nhất) 
Ví dụ: 4-05522D-D-4500035081-150-TUMI GERMANY và 6-Z32009004-009-4500064477-70-SAMSONITE LATIN AMERICA.
Nếu sai quy chuẩn thì khó lòng xử lý được theo phương pháp tự động. Nếu barcode do bạn tự xây dựng thì bạn phải ấn định số lượng ký tự lại cho chuẩn. Trên thế giới có các chuẩn như EAN-13 (13 ký tự) EAN-8 (8 ký tự)... Kể cả việt nam cũng có chuẩn EAN-VN 5 số. Ngay mã vạch tên nước cũng có 3 vị trí ký tự. Nếu hàng hóa của bạn nhiều loại với nhiều chuẩn đăng ký barcode khác nhau. Bạn phải tạo các field khác nhau để quản lý số lượng ký tự (nguyên tắc khi máy quét đủ vị trí ký tự thì Auto Tab mới hoạt động)
Chữ ký của tranthanhan1962 Kết quả cuối cùng của một đời người, không phải bạn có được bao nhiêu tiền bạc, tài sản. Mà bạn còn bao nhiêu người bạn  thumbs up
ღღღღღTài sản của tranthanhan1962 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Noname , maidinhdan
#15
(18-11-15, 06:45 PM)tranthanhan1962 Đã viết: Thời gian này mình đang bận nhưng cũng tranh thủ tải csdl của bạn xem thử. Nhưng mình không nhận diện được field nào của bạn là barcode. Về nguyên tắc barcode của hàng hóa phải có thống nhất số lượng ký tự cho từng tiêu chuẩn cho hàng hóa (trong khi đó sổ lượng ký tự barcode, số lượng ký tự tiêu chuẩn, rồi vị trí không thống nhất) 
Ví dụ: 4-05522D-D-4500035081-150-TUMI GERMANY và 6-Z32009004-009-4500064477-70-SAMSONITE LATIN AMERICA.
Nếu sai quy chuẩn thì khó lòng xử lý được theo phương pháp tự động. Nếu barcode do bạn tự xây dựng thì bạn phải ấn định số lượng ký tự lại cho chuẩn. Trên thế giới có các chuẩn như EAN-13 (13 ký tự) EAN-8 (8 ký tự)... Kể cả việt nam cũng có chuẩn EAN-VN 5 số. Ngay mã vạch tên nước cũng có 3 vị trí ký tự. Nếu hàng hóa của bạn nhiều loại với nhiều chuẩn đăng ký barcode khác nhau. Bạn phải tạo các field khác nhau để quản lý số lượng ký tự (nguyên tắc khi máy quét đủ vị trí ký tự thì Auto Tab mới hoạt động)

Vâng, VD trên của bạn là mã CartonCode(mã thùng) không phải là mã vạch, field mã vạch là CartonBarcode.( và mã vạch mình không giới hạn ký tự vì mã vạch chưa biết được mã vạch là loại nào. mã vạch này do khách hàng cho. Mà mỗi một mã hàng thì có một mã vạch khác nhau ).
mình xin nói rỏ hơn :
khi mình chọn được mã hàng cần scan mình nhấn nút "Select"(ở đây mình có viết code cho lưu vào table khác) nếu mã hàng mới thì nút "New Scan" sẽ được enable -> chọn nút "New Scan" thì txt (CartonBarcode) để nhập mã vạch enable lên ở đây mình sẽ nhập mã vạch và lưu vào table dưới. tương tự nếu mã hàng được chọn đã có scan hàng rồi thì nút " Continue Scan" sẽ được enable .
khi scan mã vạch em muốn tự động lưu vào table: nếu chọn nút " New Scan thì cột CartonQty(auto number) sẽ reset lại và bắt đầu là 1, nếu chọn nút " Continue Scan" thì khi lưu cột CartonQty(auto number) sẽ tiếp tục tăng dần lên.

vấn đề này em đã tìm rất nhiều trên diễn đàn nhưng vẫn chưa được. kiến thức về access quả thật rất ít ỏi chỉ mong được học hỏi thêm  hic  021
Chữ ký của jason Học ...học nữa và học mãi 53_53 !

ღღღღღTài sản của jason (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#16
mong các pro giúp với ạ 
thanks all !
Chữ ký của jason Học ...học nữa và học mãi 53_53 !

ღღღღღTài sản của jason (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#17
020
Chữ ký của jason Học ...học nữa và học mãi 53_53 !

ღღღღღTài sản của jason (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#18
Để lưu record sao bạn không làm cái thủ thuật: AfterUpdate cái textbox barcode bạn move con trỏ qua control khác (ví dụ: cmdClose.SetFocus) rồi trả trỏ về txtBarcode.SetFocus
Chữ ký của ongke0711 If you BORN poor, it's not your mistake. But if you DIE poor, It's your mistake!
ღღღღღTài sản của ongke0711 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#19
(21-11-15, 11:17 PM)ongke0711 Đã viết: Để lưu record sao bạn không làm cái thủ thuật: AfterUpdate cái textbox barcode bạn move con trỏ qua control khác (ví dụ: cmdClose.SetFocus) rồi trả trỏ về txtBarcode.SetFocus

trước tiên cảm ơn bạn,
mình làm thử rồi nhưng vẫn không được. không biết có vận dụng đúng không nữa. bạn xem giúp nha:

Private Sub txtCartonBarcode_AfterUpdate()
  
    Dim DB As Database
    Dim RS As Recordset
    Set DB = CurrentDb()
    Set RS = DB.OpenRecordset("TCartonScan", dbOpenTable)
                 
        RS.AddNew
                RS.Fields(0) = Me.txtCartonCode
                RS.Fields(1) = Me.txtCartonBarcode
                             
        RS.Update
        RS.Close
              
        Set DB = Nothing
        
    If [Forms]![FScan]![txtCartonBarcode] & " " <> " " Then
        Me.txtCartonCode.SetFocus
        Me.Query5.Requery
          
        'Me.Form.Requery
        
        Me.txtCartonBarcode = ""
        Me.txtCartonBarcode.SetFocus
    
    End If
    
End Sub
Chữ ký của jason Học ...học nữa và học mãi 53_53 !

ღღღღღTài sản của jason (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#20
Theo mình thấy máy scan mã vạch sau khi đọc 1 mã vạch thì phát tiếng tít, tương đương gởi lệnh enter lên máy tính( bạn thấy khi mình cho quét vào Excel hay Word thì con trỏ nhảy xuống dòng ngay sau tiếng tít không). Do vậy bạn chỉ cần tạo 1 nút lệnh, ở event on click bạn cho thực hiện lệnh gì bạn muốn(lưu, go to record...), ở tab other của nút lệnh đó, bạn chọn default=yes là được. Vì khi máy quét tít tức là nút lệnh nhận lệnh thực hiện luôn.
Chúc bạn thành công
Chữ ký của nguyenichtri Chia sẻ chân thành là cách thêm kiến thức cho mình và bạn bè.
014
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ách thêm dữ liệu vào form Main_Sub NganNguyen 1 29 8 Giờ trước
Bài mới nhất: maidinhdan
  Tự động hiện Form khi loading hết thời gian ChiMai 1 43 02-12-16, 08:59 PM
Bài mới nhất: ongke0711
  [Help] Cập nhật combobox 2 từ combobox 1 (dữ liệu ở nhiều bảng) votinh.tq 6 202 22-11-16, 11:34 PM
Bài mới nhất: votinh.tq
Photo [Hỏi] Mở Form trên access 2007 báo lỗi jason 5 193 22-11-16, 09:23 AM
Bài mới nhất: jason
  Query hiện lên trên form? feeling 4 164 09-11-16, 09:49 PM
Bài mới nhất: toancvp

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ơ