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

Giúp đỡ hàm if access 2003

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Thủ thuật VBA
  • [Help] Giúp đỡ hàm if access 2003
• Giúp đỡ hàm if access 2003

• Giúp đỡ hàm if access 2003

  chigonvh > 29-09-15, 10:07 AM

  Các bác cho e hỏi tại sao câu lệnh của e sử dụng access 2013 thì được mà chuyển qua 2003 thì không chạy:
  

  Mã:

  Private Sub Command0_Click()
   If Command0.Caption = "More >>" Then
       Command0.Caption = "Less <<"
       Command11.Visible = True
       Command12.Visible = True
       Command13.Visible = True
       Command14.Visible = True
       Command15.Visible = True
       Command16.Visible = True
   End If
   If Command0.Caption = "Less <<" Then
       Command0.Caption = "More >>"
       Command11.Visible = False
       Command12.Visible = False
       Command13.Visible = False
       Command14.Visible = False
       Command15.Visible = False
       Command16.Visible = False
   End If
End Sub

  Thank u!

• RE: Giúp đỡ hàm if access 2003

  maidinhdan > 29-09-15, 10:29 AM

  (29-09-15, 10:07 AM)chigonvh Đã viết: Các bác cho e hỏi tại sao câu lệnh của e sử dụng access 2013 thì được mà chuyển qua 2003 thì không chạy:
  

  Mã:

  Private Sub Command0_Click()
   If Command0.Caption = "More >>" Then
       Command0.Caption = "Less <<"
   End If
   If Command0.Caption = "Less <<" Then
       Command0.Caption = "More >>"

   End If
End Sub

  Thank u!

  
  * Thứ 1, Câu lệnh không sai, vấn đề là Giao diện form trên Access 2013 và 2003 khác nhau, mở lên sẽ báo lỗi ngay. Vì thế muốn sử dụng câu lệnh này bạn phải thiết kế form trên Access 2003.
  
  * Thứ 2, Câu lênh trên không có ý nghĩa khi kết quả cuối cùng của nhãn Command0 là More >>
  
  Mình đoán ý thử: chắc bạn muốn, Nhãn lúc đầu là More >>; khi nhấn lần 1 thì nhãn chuyển thành Less <<
  
  => Vậy xem Demo này: [Thủ Thuật] Demo_1 Nút nhấn có 2 chức năng ( Thêm + Xóa)
  
  Thân mến!

• RE: Giúp đỡ hàm if access 2003

  chigonvh > 29-09-15, 10:58 AM

  Cám ơn bác maidinhdan. Form nay mih lam tren access 2003 va dung y cua mih la nhu vay.

• RE: Giúp đỡ hàm if access 2003

  chigonvh > 29-09-15, 01:33 PM

  Mã:

  Private Sub Command0_Click()
   If Me!Command0.Caption = "More >>" Then
       Me!Command0.Caption = "Less <<"
       Me!Command11.Visible = True
       MsgBox "ok"
   Else
       Me!Command0.Caption = "More >>"
       Me!Command11.Visible = False
   End If
End Sub

  ?

• RE: Giúp đỡ hàm if access 2003

  tranthanhan1962 > 30-09-15, 12:02 AM

  (29-09-15, 10:07 AM)chigonvh Đã viết: Các bác cho e hỏi tại sao câu lệnh của e sử dụng access 2013 thì được mà chuyển qua 2003 thì không chạy:
  

  Mã:

  Private Sub Command0_Click()
   If Command0.Caption = "More >>" Then
       Command0.Caption = "Less <<"
       ...
   End If
   If Command0.Caption = "Less <<" Then
       Command0.Caption = "More >>"
       ...
   End If
End Sub

  Thank u!

  
  Câu lệnh của bạn không phải là không chạy. Nhưng cả trên access 2003, lẫn access 2013 đều chạy không đúng theo yêu cầu của bạn (cả hai đều chạy như nhau nhé. Vì cấu trúc If ... then ... End If của VB ở đâu cũng giống nhau nên dù access nào cũng thế)
  Do access là lập trình hướng đối tượng nên các đoạn code ngang hàng trên các đối tượng sẽ có giá trị như nhau:
  Ví dụ bạn có thể viết:
  
  

  Mã:

  If Command0.Caption = "A" Then
       Command0.Caption = "B"
       ...
   End If
If Command1.Caption = "B" Then
       Command1.Caption = "D"
       ...
   End If

  
  
  Hoặc ngược lại cũng không sao (lệnh xử lý đối tượng nào sẽ giải quyết cho đối tượng đó)
  
  

  Mã:

  If Command1.Caption = "B" Then
       Command1.Caption = "D"
       ...
   End If
If Command0.Caption = "A" Then
       Command0.Caption = "B"
       ...
   End If

  
  Nhưng nếu bạn tạo câu lệnh
  
  

  Mã:

  If Command0.Caption = "A" Then
       Command0.Caption = "B"
       ...
   End If
If Command0.Caption = "B" Then
       Command0.Caption = "D"
       ...
   End If

  
  Thì đây là hai lệnh ngang hàng xử lý cùng một đối tượng là Command0.Caption
  Vì vậy VBA sẽ ưu tiên cho lệnh đầu tiên và bỏ lệnh thứ 2. Kiểu như ưu tiên *,/ trước +,- vậy thôi.
  Do đó, VBA sẽ xử lý khi giá trị có sẳn của Command0.Caption = "A" 
  

  Mã:

  If Command0.Caption = "A" Then
       Command0.Caption = "B"
       ...
   End If

  Còn nếu giá trị của Command0.Caption không phải là "A" nó sẽ bỏ qua. Vì thế đoạn code 
  

  Mã:

  If Command0.Caption = "B" Then
       Command0.Caption = "D"
       ...
   End If

  có cũng như không.
  Cho nên muốn giải quyết trường hợp này phải chuyển thành 1 lệnh, mà bạn maidinhdan đã giải quyết cho bạn.
  

  Mã:

  Private Sub Command0_Click()
   If Command0.Caption = "More >>" Then
       Command0.Caption = "Less <<"
       ...
   Else
       Command0.Caption = "More >>"
       ...
   End If
End Sub

  
   Đối với trường hợp có nhiều cấu trúc If ... Then... Else ... End If lồng ghép nhau rất khó quản lý
  Ví dụ
  

  Mã:

  If Command0.Caption = "A" Then
   Command0.Caption = "B"
Else
   If Command0.Caption = "B" Then
      Command0.Caption = "C"
   Else
      If Command0.Caption = "C" Then
         Command0.Caption = "D"
      Else
         Command0.Caption = "A"
      End If
   End If
End If

  
  Chúng ta có thể đổi thành cấu trúc Select Case để dễ quản lý hơn
  
  

  Mã:

  Select Case Command0.Caption
   Case "A"
       Command0.Caption = "B"
   Case "B"
       Command0.Caption = "C"
   Case "C"
       Command0.Caption = "D"
   Case Else
       Command0.Caption = "A"
End Select

  
  Chúc bạn thành công.
• Bài trước Bài tiếp