• 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

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

  Winston nguyen > 24-02-18, 10:29 AM

  Hi Anh/Chi
  Nho anh chi giup em voi ah.
  
  Em co file access gom: Tb_Hocvien (Da co data), Frm_Hocvien.
  1/ Tren Frm_Hocvien: the hien tat ca cac truong nhu trong Tb_HocVien va co them Txt_MaHocvien va nut lenh Search.
  Sau khi nhap Ma Hoc Vien vao Txt_mahocvien sau do click vao nut Search thi tat ca nhung thong tin cua Hoc vien do se hien thi len tren frm_hocvien tuong ung voi cac truong da tao.
  
  2/Sau khi hien thi xong, neu co truong nao ko co data thi em nhap vao hoac sua roi click nut Save thi tat ca se duoc luu vao Tb_Hocvien.
  
  NHo anh chi giup em voi ah.
  
  Cam on va mong hoi am som.

  ---

  (24-02-18, 10:29 AM)Winston nguyen Đã viết: Hi Anh/Chi
  Nho anh chi giup em voi ah.
  
  Em co file access gom: Tb_Hocvien (Da co data), Frm_Hocvien.
  1/ Tren Frm_Hocvien: the hien tat ca cac truong nhu trong Tb_HocVien va co them Txt_MaHocvien va nut lenh Search.
  Sau khi nhap Ma Hoc Vien vao Txt_mahocvien sau do click vao nut Search thi tat ca nhung thong tin cua Hoc vien do se hien thi len tren frm_hocvien tuong ung voi cac truong da tao.
  
  2/Sau khi hien thi xong, neu co truong nao ko co data thi em nhap vao hoac sua roi click nut Save thi tat ca se duoc luu vao Tb_Hocvien.
  
  NHo anh chi giup em voi ah.
  
  Cam on va mong hoi am som.

  
  http://www.mediafire.com/file/cs1qdujqbn...en_1.accdb

  ---

  Hi Anh/Chi,
  
  Em dang viet Ct QLHV cua truong day nghe. Ct chay nhu the nay:
  - Dau tien, hoc vien den dang ky hoc va dong tien. Nhan vien se nhap mot vai thong tin cua hoc vien (Ho va ten, So phone, nganh hoc, so tien), sau khi nhan vien nhap xong va in ra bien nhan thu tien dong thoi Ct se tu dong tao ra 1 Student_code va chuyen cac thong tin nay vao 2 bang: Tb_Biennhan, Tb_StudenInfo
  - Cach tao Student_Code: Ct se lay Max +1 cua Cot Student_Code trong Tb_StudentInfo 
  ==> tat ca phan tren em lam duoc roi, cau hoi dat ra nhu sau:
  1. Sau khi Student_Code cua HV duoc tao, thi nhan vien se open Frm_StudentInfo va go ma hoc vien vao truong tim kiem (enter or click nut tim kiem) thi tat ca thong tin cua Hoc vien do trong Tb_StudentInfo se hien thi len Frm_StudentInfo tuong ung voi cac field da duoc tao. 
  - muc dich cua viec ay la cho Nhan vien nhap them thong tin hoac chinh sua.
  2. khi nhan vien muon sua thong tin da co thi Click vao nut sua se tien hanh sua va luu lai bang nut Save.
  3.khi nhan vien muon bo sung thong tin thi click nut Bo sung va tien hanh nhap roi Click nut Save
  - Tat ca nhung thong tin ma Nhan vien chinh sua hoc bo sung them se duoc Save vao Tb_StudentInfo.
  
  Day la file data nho Anh/chiho tro giup em.
  http://www.mediafire.com/file/cs1qdujqbn...en_1.accdb
  
  Cam on cac anh chi nhieu

