Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Help] xu ly code quay về
#1
- Các bác giúp em với: Em có command button Quay về
+ Nút Quay về cho phép trờ lại các thao tác ở các text box trước, em muốn làm thêm cho no có thể xử lý command button luôn là co thể quay về trang thái ban đầu trước khi ta tác động vào nút đó (ví dụ: em co nút thêm khi nhấn vao nút thêm no trờ thành nút lưu khi đó em muốn khi nhấn nút quay về khong chỉ các text box quay về mà nút lưu cung quay lại thành nút thêm)
+ Link bài em ne máy bác xem giúp ạ
http://www.mediafire.com/download/2py34z...mgy/an.rar
Chữ ký của nguyenhoangbanhan Xin chào, mình là nguyenhoangbanhan, Tham gia http://thuthuataccess.com/forum từ ngày 09-06 -15.
Reply
Những người đã cảm ơn
#2
(11-06-15, 01:43 AM)nguyenhoangbanhan Đã viết: em co nút thêm khi nhấn vao nút thêm no trờ thành nút lưu khi đó em muốn khi nhấn nút quay về khong chỉ các

1. Muốn nút nào Ẩn đi thì cú pháp đơn giản
tennut1.Visible=False

2. Sau đó dùng lệnh SetFocus di chuyển đến Nút khác nếu không nó báo lỗi, cú pháp
tennut2.SetFocus

=> Từ 1+2 ta sẽ có cú pháp cho bài bạn như sau,
Gọi Nút thêm là cmdthem, Nút Lưu là cmdLuu, Nút quay về là cmdQuayve

****Ở nút Thêm chèn code sau vào sự kiện Click:
Mã PHP:
cmdthem.Visible=False 
cmdLuu
.Visible=True  mặc định nút này Visible=False )
cmdQuayve.SetFocus 

****Ở nút Lưu chèn code sau vào sự kiện Click:
Mã PHP:
cmdLuu.Visible=False
cmdthem
.Visible=True 
cmdQuayve
.SetFocus 

****Ở nút Quay về chèn code sau vào sự kiện Click:
Mã PHP:
cmdLuu.Visible=False
cmdthem
.Visible=True 

Chúc bạn thành công, Mạng rất yếu nên không tải file bạn về được, chỉ còn cách chỉ như vậy thôi.
Thân mến!
Chữ ký của maidinhdan * Để được hỗ trợ tốt nhất, nhấn vào link dưới đây để xem.
1. [Hướng dẫn] Kiểu file gửi lên để được giúp đỡ
2. [Hướng dẫn] Nội quy diễn đàn
3. [Hướng dẫn] Cách Đưa file và hình vào diễn đàn
4.[Hướng dẫn] Để xây dựng một ứng dụng hoàn hảo và lời cảm tạ
5. Cần tìm Demo hay ứng dụng sử dụng thanh tìm kiếm phía trên cùng, bên phải của diễn đàn.
* Nếu muốn cảm ơn, hãy nhấn nút thank, không cần viết thêm bài nào nửa.



ღღღღღTài sản của maidinhdan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn nguyenhoangbanhan
#3
(11-06-15, 11:56 AM)maidinhdan Đã viết:
(11-06-15, 01:43 AM)nguyenhoangbanhan Đã viết: em co nút thêm khi nhấn vao nút thêm no trờ thành nút lưu khi đó em muốn khi nhấn nút quay về khong chỉ các

1. Muốn nút nào Ẩn đi thì cú pháp đơn giản
tennut1.Visible=False

2. Sau đó dùng lệnh SetFocus di chuyển đến Nút khác nếu không nó báo lỗi, cú pháp
tennut2.SetFocus

=> Từ 1+2 ta sẽ có cú pháp cho bài bạn như sau,
Gọi Nút thêm là cmdthem, Nút Lưu là cmdLuu, Nút quay về là cmdQuayve

****Ở nút Thêm chèn code sau vào sự kiện Click:
Mã PHP:
cmdthem.Visible=False 
cmdLuu
.Visible=True  mặc định nút này Visible=False )
cmdQuayve.SetFocus 

****Ở nút Lưu chèn code sau vào sự kiện Click:
Mã PHP:
cmdLuu.Visible=False
cmdthem
.Visible=True 
cmdQuayve
.SetFocus 

