hoangthanhhai > 13-06-11, 06:14 PM
domfootwear > 14-06-11, 12:11 PM
(13-06-11, 06:14 PM)hoangthanhhai Đã viết: Chào các Bạn!
Các bạn giúp mình xử lý subform trong tab Nghỉ phép như sau:
1. Khóa định dạng “Ch_Nghiphep” không cho thay đổi độ rộng của dòng và cột, vì mình muốn sử dụng thanh cuộn dọc (Scroll Vertical) để xem dữ liệu khi có nhiều bản ghi nên mình không sử dụng thuộc tính Visible để khóa subform.
2. Tại nút lệnh “comm_luu” trong Subform “Ch_Nghiphep1” làm thế nào để nó làm tươi dữ liệu trong “Ch_Nghiphep” sau khi nhập dữ liệu. Hoặc tại nút lệnh “Lưu 1” làm sao để nó nhảy đến bản ghi mới trong Subform “Ch_Nghiphep1”.
3. Tính tổng ngày phép đã nghỉ tại “Tongphep”.
File đính kèm: http://www.mediafire.com/?yzadcpg5izn3t29
Option Compare Database
Dim intColumn(8 - 1) As IntegerPrivate Sub Form_Load()
intColumn(0) = Me!Nam.ColumnWidth
intColumn(1) = Me!Thang.ColumnWidth
intColumn(2) = Me!Lan.ColumnWidth
intColumn(3) = Me!Thang.ColumnWidth
intColumn(4) = Me!Ngaynghi.ColumnWidth
intColumn(5) = Me!Nghiviecrieng.ColumnWidth
intColumn(6) = Me!Note.ColumnWidth
intColumn(7) = Me!Tongcong.ColumnWidth
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Me!Nam.ColumnWidth <> intColumn(0) Then
Me!Nam.ColumnWidth = intColumn(0)
End If
If Me!Thang.ColumnWidth <> intColumn(1) Then
Me!Thang.ColumnWidth = intColumn(1)
End If
'cac cot con lai ban tu viet nhe
End SubTenform.Requeryhoangthanhhai > 14-06-11, 01:05 PM
domfootwear > 14-06-11, 01:49 PM
(14-06-11, 01:05 PM)hoangthanhhai Đã viết: Cám ơn Bạn domfootwear nhé, mình đã làm được phần 1 và 2 theo hướng dẫn của Bạn.Câu 3: Ý bạn là tổng cộng những dòng của subform vào main form ? Nếu vậy thì tên MainForm Tab Nghỉ phép bạn vẽ 1 textbox rồi gõ vào Control Source của nó như sau là được.
Thanks.
Trích dẫn:=Forms!F3_QlyNhansu1_Nhap1!Ch_nghiphep.Form!tongcong
hoangthanhhai > 14-06-11, 02:56 PM
domfootwear > 14-06-11, 04:35 PM
(14-06-11, 02:56 PM)hoangthanhhai Đã viết: Cám ơn Bạn nhé, mình cũng vừa mới làm được câu 3 cũng giống như cách của bạn.
Tiện đây Bạn cho mình hỏi làm sao không cho phép xóa dữ liệu ở "Ch_Nghiphep", khi bấm chuột phải thì không xóa được thì ok rồi, nhưng mình bấm phím delete trên bàn phím thì nó vẫn xóa như thường, làm sao mình khóa được phím Delete trên bàn phím nhỉ?
hoangthanhhai > 14-06-11, 05:22 PM