Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Help] phuoc_bhxhbl_Tạo code bậc thang Autonumber Reset
#11
(21-04-15, 12:22 PM)maidinhdan Đã viết: Tác giả câu hỏi: phuoc_bhxhbl

Yêu cầu: Tạo code có sự liên kết giữa 4 cột A B C D
Trong đó A B C D bị trói buộc bởi tb khai báo là chỉ được sắp xếp tối đa số lượng đã ghi

A phụ thuộc B-->C-->D

Hình minh họa
tbkhaibao là số cố định buộc cột D chỉ tăng đến 5, rồi lại bắt đầu từ 1 cư thế đến hết Record, Trong khi cột D đã nhảy đến hết 5 thì cột C lại tăng 2... cho đến khi hết giá trị được khai báo trong tbkhaibao. Đến khi C tăng đến hết 10 thì cột B sẽ bắt đầu là 2....
[Hình: m1.png]

Khi dùng code sẽ ra kết quả như vậy.
[Hình: m2.png]



Rất mong các cao thủ đóng góp về code này.

Tham gia một đoạn code như sau :

Mã PHP:
Sub Ghi()
    
Dim rsh As Recordsetrsk As RecordsetAs IntegerAs IntegerAs Integer
    Dim x 
As IntegerAs IntegerAs Integer
    Set rsh 
CurrentDb.OpenRecordset("tblHoSo"dbOpenTable)
    
Set rsk CurrentDb.OpenRecordset("tblKhaiBao"dbOpenTable)
    
rsk.Fields(1): rsk.Fields(2): rsk.Fields(3)
    
111
    rsh
.MoveFirst
    
Do Until rsh.EOF
        rsh
.Edit
        rsh
.Fields(4) = k
        rsh
.Fields(3) = j
        rsh
.Fields(2) = i
        rsh
.Fields(1) = 1
        k 
1
        
If 1 Then j 11
        
If 1 Then i 11
        
If 1 Then i 1
        rsh
.Update
        rsh
.MoveNext
    Loop
End Sub 

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 maidinhdan , Noname
#12

(23-04-15, 03:38 PM)phuoc_bhxhbl Đã viết:
(23-04-15, 02:59 PM)tranthanhan1962 Đã viết:
(23-04-15, 09:39 AM)phuoc_bhxhbl Đã viết: cám ơn anh rất nhiều, a rãnh xem cái này dùm e. mục đích của e là như ví dụ bên dưới.
http://www.mediafire.com/download/ffho1k...9/heps.rar

Cái này dễ mà bạn. Đưa table hosotokhai vào ứng dụng. Bạn cập nhật table tbkhaibao theo ý bạn, tạo lại giá trị lại table tbhoso. thiết đặt STT trên table hosotokhai theo ý mình. Xong tạo 1 query tạo một Select query với 2 table (hosotokhai và tbhoso) có liên kết quan hệ 2 trường STT với nhau. Nên tạo quan hệ trong query chứ không cần tạo quan hệ trong relationships (Vì nếu tạo quan hệ trong relationships bạn cần phải đặt khóa chính cho trường STT của table tbhoso mà ứng dụng của bạn không cần đều này). Bạn cần sử dụng field nào trong query thì cứ lấy ra xài thôi. Các trường A, B, C, D của query mới tạo chính là nhà kệ tầng hộp. Lưu ý: Bạn không cần field STTtam đâu. Khi STT của các record mà bạn tạo trên table hosotokhai có quan hệ với STT của các record trên table tbhoso trên query nó sẽ đặt đúng hồ sơ của hosotokhai vào vị trí kệ, tầng, hộp...của tbhoso. Dễ thôi mà. Mình nghĩ bạn dư sức làm việc này theo đúng ý của bạn. Chúc bạn thành công.