****Ở nút Quay về chèn code sau vào sự kiện Click:
Mã PHP:
cmdLuu.Visible=False
cmdthem
.Visible=True 

Chúc bạn thành công, Mạng rất yếu nên không tải file bạn về được, chỉ còn cách chỉ như vậy thôi.
Thân mến!
- Nếu code nút thêm với nút lưu của em nằm trong 1 nút thì phải làm sao anh maidinhdan, chi co 1 nut nhung em viet code khi nhap nut them thi thanh nut luu
Chữ ký của nguyenhoangbanhan Xin chào, mình là nguyenhoangbanhan, Tham gia http://thuthuataccess.com/forum từ ngày 09-06 -15.
Reply
Những người đã cảm ơn
#4
(11-06-15, 02:36 PM)nguyenhoangbanhan Đã viết:
(11-06-15, 11:56 AM)maidinhdan Đã viết:
(11-06-15, 01:43 AM)nguyenhoangbanhan Đã viết: em co nút thêm khi nhấn vao nút thêm no trờ thành nút lưu khi đó em muốn khi nhấn nút quay về khong chỉ các

1. Muốn nút nào Ẩn đi thì cú pháp đơn giản
tennut1.Visible=False

2. Sau đó dùng lệnh SetFocus di chuyển đến Nút khác nếu không nó báo lỗi, cú pháp
tennut2.SetFocus

=> Từ 1+2 ta sẽ có cú pháp cho bài bạn như sau,
Gọi Nút thêm là cmdthem, Nút Lưu là cmdLuu, Nút quay về là cmdQuayve

****Ở nút Thêm chèn code sau vào sự kiện Click:
Mã PHP:
cmdthem.Visible=False 
cmdLuu
.Visible=True  mặc định nút này Visible=False )
cmdQuayve.SetFocus 

****Ở nút Lưu chèn code sau vào sự kiện Click:
Mã PHP:
cmdLuu.Visible=False
cmdthem
.Visible=True 
cmdQuayve
.SetFocus 

****Ở nút Quay về chèn code sau vào sự kiện Click:
Mã PHP:
cmdLuu.Visible=False
cmdthem
.Visible=True 

Chúc bạn thành công, Mạng rất yếu nên không tải file bạn về được, chỉ còn cách chỉ như vậy thôi.
Thân mến!
- Nếu code nút thêm với nút lưu của em nằm trong 1 nút thì phải làm sao anh maidinhdan, chi co 1 nut nhung em viet code khi nhap nut them thi thanh nut luu

Để làm một code để xử lý cho một button đa nhiệm. Bạn căn cứ theo phương pháp nầy rồi xử lý thoải mái.
Giả sử bạn có một nút lệnh tên là nutdanhiem có các nhiệm vụ sau:
Khi nút nhãn (caption) là nhiemvu1 sẽ xử lý công việc thứ nhất sau đó chuyển caption là nhiemvu2 sẽ xử lý công việc thứ 2, tiếp tục caption2 xử lý nhiệm vụ 3 .....captionN xử lý nhiệm vụ N rồi sẽ trở về caption1 để xử lý nhiệm vụ thứ nhất.
Code này như sau:

Mã PHP:
Private Sub nutdanhiem_Click()

    
Select Case nutdanhiem.Caption
        
Case Is "nhiemvu1"
         
Lệnh xử lý nhiệm vụ 1
          nutdanhiem
.Caption "nhiemvu2"
        
Case Is "nhiemvu2"
         
Lệnh xử lý nhiệm vụ 2
          nutdanhiem
.Caption "nhiemvu3"
        
Case Is "nhiemvu3"
          
Lệnh xử lý nhiệm vụ 3
          nutdanhiem
.Caption "nhiemvu4"
          
................
        Case 
Is "nhiemvuN"
          
Lệnh xử lý nhiệm vụ N
          nutdanhiem
.Caption "nhiemvu1"
    
End Select

End Sub 

Trường hợp khi nutdanhiem_Click có ảnh hưởng đến nút khác ta xử lý thêm phần code trong biến của case

Mã PHP:
Private Sub nutdanhiem_Click()

    
Select Case nutdanhiem.Caption
       
