Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Help] Đổi tên hàng loạt textbox trong report
#1
Chào mọi người em có ý tưởng như thế này nhưng không biết thực hiện thế nào.
Em tạo một cái report có nhiều ô textbox 
Giờ em muốn đổi tên text100-> text150 thành a0-a50 (những tên textbox khác thì giữ nguyên) thì có cánh nào viết code đổi hàng loạt những tên đó một lúc không.
Chữ ký của NguyenDungAnh Đến với cuộc đời hai tay trắng
Giã từ trần thế trắng hai tay
Bao nhiêu tiếng nói tiếng cười
Sống ở cuộc đời lãi được vậy thôi
ღღღღღTài sản của NguyenDungAnh (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#2
Bạn thiết kế form gì mà cần nhiều textbox dữ vậy??
Dùng cái sub bên dứoi đổi tên: copy vào module
- Chú ý là phải mở cái Form cần đổi tên textbox ở chế độ Design rồi chạy cái sub này.
- VD: Call DoiTenTxtBox ("Form1")


Public Sub DoiTenTxtBox(FormName As String)
    Dim frm As Form
    Dim ctl As Control
    Dim i As Integer, j As Integer
    
    Set frm = Forms(FormName)
    j = 0
    For i = 100 To 150
        For Each ctl In frm.Controls
            If ctl.ControlType = acTextBox And ctl.Name = "Text" & i Then
                ctl.Name = "a" & j
                GoTo skip
            End If
        Next ctl
        j = j + 1
skip:
    Next i
End Sub
Chữ ký của ongke0711 If you BORN poor, it's not your mistake. But if you DIE poor, It's your mistake!
ღღღღღTài sản của ongke0711 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#3
Em tạo report bác ạ!
Tạo kiểu nhập xuất tồn nhập xuất tồn nhập xuất tồn .....  ấy.
Em nghĩ ra cách làm kiểu ấy rồi, xong em sẽ share các bác xem giúp nhé.
Chữ ký của NguyenDungAnh Đến với cuộc đời hai tay trắng
Giã từ trần thế trắng hai tay
Bao nhiêu tiếng nói tiếng cười
Sống ở cuộc đời lãi được vậy thôi
ღღღღღTài sản của NguyenDungAnh (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#4
cái lệnh skip: là để làm gì vậy bạn.
Chữ ký của mrsiro Xin chào, mình là mrsiro, Tham gia http://thuthuataccess.com/forum từ ngày 05-12 -14.
Reply
Những người đã cảm ơn
#5
(05-09-18, 04:06 PM)mrsiro Đã viết: cái lệnh skip: là để làm gì vậy bạn.

Nó không phải lệnh mà là Label "skip". Tôi đặt tên gợi nhớ thôi. Bạn muốn đặt tên gì cũng được.
Bạn ngâm cứu câu lênh: 
     On Error Goto <label>:
Link: http://www.cpearson.com/excel/errorhandling.htm

"GoTo skip" là để code sau khi xử lý xong dòng code "ctl.Name =..." ở trên sẽ nhảy tới dòng (line) chứa Label "skip" và xử lý các dòng code thuộc Label "skip" này.
Trong câu lệnh ở trên sau khi duyệt qua (vòng lặp) các "Control" trên Form, nếu tìm thấy textbox có Name là "Text100" thì gán Name = a0 sau đó nhảy qua biến i kế tiếp để xử lý. Nếu không nhảy ngay thì code sẽ tiếp tục duyệt tiếp các control còn lại để tìm "text100" nữa, mà text100 này chỉ có một, đã tìm thấy rồi thì thôi, nhảy qua text101 để tìm tiếp khỏi mất thời gian duyệt hết vòng lặp
Chữ ký của ongke0711 If you BORN poor, it's not your mistake. But if you DIE poor, It's your mistake!
ღღღღღTài sản của ongke0711 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn NguyenDungAnh


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
Wink Hướng Dẫn Diễn giải trong report ladanavn 4 159 21-09-18, 05:51 PM
Bài mới nhất: tranthanhan1962
  [Help] Report in không đúng như hiển thị! NguyenDungAnh 5 246 12-09-18, 10:18 PM
Bài mới nhất: NguyenDungAnh
  Hướng Dẫn Lấy tên cán bộ trong report bằng lăng 3 226 31-08-18, 10:46 AM
Bài mới nhất: ledangvan
  [Help] In report bị khoảng trắng giữa các dòng NguyenDungAnh 7 274 30-08-18, 08:01 PM
Bài mới nhất: NguyenDungAnh
Heart [Help] tính tổng số tiền của 1 cột trong report tranhai_vn 7 7,329 18-07-18, 12:15 PM
Bài mới nhất: Cuong Servenet

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ| PMA Nha Trang| Gỗ Acrylic Không Đường Line