Điền dữ liệu vào textbox trong Form.

[snow25]

Mọi người cho em hỏi vấn đề này ạ.Là em có 1 sự kiện khi clik vào 1 textbox trong form.Nó sẽ hiện ra 1 form mới.Và ở form đó có 1 textbox để nhập vào ô textbox mình vừa clik vào sự kiện kia.Em gửi file đính kèm mọi người xem ạ.Ở đây là textbox bất kỳ nhé.

 

[leonguyenz]

Mọi người cho em hỏi vấn đề này ạ.Là em có 1 sự kiện khi clik vào 1 textbox trong form.Nó sẽ hiện ra 1 form mới.Và ở form đó có 1 textbox để nhập vào ô textbox mình vừa clik vào sự kiện kia.Em gửi file đính kèm mọi người xem ạ.Ở đây là textbox bất kỳ nhé.

TextBox không có sự kiện Click, có sự kiện Double Click thôi.
Chưa hiểu ý của @snow25
Thử đoạn này trong UserForm2 để gán vào TextBox1 trong UserForm1.

Private Sub CommandButton1_Click()
    UserForm1.TextBox1.Text = Me.TextBox1.Text
End Sub

Để gán đúng TextBox đã Double Click thì gán 1 biến Public là String để lấy TextBox đã Double Click.

 

[snow25]

TextBox không có sự kiện Click, có sự kiện Double Click thôi.
Chưa hiểu ý của @snow25
Thử đoạn này trong UserForm2 để gán vào TextBox1 trong UserForm1.

Private Sub CommandButton1_Click()
    UserForm1.TextBox1.Text = Me.TextBox1.Text
End Sub

Để gán đúng TextBox đã Double Click thì gán 1 biến Public là String để lấy TextBox đã Double Click.

Anh ơi vấn đề là em không biết mình đang làm ở sự kiện textbox nào để gán dữ liệu ấy.Em đang vướng chỗ đó.Anh có thể viết câu lệnh để lấy tên textbox mình đang chạy sự kiện không ạ.

 

[leonguyenz]

Anh ơi vấn đề là em không biết mình đang làm ở sự kiện textbox nào để gán dữ liệu ấy.Em đang vướng chỗ đó.Anh có thể viết câu lệnh để lấy tên textbox mình đang chạy sự kiện không ạ.

Tạo 1 biến Public và gọi UF1

Public TBox As String

Sub Button1_Click()
    UserForm1.Show
End Sub

Gán biến lấy tên TextBox, ví dụ TextBox1:

Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    TBox = Me.TextBox1.Name
    UserForm2.Show
End Sub

Mở UF2, đưa con chuột vào TextBox1:

Private Sub UserForm_Initialize()
    Me.TextBox1.SetFocus
End Sub

Gán kết quả nhập liệu từ UF2 vào UF1.TextBox đã chọn và ẩn UF2:

Private Sub CommandButton1_Click()
    UserForm1.Controls(TBox) = Me.TextBox1.Text
    Unload Me
End Sub

 

[snow25]

Tạo 1 biến Public và gọi UF1

Public TBox As String

Sub Button1_Click()
    UserForm1.Show
End Sub

Gán biến lấy tên TextBox, ví dụ TextBox1:

Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    TBox = Me.TextBox1.Name
    UserForm2.Show
End Sub

Mở UF2, đưa con chuột vào TextBox1:

Private Sub UserForm_Initialize()
    Me.TextBox1.SetFocus
End Sub

Gán kết quả nhập liệu từ UF2 vào UF1.TextBox đã chọn và ẩn UF2:

Private Sub CommandButton1_Click()
    UserForm1.Controls(TBox) = Me.TextBox1.Text
    Unload Me
End Sub

Em cảm ơn anh nhé.Em hiểu rồi ạ.

 

[leonguyenz]

Em cảm ơn anh nhé.Em hiểu rồi ạ.

Nhờ sửa lại lệnh

Private Sub CommandButton1_Click()
    UserForm1.Controls(TBox) = Me.TextBox1.Text
    Unload Me
End Sub

Thành:

Private Sub CommandButton1_Click()
    UserForm1.Controls(TBox) = Me.TextBox1.Text
    UserForm2.Hide
End Sub