..................
        Case 
Is "nhiemvuK"
         
Lệnh xử lý nhiệm vụ K
          nutdanhiem
.Caption "nhiemvuL"
         
nutdanhiem1.Caption "nhiemvuX"
          
nutdanhiem2.Caption "nhiemvuY"
          
................
    
End Select

End Sub 

Tất nhiên các nutdanhiem1, nutdanhiem2 đều có những code nut_Click() tương ứng để xử lý
Chú ý nếu font chữ của caption button là font Unicode có dấu bạn phải đổi thành mã Unicode. Bạn Noname cũng đã có một chủ đề để xử lý việc đổi mã này. Bạn có thể tham khảo ở đâ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 nguyenhoangbanhan
#5
(11-06-15, 05:31 PM)tranthanhan1962 Đã viết:
(11-06-15, 02:36 PM)nguyenhoangbanhan Đã viết:
(11-06-15, 11:56 AM)maidinhdan Đã viết:
(11-06-15, 01:43 AM)nguyenhoangbanhan Đã viết: em co nút thêm khi nhấn vao nút thêm no trờ thành nút lưu khi đó em muốn khi nhấn nút quay về khong chỉ các

1. Muốn nút nào Ẩn đi thì cú pháp đơn giản
tennut1.Visible=False

2. Sau đó dùng lệnh SetFocus di chuyển đến Nút khác nếu không nó báo lỗi, cú pháp
tennut2.SetFocus

=> Từ 1+2 ta sẽ có cú pháp cho bài bạn như sau,
Gọi Nút thêm là cmdthem, Nút Lưu là cmdLuu, Nút quay về là cmdQuayve

****Ở nút Thêm chèn code sau vào sự kiện Click:
Mã PHP:
cmdthem.Visible=False 
cmdLuu
.Visible=True  mặc định nút này Visible=False )
cmdQuayve.SetFocus 

****Ở nút Lưu chèn code sau vào sự kiện Click:
Mã PHP:
cmdLuu.Visible=False
cmdthem
.Visible=True 
cmdQuayve
.SetFocus 

****Ở nút Quay về chèn code sau vào sự kiện Click:
Mã PHP:
cmdLuu.Visible=False
cmdthem
.Visible=True 

Chúc bạn thành công, Mạng rất yếu nên không tải file bạn về được, chỉ còn cách chỉ như vậy thôi.
Thân mến!
- Nếu code nút thêm với nút lưu của em nằm trong 1 nút thì phải làm sao anh maidinhdan, chi co 1 nut nhung em viet code khi nhap nut them thi thanh nut luu

Để làm một code để xử lý cho một button đa nhiệm. Bạn căn cứ theo phương pháp nầy rồi xử lý thoải mái.
Giả sử bạn có một nút lệnh tên là nutdanhiem có các nhiệm vụ sau:
Khi nút nhãn (caption) là nhiemvu1 sẽ xử lý công việc thứ nhất sau đó chuyển caption là nhiemvu2 sẽ xử lý công việc thứ 2, tiếp tục caption2 xử lý nhiệm vụ 3 .....captionN xử lý nhiệm vụ N rồi sẽ trở về caption1 để xử lý nhiệm vụ thứ nhất.
Code này như sau:

Mã PHP:
Private Sub nutdanhiem_Click()

    
Select Case nutdanhiem.Caption
        
Case Is "nhiemvu1"
         
Lệnh xử lý nhiệm vụ 1
          nutdanhiem
.Caption "nhiemvu2"
        
Case Is "nhiemvu2"
         
Lệnh xử lý nhiệm vụ 2
          nutdanhiem
.Caption "nhiemvu3"
        
Case Is "nhiemvu3"
          
Lệnh xử lý nhiệm vụ 3
          nutdanhiem
.Caption "nhiemvu4"
          
................
        Case 
Is "nhiemvuN"
          
Lệnh xử lý nhiệm vụ N
          nutdanhiem
.Caption "nhiemvu1"
    
End Select

End Sub 

Trường hợp khi nutdanhiem_Click có ảnh hưởng đến nút khác ta xử lý thêm phần code trong biến của case

Mã PHP:
Private Sub nutdanhiem_Click()

    
Select Case nutdanhiem.Caption
       
