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

Nhờ hướng dẫn giúp code nút search

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Forms
  • [Help] Nhờ hướng dẫn giúp code nút search
• Nhờ hướng dẫn giúp code nút search

• RE: Nhờ hướng dẫn giúp code nút search

  wellngoc > 16-12-13, 01:58 PM

  (16-12-13, 09:44 AM)Xuân Thanh Đã viết:

  Mã:

  Private Sub cmdsearch_Click()
    Dim DB As Database
    Dim myset As Recordset
    Set DB = CurrentDb()
    Set myset = DB.OpenRecordset("Select * From CONGVAN Where Tau = '" & Me.txttau & "'")
    If myset!NgayHL <= Me.txtngay And myset!NgayHHHL >= Me.txtngay Then
        MsgBox " Tau " & Me.txttau & " co noi 1 toa " & myset!NCToa & " tu ngay " & myset!NgayHL & " den ngay " & myset!NgayHHL & " theo cong van so " & myset!SoCV
    End If
End Sub

  
  1/ Trên form có 2 textbox : txtTau để nhập mã tàu (ví dụ SE5, SE2...) và txtNgay để ghi ngày xem xét
  2/ Sửa
  

  Mã:

  Set myset = DB.OpenRecordset("Select * From CONGVAN Where Tau = '" & Me.txttau & "'")

  thành
  

  Mã:

  Set myset = DB.OpenRecordset("Select * From CONGVAN Where MTau = '" & Me.txttau & "'")

  
  Lưu ý khi đưa vào câu truy vấn phải đúng tên trường của table
  Thân mến

  THANKS BAN CHAY DUOC ROI...GIO MINH LAM TIEP DAY

• RE: Nhờ hướng dẫn giúp code nút search

  wellngoc > 17-12-13, 04:09 AM

  (16-12-13, 01:58 PM)wellngoc Đã viết:

  (16-12-13, 09:44 AM)Xuân Thanh Đã viết:

  
  bác xuan thanh oi cho mình với mình viết code cách tính thời gian:
  vi du : 12/12/2013 den 31/12/2013 là 19 ngày trừ di ngày hiện tại 17/12/2013 vậy còn lại 14 ngày
  
  Ngay = (myset!NgayHHL - myset!NgayHL) - day(date) (thì kết quả là :2 )
  
  vậy kết quả bi sai có cách nào tính cho đúng thời gian không nhỉ ,ai biết chỉ mình với .thanks

• RE: Nhờ hướng dẫn giúp code nút search

  Xuân Thanh > 17-12-13, 11:56 AM

  Chắc bạn đang cần tính số ngày hiệu lực còn lại của công văn đúng không?
  Bạn thấy từ ngày hiện tại (17/12/2013) đến ngày hết hiệu lực (31/12/2013) là 14 ngày đúng không?
  Vậy bạn phải thực hiện phép tính : myset!NgayHHL - Date mới đúng
  Thân mến

• RE: Nhờ hướng dẫn giúp code nút search

  wellngoc > 17-12-13, 09:44 PM

  bác xuanthanh ơi .
  mình làm code kiểm tra 2 ô textbox:txttau,txtngay:
  

  Trích dẫn:Private Sub cmdsearch_Click()
  Dim DB As Database
  Dim myset As Recordset
  Set DB = CurrentDb()
  Dim tau As String
  Dim ngay As String
  txttau = tau
  txtngay = ngay
  If tau = "" Then
  MsgBox " Nhap Mac Tau ", vbInformation + vbOKOnly, "THONG BAO"
  If ngay = "" Then
  MsgBox " Nhap Ngay ", vbInformation + vbOKOnly, "THONG BAO"
  Exit Sub
  Else
  Set myset = DB.OpenRecordset("Select * From CONGVAN Where MTau = '" & Me.txttau & "'")
  If myset!NgayHL <= Me.txtngay And myset!NgayHHL >= Me.txtngay Then
  txtthongbao = " TAU " & Me.txttau & " CO " & myset!NCToa & " TU NGAY " & myset!NgayHL & " DEN NGAY " & myset!NgayHHL & " ,THOI GIAN HIEU LUC : " & (myset!NgayHHL - myset!NgayHL) & " NGAY ,SO NGAY HIEU LUC CON LAI : " & (myset!NgayHHL - Date) & " NGAY, THEO CONG VAN SO : " & myset!SoCV
  End If
  End If
  End If
  End Sub

  nếu chưa nhâp vào 2 textbox sẽ thông báo bắt nhập vào nhưng sau khi nhập dữ liệu vào thì vẫn hiện câu thông báo và bi mất luôn du liệu trên 2 o textbox mà không thuc hiện lenh kế tiếp nhỉ.
  
  THANKS BAC XUANTHANH DOAN CODE NAY MÌNH THAM KHẢO TRONG FORUM VÀ SUA ĐƯỢC RỒI ,CÓ GÌ MÌNH BÍ SẼ HỎI LAI SAU ...

