• Cách Tạo Thông Tin Nhâp Dữ Liệu
  • RE: Cách Tạo Thông Tin Nhâp Dữ Liệu

    AnNguyen > 20-12-22, 09:14 AM

    (19-12-22, 10:24 PM)Sang.dinh Đã viết:
    (19-12-22, 05:24 PM)AnNguyen Đã viết: Nếu muốn không cho sửa dòng 1-6 thì bạn gán thuộc tính .Enable = false cho nó

    cảm ơn bạn chia sẻ ( nhưng do tự học Access nên chưa nẵm rõ cách bạn chỉ, hiện tại mình sử dụng code builder để viết  trong Event )
    Xem video của bạn thì hình như là bạn đang muốn copy cái giá trị của dòng bên cạnh đúng không?
    Nếu vậy bạn dùng code này. còn không phải ý bạn thì mình chưa hiểu lắm big green
    Mã:
    Dim rs As Recordset, i As Integer
        Set rs = Child0.Form.Recordset ' subform
        While Not rs.EOF And i = 0
            txt1 = rs.Fields("cot1")
            txt2 = rs.Fields("cot2")
            '...
            i = 1
        Wend
  • RE: Cách Tạo Thông Tin Nhâp Dữ Liệu

    tranthanhan1962 > 20-12-22, 10:01 AM

    (19-12-22, 05:24 PM)AnNguyen Đã viết: Nếu muốn không cho sửa dòng 1-6 thì bạn gán thuộc tính .Enable = false cho nó
    Thuộc tinhe Enable = False là vô hiệu hóa. Khi gán textbox Enable = false bạn vô hiệu hóa textbox trên form vì vậy toàn bộ control của textbox đó đều bị làm mờ, vô hiệu hóa, cả con trỏ cũng không vào được. Vô hiệu hóa hơi khác khóa data control. Khóa data control không làm mờ textbox, con trỏ vẫn vào được, nhưng không chỉnh sửa, xóa được nội dung. Thuộc tính của nó là Data / Locked.
    Để khóa dòng 7 sử dụng lệnh
    Private Sub Form_Current()
        If Me.CurrentRecord = 7 Then
             ' Gán tất cả các textbox trên dòng locked =True
        Else
             ' Gán tất cả các textbox trên dòng locked =False
        End If
    End Sub
    Nhưng như tôi dã nói khi load form những record trên table ở vị trí >= 7 đếu có thể năm trên vị trí 7 nên chỉ cần di chuyển thì có thể phá khóa bất kỳ record nào > =7
  • RE: Cách Tạo Thông Tin Nhâp Dữ Liệu

    Sang.dinh > 20-12-22, 10:05 AM

    (20-12-22, 09:14 AM)AnNguyen Đã viết:
    (19-12-22, 10:24 PM)Sang.dinh Đã viết:
    (19-12-22, 05:24 PM)AnNguyen Đã viết: Nếu muốn không cho sửa dòng 1-6 thì bạn gán thuộc tính .Enable = false cho nó

    cảm ơn bạn chia sẻ ( nhưng do tự học Access nên chưa nẵm rõ cách bạn chỉ, hiện tại mình sử dụng code builder để viết  trong Event )
    Xem video của bạn thì hình như là bạn đang muốn copy cái giá trị của dòng bên cạnh đúng không?
    Nếu vậy bạn dùng code này. còn không phải ý bạn thì mình chưa hiểu lắm big green
    Mã:
    Dim rs As Recordset, i As Integer
        Set rs = Child0.Form.Recordset ' subform
        While Not rs.EOF And i = 0
            txt1 = rs.Fields("cot1")
            txt2 = rs.Fields("cot2")
            '...
            i = 1
        Wend

    Đúng rồi á Tiền bối, nếu em bấm vào nút tiếp tục nó thì sẽ thực hiện lệnh coppy từ dòng 1-6 và em chỉ việc nhập dòng 7 và dòng 8 sau đó save thì nó sẽ tự có 1 record mới cho mình 
    để en thử code như tiền bối chia sẻ vào nút tiếp tục thử coi sao
  • RE: Cách Tạo Thông Tin Nhâp Dữ Liệu

    AnNguyen > 20-12-22, 12:20 PM

    (20-12-22, 10:01 AM)tranthanhan1962 Đã viết: Thuộc tinhe Enable = False là vô hiệu hóa. Khi gán textbox Enable = false bạn vô hiệu hóa textbox trên form vì vậy toàn bộ control của textbox đó đều bị làm mờ, vô hiệu hóa, cả con trỏ cũng không vào được. Vô hiệu hóa hơi khác khóa data control. Khóa data control không làm mờ textbox, con trỏ vẫn vào được, nhưng không chỉnh sửa, xóa được nội dung. Thuộc tính của nó là Data / Locked.

    Vâng. tại cháu hay dùng .Enable để màu nó xám lại cho người dùng biết luôn không lại cứ đặt chuột mất công gõ không được ạ big green