Xin giúp đỡ về option group trong access (1 nút có 3 tác dụng) (1 người xem)

[ttt3te]

Chào các pác,
Em đang chuẩn bị bài để thi nhưng gặp phải 1 bài tập mà e không tài nào giải được, mong các pác giúp e với



Yêu cầu: tạo 1 form như hình trên, đả tạo 3 report tương ứng cho 3 báo cáo. Vấn đề là khi ta chọn 1 loại báo cáo và 1 cách xuất ra tương ứng, sau khi nhấn nút Tiếp sẽ hiển thị kết quả, nút Ngưng sẽ thoát

Thanks các pác trước.

 

[thanhphuong]

Đơn giản thế này, bạn nghiên cứu tiếp nhé
1/ Nút Ngưng===> Quá đơn giản, đúng không?( DoCmd.Close)
2/ Nút Tiếp
2a/ Tạo 2 OpGroup : optBaoCao và optXuatRa, mổi Op có 3 op con, có giá trị Value lần lượt là 1, 2, 3
2b/ Dùng If...Else...End If hoặc Select Case mà ra lệnh tương ứng
Hy vọng bạn hiểu và làm được
Thân mến

 

[ttt3te]

Cảm ơn bạn rất nhiều...
MÌnh dùng If ...
Private Sub tieptuc_Click()
If optdanhmuc = 1 And optxuatra = 1 Then
DoCmd.OpenReport "Danh Muc Khoi THi", acViewPreview
ElseIf optdanhmuc = 1 And optxuatra = 2 Then
DoCmd.OpenReport "Danh Muc Khoi THi", acViewNormal
ElseIf optdanhmuc = 1 And optxuatra = 3 Then
DoCmd.OpenReport "Danh Muc Khoi THi", acViewDesign
ElseIf optdanhmuc = 2 And optxuatra = 1 Then
DoCmd.OpenReport "Danh Muc Mon THi", acViewPreview
ElseIf optdanhmuc = 2 And optxuatra = 2 Then
DoCmd.OpenReport "Danh Muc Mon THi", acViewNormal
ElseIf optdanhmuc = 2 And optxuatra = 3 Then
DoCmd.OpenReport "Danh Muc Mon THi", acViewDesign
ElseIf optdanhmuc = 3 And optxuatra = 1 Then
DoCmd.OpenReport "Danh sach THi sinh", acViewPreview
ElseIf optdanhmuc = 3 And optxuatra = 2 Then
DoCmd.OpenReport "Danh sach thi sinh", acViewNormal
ElseIf optdanhmuc = 3 And optxuatra = 3 Then
DoCmd.OpenReport "Danh sach thi sinh", acViewDesign
End If

End Sub


và đã giải quyết xong rồi nhưng mình thấy hơi dài dòng không biết rút gọn lại như thế nào, mong bạn giúp rõ hơn.

 

[ptm0412]

Bạn thử cái này:

Private Sub tieptuc_Click()
Dim StDocName 
Select  Case optdanhmuc
    Case 1
       StDocName = "Danh Muc Khoi THi"
    Case 2
       StDocName = "Danh Muc Mon THi"
    Case 3
       StDocName = "Danh sach THi sinh"
End Select

Select Case optxuatra
   Case 1
      DoCmd.OpenReport StDocName, acViewPreview
   Case 2
      DoCmd.OpenReport StDocName, acViewNormal
   Case 3
      DoCmd.OpenReport StDocName, acViewDesign
End Select

End Sub

Hoặc:

Private Sub tieptuc_Click()
Dim StDocName 

StDocName = IIf(optdanhmuc = 1, "Danh Muc Khoi THi", IIf(optdanhmuc = 2, "Danh Muc Mon THi", "Danh sach THi sinh"))
DoCmd.OpenReport StDocName, IIf(optxuatra = 1, acViewPreview, IIf(optxuatra = 2, acViewNormal, acViewDesign)
End Sub