hihihi e hiểu ý a rồi. nhưng vấn đề ở đây là khi "định vị lưu trữ" những mẫu tin nào được chọn mới tự động tăng. còn những mẫu tin không được chọn thì sẽ giữ nguyên.a nghiên cứu thử xem, làm phiền a nhiều rồi hihiih. ah a có cách nào tạo nút "check all" không? khi đánh vào nó sẽ chọn hết những mẫu tin.
cảm ơn a nhiều lắm.007007
Bạn không nên dồn chung 2 tbhoso và hosotokhai thành 1. Hai tbhoso (quản lý số tứ tự vị trí) và hosotokhai (quản lý số thứ tự hồ sơ) thực chất là 2 table không liên kết. Chúng chỉ liên kết khi gọi query. Các record Table tbhoso chỉ thay đổi khi ta thiết đặt lại giá trị tbkhaibao và xử lý qua form. Table hosotokhai là do bạn nhập dữ liệu các hồ sơ của bạn, bạn cho STT của các record là bao nhiêu thì thông qua query nó sẽ tìm đến vị trí của nó tại table tbhoso (có STT giống như nó). Vì vậy vấn đề tăng của trường STT của hosotokhai không liên quan gì đến tbhoso cả. Bạn muốn xử lý kiểu gì trên table này tùy thích (Ví dụ bạn đổi vị trí hồ sơ ABC trên ngăn của tbhoso thì bạn chỉ cần đổi STT của record ABC trên hosotokhai là xong)
Của bạn đây
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 , phuoc_bhxhbl
#13
(23-04-15, 06:50 PM)Xuân Thanh Đã viết:
(21-04-15, 12:22 PM)maidinhdan Đã viết: Tác giả câu hỏi: phuoc_bhxhbl

Yêu cầu: Tạo code có sự liên kết giữa 4 cột A B C D
Trong đó A B C D bị trói buộc bởi tb khai báo là chỉ được sắp xếp tối đa số lượng đã ghi

A phụ thuộc B-->C-->D

Hình minh họa
tbkhaibao là số cố định buộc cột D chỉ tăng đến 5, rồi lại bắt đầu từ 1 cư thế đến hết Record, Trong khi cột D đã nhảy đến hết 5 thì cột C lại tăng 2... cho đến khi hết giá trị được khai báo trong tbkhaibao. Đến khi C tăng đến hết 10 thì cột B sẽ bắt đầu là 2....
[Hình: m1.png]

Khi dùng code sẽ ra kết quả như vậy.
[Hình: m2.png]



Rất mong các cao thủ đóng góp về code này.

Tham gia một đoạn code như sau :

Mã PHP:
Sub Ghi()
    
Dim rsh As Recordsetrsk As RecordsetAs IntegerAs IntegerAs Integer
    Dim x 
As IntegerAs IntegerAs Integer
    Set rsh 
CurrentDb.OpenRecordset("tblHoSo"dbOpenTable)
    
Set rsk CurrentDb.OpenRecordset("tblKhaiBao"dbOpenTable)
    
rsk.Fields(1): rsk.Fields(2): rsk.Fields(3)
    
111
    rsh
.MoveFirst
    
Do Until rsh.EOF
        rsh
.Edit
        rsh
.Fields(4) = k
        rsh
.Fields(3) = j
        rsh
.Fields(2) = i
        rsh
.Fields(1) = 1
        k 
1
        
If 1 Then j 11
        
If 1 Then i 11
        
If 1 Then i 1
        rsh
.Update
        rsh
.MoveNext
    Loop
End Sub 

Thân mến

Number One, Tuyệt vời bạn ạ. Đúng là có những việc rất đơn giản mà mình lại phức tạp nó đi. Mình thực sự khâm phục bạn. Mình đề nghị bạn phuoc_bhxhbl chuyển code này vào vd của của bạn ấy.
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 , Noname , phuoc_bhxhbl , Minh Tiên
#14
ok quá hay. cảm ơn Xuân Thanh, tranthanhan1962, maidinhdan rất nhiều. đúng là cao cao thủ. bái phục
Chữ ký của phuoc_bhxhbl Xin chào, mình là phuoc_bhxhbl, Tham gia http://thuthuataccess.com/forum từ ngày 10-06 -14.
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] Viết code có điều kiện " lệnh Chạy tiếp khi đóng tbl cho sẵn" Trần Linh 3 137 21-10-16, 11:11 AM
Bài mới nhất: Minh Tiên
  Giải thích ý nghĩ của đoạn code feeling 3 192 06-10-16, 10:18 AM
Bài mới nhất: vulhu06
  [Thủ Thuật] [Share Code] Demo Quay số trúng thưởng theo danh sách trong table maidinhdan 9 1,496 10-03-16, 11:43 AM
Bài mới nhất: phamlong24
  [Help] viết code lấy dữ liệu từ sheet khác thanhquyt 1 265 14-02-16, 11:40 AM
Bài mới nhất: Xuân Thanh
  Phân tích code thanhquyt 3 326 22-01-16, 12:05 AM
Bài mới nhất: thanhquyt

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ơ