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

Nhờ giúp đỡ code

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Thủ thuật VBA
  • Nhờ giúp đỡ code
• Nhờ giúp đỡ code

• Nhờ giúp đỡ code

  nguyentrunghoadh > 02-06-20, 08:43 PM

  Tôi có một Form tên F_Trunggian, trên form này có 2 TextBox là: TextBox1, TextBox2 và 1 Command Button.
  Tôi cần viết code sao cho:
  -         Nếu giá trị của TextBox1 = 1 và TextBox2 <= 14 thì khi click vào  Command Button sẽ mở form F_1
  -         Ngược lại giá trị của TextBox1 = 2 và TextBox2 = 15 thì khi click vào  Command Button sẽ mở form F_2
  -         Ngược lại giá trị của TextBox1 = 3 và TextBox2 <= 18 thì khi click vào  Command Button sẽ mở form F_3
  
  Tôi rất mong các bạn hỗ trợ dùm, cảm ơn trước.

• RE: Nhờ giúp đỡ code

  mrsiro > 02-06-20, 09:28 PM

  bạn dùng if else là xử được trường hợp này rồi.

• RE: Nhờ giúp đỡ code

  nguyentrunghoadh > 03-06-20, 10:08 AM

  Cảm ơn bạn [b]mrsiro[/b] nhờ bạn chỉ rõ hơn dùm, do mình chưa quen ngôn ngữ VBA nên thao tác gặp khó khăn.

• RE: Nhờ giúp đỡ code

  tranthanhan1962 > 03-06-20, 11:30 AM

  Hi hi! Viết code chi cho rườm rà
  -Click vào  CommandButton1 sẽ mở form F_1
  -Click vào  CommandButton2 sẽ mở form F_2
  -Click vào  CommandButton3 sẽ mở form F_3
  Có khi còn đẹp hơn
  Còn đây là code:
  Private Sub Command0_Click()
       If TextBox1.Value = 1 And TextBox2.Value <= 14 Then
            DoCmd.OpenForm "F_1"
                 If TextBox1.Value = 2 And TextBox2.Value = 15 Then
                       DoCmd.OpenForm "F_2"
                             If TextBox1.Value = 3 And TextBox2.Value <= 18 Then
                                    DoCmd.OpenForm "F_3"
                              End If
                  End If
       End If
  End Sub

• RE: Nhờ giúp đỡ code

  maidinhdan > 03-06-20, 09:35 PM

  (03-06-20, 11:30 AM)tranthanhan1962 Đã viết: Hi hi! Viết code chi cho rườm rà
  -Click vào  CommandButton1 sẽ mở form F_1
  -Click vào  CommandButton2 sẽ mở form F_2
  -Click vào  CommandButton3 sẽ mở form F_3
  Có khi còn đẹp hơn
  Còn đây là code:
  Private Sub Command0_Click()
       If TextBox1.Value = 1 And TextBox2.Value <= 14 Then
            DoCmd.OpenForm "F_1"
                 If TextBox1.Value = 2 And TextBox2.Value = 15 Then
                       DoCmd.OpenForm "F_2"
                             If TextBox1.Value = 3 And TextBox2.Value <= 18 Then
                                    DoCmd.OpenForm "F_3"
                              End If
                  End If
       End If
  End Sub

  
  To anh TranThanhAn: Check lại Code này nhé anh Nhân....sẽ không chạy nếu TextBox1.Value = 2 And TextBox2.Value = 15;
  
  Khuyến nghị dùng hàm Select Case.
  

  Mã PHP:

  Dim a As Long
    Dim b As Long
    a = TextBox1.Value
    b = TextBox2.Value
Select Case a
    Case 1
        If b <= 14 Then DoCmd.OpenForm "F_1"
    Case 2
        If b = 15 Then DoCmd.OpenForm "F_2"
    Case 3
        If b <= 18 Then DoCmd.OpenForm "F_3"
    Case Else
        'Cac truong hop con lai de tai day
End Select 


  
  Thân mến

• RE: Nhờ giúp đỡ code

  tranthanhan1962 > 03-06-20, 10:54 PM

  (03-06-20, 09:35 PM)maidinhdan Đã viết: ...
  To anh TranThanhAn: Check lại Code này nhé anh Nhân....sẽ không chạy nếu TextBox1.Value = 2 And TextBox2.Value = 15;
  ...

  Sorry! Lỗi cơ bản, Ngoài điều kiện đầu tiên, tất cả các điều kiện còn lại sẽ không chạy vì thiếu từ khóa Else.
  Đúng ra phải như thế này:
  Private Sub Command0_Click()
    If TextBox1.Value = 1 And TextBox2.Value <= 14 Then
          DoCmd.OpenForm "F_1"
    ElseIf TextBox1.Value = 2 And TextBox2.Value = 15 Then
      DoCmd.OpenForm "F_2"
    ElseIf TextBox1.Value = 3 And TextBox2.Value <= 18 Then
      DoCmd.OpenForm "F_3"
    End If
  End Sub
  Vì lúc gõ code ở quán cà phê bằng di động nên gõ thiếu. Sorry
• Bài trước Bài tiếp