• RE: Nhờ hướng dẫn giúp code nút search

  wellngoc > 17-12-13, 10:27 PM

  (17-12-13, 11:56 AM)Xuân Thanh Đã viết: Chắc bạn đang cần tính số ngày hiệu lực còn lại của công văn đúng không?
  Bạn thấy từ ngày hiện tại (17/12/2013) đến ngày hết hiệu lực (31/12/2013) là 14 ngày đúng không?
  Vậy bạn phải thực hiện phép tính : myset!NgayHHL - Date mới đúng
  Thân mến

  
  thanks bác
  
  ah bac xuan thanh oi cho mình cho mình hỏi : mình làm xong nút seach rồi giờ xảy ra 1 vấn đề là :
  vidu: tau SE4 di sg-hn ngày hieu luc 12/12/2013 ngay het hieu luc 12/1/2013 co noi 1 toa ,
  tau SE4 di sg-hue ngày hieu luc 18/12/2013 ngày het hieu luc 20/12/2013 có noi 1 toa ngoi A.
  
  sau khi nhap vào ô txttau:se4 và txtngay:18/12/2013. kết quả cho ra câu thông báo :
  TAU se4 CO N1 DI: SG -> DEN: HN , SO LUONG TOA: 11 , TU NGAY 03/12/2013 DEN NGAY 03/01/2014 ,THOI GIAN HIEU LUC : 31 NGAY ,SO NGAY HIEU LUC CON LAI : 16 NGAY, THEO CONG VAN SO : 1
  vây là còn sót lại 1 cái công văn :
  tau SE4 di sg-hue ngày hieu luc 18/12/2013 ngày het hieu luc 20/12/2013 có noi 1 toa ngoi A.
  Mình muốn sau khi nhập xong thì ra 2 cái công văn nếu có .vậy phải viết code như thế nào ? mình có kèm theo file :http://share.vnn.vn/tai-file-20166697 bác xem giúp minh .thanks
  

  Trích dẫn:Private Sub cmdsearch_Click()
  Set DB = CurrentDb()
  If txttau = "" Or txtngay = "" Then
  MsgBox " Nhap Mac Tau,Chon Ngay ", vbInformation + vbOKOnly, "THONG BAO"
  Exit Sub
  
  Else
  Set myset = DB.OpenRecordset("Select * From CONGVAN Where MTau = '" & Me.txttau & "'")
  If myset!NgayHL <= Me.txtngay And myset!NgayHHL >= Me.txtngay Then
  txtthongbao = " TAU " & Me.txttau & " CO " & myset!NCToa & " DI: " & myset!DI & " -> DEN: " & myset!DEN & " , SO LUONG TOA: " & myset!SLToa & " , TU NGAY " & myset!NgayHL & " DEN NGAY " & myset!NgayHHL & " ,THOI GIAN HIEU LUC : " & (myset!NgayHHL - myset!NgayHL) & " NGAY ,SO NGAY HIEU LUC CON LAI : " & (myset!NgayHHL - Me.txtngay) & " NGAY, THEO CONG VAN SO : " & myset!SoCV
  Else
  If myset!NgayHL >= Me.txtngay Then
  txtthongbao = " TAU " & Me.txttau & " CO " & myset!NCToa & " DI: " & myset!DI & " -> DEN: " & myset!DEN & " , SO LUONG TOA: " & myset!SLToa & " , TU NGAY " & myset!NgayHL & " DEN NGAY " & myset!NgayHHL & " ,THOI GIAN HIEU LUC : " & (myset!NgayHHL - myset!NgayHL) & " NGAY ,SO NGAY HIEU LUC CON LAI : 0 " & " NGAY, THEO CONG VAN SO : " & myset!SoCV
  Else
  If myset!NgayHHL <= Me.txtngay Then
  txtthongbao = " TAU " & Me.txttau & " CO " & myset!NCToa & " DI: " & myset!DI & " -> DEN: " & myset!DEN & " , SO LUONG TOA: " & myset!SLToa & " , TU NGAY " & myset!NgayHL & " DEN NGAY " & myset!NgayHHL & " ,THOI GIAN HIEU LUC : " & (myset!NgayHHL - myset!NgayHL) & " NGAY ,SO NGAY HIEU LUC CON LAI : 0 " & " NGAY, THEO CONG VAN SO : " & myset!SoCV
  End If
  End If
  End If
  End If
  End Sub

• RE: Nhờ hướng dẫn giúp code nút search

  Xuân Thanh > 18-12-13, 08:20 PM

  Thêm cái này
  
  

  Mã:

  ....
    Set myset = .....
    Dim i As Integer
    For i = 1 To myset.RecordCount
        If....
            .....
        End If
    Next
....

• RE: Nhờ hướng dẫn giúp code nút search

  wellngoc > 26-12-13, 01:27 AM

  (18-12-13, 08:20 PM)Xuân Thanh Đã viết: Thêm cái này
  
  

  Mã:

  ....
    Set myset = .....
    Dim i As Integer
    For i = 1 To myset.RecordCount
        If....
            .....
        End If
    Next
