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

Thủ Thuật Access

• Trang chủ

  • Thủ Thuật Access
  • Trang chủ
•   Lấy giá trị main form và subform
  

  Viết bởi: boy333 16-07-13, 06:06 PM Chuyên mục: Forms - Bài trả lời (2)

• Chào cả nhà. Mình mới tập tọe học Access. Đến phần VBA thì mình tắc ở đoạn:
  1. Lấy giá trị ở textbox trong main form( text box này là số hóa đơn trong tblHoaDon)
  2. Lấy giá trị ở subform( subform là tblHangBan)
  Mong cả nhà giúp đỡ mình. Cám ơn
  


•   Code nút lưu dữ liệu
  

  Viết bởi: maixuanthu 16-07-13, 12:28 AM Chuyên mục: Forms - Bài trả lời (4)

• Anh chị ơi, giúp em với!
  Em muốn tạo 1 cái form cập nhật thông tin giới thiệu học viên. Nhưng khi viết nút lưu thì lại bị lỗi, mấy table khác e làm code này chạy rất mướt nhưng với table này lại có vấn đề vì table này có tới 2 khóa chính( khóa đôi), em không thể nào nhập mã học viên giới thiệu được nhiều lần theo đúng nghĩa của khóa đôi. table của em như sau: GIOITHIEU( mahv_gt, mahv_dgt, chietkhau, ghichu) và hàm của nút lưu như sau:
  
  Mã PHP:

  Private Sub luu()
Dim db As Database
      Dim rc As Recordset
      Dim cm
      Dim str
      Dim dung As Boolean
    
       If IsNull(Me.mahv_gt) = True Or IsNull(Me.mahv_dgt) = True Then
          str = MsgBox("Ma hoc vien khong duoc bo trong!", vbInformation, "Thông Báo")
          Exit Sub
       End If
       
       dung = False
  Set db = CurrentDb()
  Set rc = db.OpenRecordset("gioithieu")
  cm = Me.mahv_gt.Value
  'cm1 = Me.mahv_dgt.Value
   Do Until rc.EOF
   If rc![mahv_gt] = cm Then
    dung = True
    End If
   rc.MoveNext
   Loop
   rc.Close
   If dung = True Then
str = MsgBox("Ma hoc vien nay da ton tai!!Ban co muon thay doi thong tin khong?", vbYesNo + vbInformation, "Thông Báo")
If str = vbYes Then
DoCmd.RunCommand acCmdSaveRecord
Me.cmdke.Enabled = True
Me.cmddau.Enabled = True
Me.cmdcuoi.Enabled = True
Me.cmdsua.Enabled = True
Me.cmdthem.Enabled = True
Me.cmdthoat.Enabled = True
Me.cmdtruoc.Enabled = True
Me.cmdxoa.Enabled = True
Me.cmdhuy.Enabled = True
End If
     Exit Sub
   End If
   
   If IsNull(Me.mahv_gt) = True Or IsNull(Me.mahv_dgt) = True Or IsNull(Me.chietkhau) = True Or IsNull(Me.ghichu) = True Then
        str = MsgBox("Ban can dien day du thong tin!!", vbInformation, "Thông Báo")
      Exit Sub
    End If
              
    If IsNull(Me.mahv_gt) = False And IsNull(Me.mahv_dgt) = False And IsNull(Me.chietkhau) = False And IsNull(Me.ghichu) = False And dung = False Then
    DoCmd.RunCommand acCmdSaveRecord
    str = MsgBox("Ban da luu thanh cong!", vbInformation, "Thông Báo")
    Me.cmdthem.Enabled = True
    Me.cmdtruoc.Enabled = True
    Me.cmdke.Enabled = True
    Me.cmddau.Enabled = True
    Me.cmdcuoi.Enabled = True
    Me.cmdsua.Enabled = True
    Me.cmdxoa.Enabled = True
    Me.cmdthoat.Enabled = True
    Me.cmdhuy.Enabled = True
    Exit Sub
    End If
End Sub 

  Xin mọi người chỉ giáo! Em cảm ơn rất nhiều!
  


• Mã Khách hàng, mã sách trong access
  

  Viết bởi: 419 16-07-13, 12:11 AM Chuyên mục: Table - Bài trả lời (2)

