• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

xu ly code quay về

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Thảo Luận Access
  • [Help] xu ly code quay về
• xu ly code quay về

• xu ly code quay về

  nguyenhoangbanhan > 11-06-15, 01:43 AM

  - 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

• RE: xu ly code quay về

  maidinhdan > 11-06-15, 11:56 AM

  (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!

• RE: xu ly code quay về

  nguyenhoangbanhan > 11-06-15, 02:36 PM

  (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

• RE: xu ly code quay về

  tranthanhan1962 > 11-06-15, 05:31 PM

  (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.

• RE: xu ly code quay về

  nguyenhoangbanhan > 17-06-15, 12:06 PM

  (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)

• RE: xu ly code quay về

  maidinhdan > 17-06-15, 05:52 PM

  (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!
• Bài trước Bài tiếp