....

  
  thanks bác xuanthanh đã hướng dẫn bữa bận quá chưa làm tiếp được , bác chỉ rõ giúp mình với thêm vào sao không chạy nhỉ, theo như bác chỉ dùng dòng lập for dem làm sao không hiểu lắm nhỉ mình sủa như vậy có dúng ko :
  

  Trích dẫn:Private Sub cmdsearch_Click()
  Set DB = CurrentDb()
  
  If txttau = "" Or txtngay = "" Then
  MsgBox " Nhap Mac Tau,Chon Ngay ", vbInformation + vbOKOnly, "THONG BAO"
  Exit Sub
  
  Else
  Set myset = DB.OpenRecordset("Select * From CONGVAN Where MTau = '" & Me.txttau & "'")
  Dim I As Integer
  For I = 1 To myset.RecordCount
  
  If myset!NgayHL <= Me.txtngay And myset!NgayHHL >= Me.txtngay Then
  txtthongbao = " TAU " & Me.txttau & " CO " & myset!NCToa & " DI: " & myset!DI & " -> DEN: " & myset!DEN & " , SO LUONG TOA: " & myset!SLToa & " , TU NGAY " & myset!NgayHL & " DEN NGAY " & myset!NgayHHL & " ,THOI GIAN HIEU LUC : " & (myset!NgayHHL - myset!NgayHL) & " NGAY ,SO NGAY HIEU LUC CON LAI : " & (myset!NgayHHL - Me.txtngay) & " NGAY, THEO CONG VAN SO : " & myset!SoCV
  Else
  If myset!NgayHL >= Me.txtngay Then
  txtthongbao = " TAU " & Me.txttau & " CO " & myset!NCToa & " DI: " & myset!DI & " -> DEN: " & myset!DEN & " , SO LUONG TOA: " & myset!SLToa & " , TU NGAY " & myset!NgayHL & " DEN NGAY " & myset!NgayHHL & " ,THOI GIAN HIEU LUC : " & (myset!NgayHHL - myset!NgayHL) & " NGAY ,SO NGAY HIEU LUC CON LAI : 0 " & " NGAY, THEO CONG VAN SO : " & myset!SoCV
  Else
  If myset!NgayHHL <= Me.txtngay Then
  txtthongbao = " TAU " & Me.txttau & " CO " & myset!NCToa & " DI: " & myset!DI & " -> DEN: " & myset!DEN & " , SO LUONG TOA: " & myset!SLToa & " , TU NGAY " & myset!NgayHL & " DEN NGAY " & myset!NgayHHL & " ,THOI GIAN HIEU LUC : " & (myset!NgayHHL - myset!NgayHL) & " NGAY ,SO NGAY HIEU LUC CON LAI : 0 " & " NGAY, THEO CONG VAN SO : " & myset!SoCV
  End If
  End If
  End If
  Next
  
  
  End If
  
  End Sub

• RE: Nhờ hướng dẫn giúp code nút search

  Xuân Thanh > 26-12-13, 01:51 PM

  Mã:

  ...
    If txttau = "" Or txtngay = "" Then
        MsgBox " Nhap Mac Tau,Chon Ngay ", vbInformation + vbOKOnly, "THONG BAO"
        Exit Sub
    Else
        Set myset = DB.OpenRecordset("Select * From CONGVAN Where MTau = '" & Me.txttau & "'")
        myset.MoveFisrt
        Do Until myset.EOF
            If myset!NgayHL <= Me.txtngay And myset!NgayHHL >= Me.txtngay Then
                MgsBox " TAU " & Me.txttau & " CO " & myset!NCToa & " DI: " & myset!DI & " -> DEN: " & myset!DEN & " , SO LUONG TOA: " & myset!SLToa & " , TU NGAY " & myset!NgayHL & " DEN NGAY " & myset!NgayHHL & " ,THOI GIAN HIEU LUC : " & (myset!NgayHHL - myset!NgayHL) & " NGAY ,SO NGAY HIEU LUC CON LAI : " & (myset!NgayHHL - Me.txtngay) & " NGAY, THEO CONG VAN SO : " & myset!SoCV
            Else
                MsgBox " TAU " & Me.txttau & " CO " & myset!NCToa & " DI: " & myset!DI & " -> DEN: " & myset!DEN & " , SO LUONG TOA: " & myset!SLToa & " , TU NGAY " & myset!NgayHL & " DEN NGAY " & myset!NgayHHL & " ,THOI GIAN HIEU LUC : " & (myset!NgayHHL - myset!NgayHL) & " NGAY ,SO NGAY HIEU LUC CON LAI : 0 " & " NGAY, THEO CONG VAN SO : " & myset!SoCV
            End If
            myset.MoveNext
        Loop
    End If
    ....

  
  Nên đưa thông báo vào msgbox, nếu không thì không thấy câu thông báo đâu
• Bài trước Bài tiếp