• RE: form tìm kiếm sản phẩm

  duynamvnn1208 > 24-02-18, 04:41 PM

  (24-02-18, 11:32 AM)Winston nguyen Đã viết:

  (24-02-18, 10:29 AM)Winston nguyen Đã viết: Hi Anh/Chi
  Nho anh chi giup em voi ah.
  
  Em co file access gom: Tb_Hocvien (Da co data), Frm_Hocvien.
  1/ Tren Frm_Hocvien: the hien tat ca cac truong nhu trong Tb_HocVien va co them Txt_MaHocvien va nut lenh Search.
  Sau khi nhap Ma Hoc Vien vao Txt_mahocvien sau do click vao nut Search thi tat ca nhung thong tin cua Hoc vien do se hien thi len tren frm_hocvien tuong ung voi cac truong da tao.
  
  2/Sau khi hien thi xong, neu co truong nao ko co data thi em nhap vao hoac sua roi click nut Save thi tat ca se duoc luu vao Tb_Hocvien.
  
  NHo anh chi giup em voi ah.
  
  Cam on va mong hoi am som.

  
  http://www.mediafire.com/file/cs1qdujqbn...en_1.accdb

  
  Trong Table Học viên của bạn làm gì có Field Mã học viên thì bạn định tìm kiếm kiểu gì?
  Bạn đưa dữ liệu trong bảng thì cũng nên để 2 đến 3 record thì mọi người sẽ thấy thỏa mái hơn. Bạn để có một record xong thì làm sao?
  Xong nữa sao bạn nên làm một bài mới chứ đừng viết ngang bài như vậy.

• RE: form tìm kiếm sản phẩm

  duynamvnn1208 > 24-02-18, 04:43 PM

  Em viết nhầm bài!

• RE: form tìm kiếm sản phẩm

  Winston nguyen > 26-02-18, 12:03 AM

  Hi anh, 
  Sorry anh, ma hoc vien = cot Student_code ah. Vi bai nay lien quan den form nen em viet vao day luon

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

  cpucloi > 26-02-18, 05:23 PM

  Bạn dùng dạng Unbroud Form, cách này khá rắc rối và phải bắt lỗi nhiều.
  Sao bạn không gán thẳng bảng làm nguồn cho form, mã học sinh đặt dạng AutoNumber (hoặc cách của bạn cũng được)

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

  MTNQ > 26-02-18, 09:31 PM

  Bạn có thể dùng phương thức FindFirst của Recordset:
  

  Mã:

  Private Sub Command569_Click()
On Error GoTo Err_Command569_Click
   
   Dim rst As DAO.Recordset
   Set rst = Me.Recordset.Clone
   
   rst.FindFirst "Student_Code=" & Me.Text193
   If Not rst.NoMatch Then
       Me.Bookmark = rst.Bookmark
   Else
       MsgBox "khong tim thay Student_Code = " & Me.Text193
   End If

Exit_Command569_Click:
   Set rst = Nothing
   Exit Sub

Err_Command569_Click:
   MsgBox Err.Description
   Resume Exit_Command569_Click
   
End Sub

  
  MTNQ làm ví dụ trên Bound form nhé:
  http://www.mediafire.com/file/8mymxmobzz...uyen_1.rar
  
  
  P/S: Các chủ đề về tìm kiếm dữ liệu có rất nhiều trên diễn đàn, bạn chịu khó tìm và tham khảo...

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

  duynamvnn1208 > 26-02-18, 09:51 PM

  Bạn dùng Macro rồi nên bạn tham khảo youtube này nhé!
  https://www.youtube.com/watch?v=Du53y3IXs5I

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

  Winston nguyen > 27-02-18, 09:28 AM

  (26-02-18, 09:31 PM)MTNQ Đã viết: Bạn có thể dùng phương thức FindFirst của Recordset:
  

  Mã:

  Private Sub Command569_Click()
On Error GoTo Err_Command569_Click
   
   Dim rst As DAO.Recordset
   Set rst = Me.Recordset.Clone
   
   rst.FindFirst "Student_Code=" & Me.Text193
   If Not rst.NoMatch Then
       Me.Bookmark = rst.Bookmark
   Else
       MsgBox "khong tim thay Student_Code = " & Me.Text193
   End If

Exit_Command569_Click:
   Set rst = Nothing
   Exit Sub

Err_Command569_Click:
   MsgBox Err.Description
   Resume Exit_Command569_Click
   
End Sub

  
  MTNQ làm ví dụ trên Bound form nhé:
  http://www.mediafire.com/file/8mymxmobzz...uyen_1.rar
  
  
  P/S: Các chủ đề về tìm kiếm dữ liệu có rất nhiều trên diễn đàn, bạn chịu khó tìm và tham khảo...

  
  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

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

  cpucloi > 28-02-18, 10:10 AM

  Bạn đặt thuộc tính của form
  Data Entry: Yes

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

  MTNQ > 01-03-18, 06:52 PM

  (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
• Bài trước Bài tiếp