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

Tao nut tim kiem va cho ket qua tren form tuong ung voi cac truong

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Forms
  • Tao nut tim kiem va cho ket qua tren form tuong ung voi cac truong
• Tao nut tim kiem va cho ket qua tren form tuong ung voi cac truong

• RE: Tao nut tim kiem va cho ket qua tren form tuong ung voi cac truong

  Winston nguyen > 07-03-18, 08:19 AM

  (01-03-18, 06:52 PM)MTNQ Đã viết:

  (27-02-18, 09:28 AM)Winston nguyen Đã viết: Hi ban, file ban lam ok nhung co dieu la khi open len thi cac truong deu co data. Co cach nao cho cac truong trong truoc khinhap ma ctudent de tim kim ko.
  
  Thanks ban

  
  Cách bạn đang nói tới là kịch bản của Unbound form. Để viết Unbound form thì cần phải có kiến thức kha khá về VBA
  
  Làm Bound form cũng được nhưng nó có vẻ hơi "chuối" một chút     :
  -Ta sẽ mở một record mới nhưng khóa các điều khiển, không cho người dùng nhập dữ liệu vào. 
  -Sau khi tìm kiếm dữ liệu, người dùng nhấn nút "sửa" thì mở khóa để chỉnh sửa và lưu dữ liệu...
  ->Sử dụng thuộc tính Data Entry như bác cpucloi  nói cũng là một cách
  -> Cách của mình thì hơi khác chút:
  
  http://www.mediafire.com/file/46nsgynqmx...uyen_3.rar
  
  

  Code: (Click to View)

  Mã:

  Option Compare Database
Option Explicit

Private Sub cmdSearch_Click()
    Call LoadData
End Sub

Private Sub Command680_Click()
    Call LockControls(False)
End Sub

Private Sub Command681_Click()
    DoCmd.RunCommand acCmdSaveRecord
    Call LockControls(True)
End Sub

Private Sub Form_Load()
   Call LoadData
   Call LockControls(True)
End Sub

Private Sub Text193_AfterUpdate()
    Call cmdSearch_Click
End Sub

Private Sub LoadData()
On Error GoTo Err_LoadData
    
    Dim strSQL As String
    Dim rst As DAO.Recordset
    
    strSQL = "SELECT * FROM [Tb_Student_Info] WHERE [Student_Code] "
    strSQL = strSQL & IIf(Nz(Me.Text193, "") = "", "is Null", "=" & Me.Text193)
    
    Set rst = CurrentDb.OpenRecordset(strSQL)
    Set Me.Recordset = rst
    If rst.RecordCount > 0 Then
        Me.Command680.Enabled = True
    Else
        LockControls True
        Me.Command680.Enabled = False
    End If
    
Exit_LoadData:
    Set rst = Nothing
    Exit Sub

Err_LoadData:
    MsgBox Err.Description
    Resume Exit_LoadData
        
End Sub

Private Sub LockControls(blnL As Boolean)
    With Me
        .txtDate.Enabled = Not blnL
        .txtCourses_Name.Enabled = Not blnL
        .txtPhone.Enabled = Not blnL
        .txtBegin_Date.Enabled = Not blnL
        .txtClass_Name.Enabled = Not blnL
        .chkDo_Social_security.Enabled = Not blnL
    End With
End Sub

  
  Cám ơn bạn nhiều nhé. Mình đã làm được rồi.
• Bài trước Bài tiếp