..................
        Case 
Is "nhiemvuK"
         
Lệnh xử lý nhiệm vụ K
          nutdanhiem
.Caption "nhiemvuL"
         
nutdanhiem1.Caption "nhiemvuX"
          
nutdanhiem2.Caption "nhiemvuY"
          
................
    
End Select

End Sub 

Tất nhiên các nutdanhiem1, nutdanhiem2 đều có những code nut_Click() tương ứng để xử lý
Chú ý nếu font chữ của caption button là font Unicode có dấu bạn phải đổi thành mã Unicode. Bạn Noname cũng đã có một chủ đề để xử lý việc đổi mã này. Bạn có thể tham khảo ở đây.
code quay ve cua em nhu the nay roi
Mã PHP:
Private Sub quayve_Click()
MaVT.SetFocus
If Me.Dirty Then DoCmd.RunCommand acCmdGoBack
DoCmd
.GoToRecord , , acFirst
End Sub 
lam cach nao no co the quay ve khong chi cac txet box ma con quay ve luon ca cac comand button k da, (vi du em khi nhap nut them no chuyen thanh nut luu khi em nhan quay ve thi no tro lai nut them, nut them va luu cua em cung 1 command button nha)
Chữ ký của nguyenhoangbanhan Xin chào, mình là nguyenhoangbanhan, Tham gia http://thuthuataccess.com/forum từ ngày 09-06 -15.
Reply
Những người đã cảm ơn
#6
(17-06-15, 12:06 PM)nguyenhoangbanhan Đã viết: code quay ve cua em nhu the nay roi
Mã PHP:
Private Sub quayve_Click()
MaVT.SetFocus
If Me.Dirty Then DoCmd.RunCommand acCmdGoBack
DoCmd
.GoToRecord , , acFirst
End Sub 
lam cach nao no co the quay ve khong chi cac txet box ma con quay ve luon ca cac comand button k da, (vi du em khi nhap nut them no chuyen thanh nut luu khi em nhan quay ve thi no tro lai nut them, nut them va luu cua em cung 1 command button nha)

Mình có nói ở trên đó, cho nút lưu nó ẩn đi ( Visible = No) và để nút Thêm + Lưu chồng lên nhau
Như vậy khi mở form lên bạn chỉ nhìn thấy nút thêm và nút Quay về thôi, Đến khi nhấn nút thêm thì nhìn chỉ nhìn thấy nút Lưu + QUay về, lúc này nút thêm nó ẩn rồi.

Nhưng tốt nhất đừng để chồng lên nhau.
Thân mến!
Chữ ký của maidinhdan * Để được hỗ trợ tốt nhất, nhấn vào link dưới đây để xem.
1. [Hướng dẫn] Kiểu file gửi lên để được giúp đỡ
2. [Hướng dẫn] Nội quy diễn đàn
3. [Hướng dẫn] Cách Đưa file và hình vào diễn đàn
4.[Hướng dẫn] Để xây dựng một ứng dụng hoàn hảo và lời cảm tạ
5. Cần tìm Demo hay ứng dụng sử dụng thanh tìm kiếm phía trên cùng, bên phải của diễn đàn.
* Nếu muốn cảm ơn, hãy nhấn nút thank, không cần viết thêm bài nào nửa.



ღღღღღTài sản của maidinhdan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn nguyenhoangbanhan


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Help] xu li code nut xoa nguyenhoangbanhan 2 428 17-06-15, 05:56 PM
Bài mới nhất: maidinhdan
  [Help] code nut them, cap nhat, sua, xoa, huy, quay ve nguyenhoangbanhan 9 1,219 14-06-15, 09:21 PM
Bài mới nhất: cpucloi
  [Help] Tim lỗi code ledungddk001 0 200 12-11-14, 10:16 AM
Bài mới nhất: ledungddk001
  Code đọc mã vạch phamthainguyen86 3 553 04-03-14, 10:16 AM
Bài mới nhất: HoanTQ
  code nút lệnh thêm,sửa,xóa trong quản lý sinh viên nguyenduy.abcd 2 807 16-11-13, 10:15 PM
Bài mới nhất: nguyenduy.abcd

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ơ