• Tình hình là em đang làm bài trong đó có các bảng như Books, Customers, Order....
  Mà em muốn mấy cột như Books_ID, Order_ID sẽ có kiểu dữ liệu là Number nhưng vẫn có thể hiện kí tự để phân biệt.
  Ví dụ cột Books_ID kiểu dữ liệu là Number nhưng các dữ liệu trong đó sẽ là B001, B002, B123...... Rồi Order_ID cũng vậy sẽ là O11,O12, O13....
  Ai biết chỉ giúp em với. Em cảm ơn rất nhiều.
  


•   Tạo order khi click nút Tạo Đơn trong frmXuatHang
  

  Viết bởi: boy333 16-07-13, 12:03 AM Chuyên mục: Forms - Bài trả lời (2)

• Mình đang học access nhưng gặp vấn đề bí là: mình muốn viết VBA cho nút " Tạo Đơn" trong frmXuat Hàng thì thực hiện được:
  1. Hiện tồn kho theo từng mã hàng tại texbox "Tồn Kho"
  2. Điền số lượng xuất vào textbox số lượng xuất. Số lượng xuất = số lượng order nếu tồn kho > số lượng order. Số lượng xuất = số lượng tồn kho nếu số lượng order>số lượng tồn kho.
  3. Nút tạo đơn này chỉ tạo đợn này chỉ có giá trị theo từng main form và sub form hiện tại mà mình mở main form đó.
  File của mình đây. Mong mọi người giúp đỡ
  http://www.mediafire.com/download/p2tox8.../Kho.accdb
  


•   Ngăn sử dụng lăn (bánh xe) chuột trong form
  

  Viết bởi: chatchut 15-07-13, 04:22 PM Chuyên mục: Forms - Bài trả lời (1)

• Chào các anh chị
  có cách nào không cho lăn (bánh xe) chuột trong form?
  mục đích là không cho di chuyển tới các record khác
  



Chủ đề Mới nhất

Quản Lý Phòng Khám Tư Nhâ... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: Le Duc-24-09-26, 12:03 AM- » Bài trả lời: 34- » Lượt xem: 8,345

Tạo Form không có khung v... -Chuyên mục: Thư viện thủ thuật-Đăng bởi lần cuối: ongke0711-05-09-26, 10:12 PM- » Bài trả lời: 0- » Lượt xem: 146

Tải hàng loạt hóa đơn PDF... -Chuyên mục: Thành viên giúp nhau-Đăng bởi lần cuối: dotrung-16-08-26, 10:29 PM- » Bài trả lời: 6- » Lượt xem: 160

Quản lý kho bằng Accesss -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: AKBui-09-08-26, 12:52 AM- » Bài trả lời: 77- » Lượt xem: 8,101

Tra cứu Mã số thuế - phần... -Chuyên mục: Share Code-Đăng bởi lần cuối: ongke0711-03-07-26, 02:10 PM- » Bài trả lời: 0- » Lượt xem: 182

Đồ cổ đây - một chút hoài... -Chuyên mục: Góc ảnh-Đăng bởi lần cuối: Noname-12-06-26, 09:21 AM- » Bài trả lời: 1- » Lượt xem: 660

Tra cứu thông tin DN qua ... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: ongke0711-02-06-26, 11:36 PM- » Bài trả lời: 0- » Lượt xem: 186

Homestay chill đà lat -Chuyên mục: Góc Blogger-Đăng bởi lần cuối: tt1212-01-06-26, 02:51 PM- » Bài trả lời: 0- » Lượt xem: 631

Quản lý quầy thuốc nhỏ lẻ -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: ongke0711-09-05-26, 11:24 AM- » Bài trả lời: 4- » Lượt xem: 3,615

TẠO THÔNG BÁO NHẮC NHỞ CÔ... -Chuyên mục: Tương tác Chương trình ngoài-Đăng bởi lần cuối: ongke0711-07-04-26, 10:46 AM- » Bài trả lời: 2- » Lượt xem: 285




Diễn đàn Thống kê

» Thành viên: 0 » Thành viên mới nhất: Không có ai » Các chủ đề diễn đàn: 0 » Các bài viết diễn: 0 Thống kê đầy đủ