Nhờ các anh chị xử lý tạo form trong excel (1 người xem)

[emonk]

Em có 1 file thông tin cần nhập cho khách hàng gồm các trường như hình ảnh, em đã làm đc form để nhập liệu, nút add và nút close.
1. Hiện tại em muốn làm thêm 2 nút Priveous và next để sửa những bản ghi đã nhập nhưng bị lỗi.
2. Em muốn làm 1 nút nhấn vào đó thì gọi lên 1 file word có sẵn, trước đây ở file excel em dùng hyperlink để gọi.
Rất mong sự giúp đỡ của anh/chị.
Trân trọng cảm ơn!

 

[emonk]

Trước đây em dùng mailmerg để merg thông tin từ excel sang word, nay muốn làm 1 form trông cho chuyên nghiệp hơn chút. Mong a/c em giúp đỡ, em chả biết gì về VBA.

 

[CTLCT]

Em có 1 file thông tin cần nhập cho khách hàng gồm các trường như hình ảnh, em đã làm đc form để nhập liệu, nút add và nút close.
1. Hiện tại em muốn làm thêm 2 nút Priveous và next để sửa những bản ghi đã nhập nhưng bị lỗi.
2. Em muốn làm 1 nút nhấn vào đó thì gọi lên 1 file word có sẵn, trước đây ở file excel em dùng hyperlink để gọi.
Rất mong sự giúp đỡ của anh/chị.
Trân trọng cảm ơn!

Bạn đã làm được add và close thì hai nút kia bạn cũng có thể tự làm được chứ?
Bạn đưa file bạn đã làm được như hình trên thì mọi người mới giúp bạn được chứ. Nếu có mỗi cái hình đó thì biết giúp đỡ thế nào?!

 

[ndu96081631]

Bạn đã làm được add và close thì hai nút kia bạn cũng có thể tự làm được chứ?
Bạn đưa file bạn đã làm được như hình trên thì mọi người mới giúp bạn được chứ. Nếu có mỗi cái hình đó thì biết giúp đỡ thế nào?!

Cái này dù có đưa file lên e rằng cũng không có người giúp ---> Nhờ thế thì "tất tần tật" từ A đến Z rồi còn gì ---> Ai rảnh?
???
Các bạn có thể làm 1 chường trình gì đó, gặp trục trặc ở 1 công đoạn rồi nhờ người khác giải quyết ---> Đó mới gọi là CHIA SẺ KIẾN THỨC...
Cái vụ DỌN MÂM, ĐÚT CƠM CHO ĂN thì thôi.. miễn đi

 

[emonk]

Bạn đã làm được add và close thì hai nút kia bạn cũng có thể tự làm được chứ?
Bạn đưa file bạn đã làm được như hình trên thì mọi người mới giúp bạn được chứ. Nếu có mỗi cái hình đó thì biết giúp đỡ thế nào?!

Em sưu tầm được đoạn code của 2 nút add và close trên mạng nên làm được như sau:
nút add:

Private Sub cmdAdd_Click()Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("DuLieuMerg")


iRow = ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row


ws.Cells(iRow, 1).Value = Me.txtHovaten.Value
ws.Cells(iRow, 2).Value = Me.txtCMND.Value
ws.Cells(iRow, 3).Value = Me.txtNgaycap.Value
ws.Cells(iRow, 4).Value = Me.txtNoicap.Value
ws.Cells(iRow, 5).Value = Me.txtDiachi.Value
ws.Cells(iRow, 6).Value = Me.txtSodienthoai.Value
ws.Cells(iRow, 7).Value = Me.txtNgaysinh.Value
ws.Cells(iRow, 8).Value = Me.txtQuoctich.Value
ws.Cells(iRow, 9).Value = Me.txtSotaikhoan.Value
ws.Cells(iRow, 10).Value = Me.txtNgayphathanh.Value


Me.txtHovaten.Value = ""
Me.txtCMND.Value = ""
Me.txtNgaycap.Value = ""
Me.txtNoicap.Value = ""
Me.txtDiachi.Value = ""
Me.txtSodienthoai.Value = ""
Me.txtNgaysinh.Value = ""
Me.txtQuoctich.Value = ""
Me.txtSotaikhoan.Value = ""
Me.txtNgayphathanh.Value = ""
Me.txtHovaten.SetFocus


End Sub

Nút Close

Private Sub cmdClose_Click() Unload Me
End Sub

Nút mở 1 file word em cũng sưu tầm được rồi. Nhưng tìm mỏi mắt mà không thấy đoạn code nào để làm nút next và nút Previous. Em cũng nhiều việc muốn tiết kiệm thời gian nên mới nhờ a.c sẵn cơ bản về VBA code giúp. Chắc là ko khó với a.c nhưng với người mới thì quả là 1 vấn đề. Mong a.c giúp đỡ.

 

[thang314]

theo tôi bạn dùng add và close là đủ rồi. còn next và previos để dùng chỉnh sửa bản ghi được lưu trong sheet dulieumerg thì sửa luôn trong sheet được rồi. bày ra làm gì cho mất công vì như anh Ndu đã nói: tạo form nhập liệu thì nhập luôn dữ liệu vào sheet cho đỡ mất công. nhanh, ngon bổ, rẻ quá còn gì

 

[emonk]

Private Sub cmdAdd_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("DuLieuMerg")


iRow = ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row


ws.Cells(iRow, 1).Value = Me.txtHovaten.Value
ws.Cells(iRow, 2).Value = Me.txtCMND.Value
ws.Cells(iRow, 3).Value = Me.txtNgaycap.Value
ws.Cells(iRow, 4).Value = Me.txtNoicap.Value
ws.Cells(iRow, 5).Value = Me.txtDiachi.Value
ws.Cells(iRow, 6).Value = Me.txtSodienthoai.Value
ws.Cells(iRow, 7).Value = Me.txtNgaysinh.Value
ws.Cells(iRow, 8).Value = Me.txtQuoctich.Value
ws.Cells(iRow, 9).Value = Me.txtSotaikhoan.Value
ws.Cells(iRow, 10).Value = Me.txtNgayphathanh.Value


Me.txtHovaten.Value = ""
Me.txtCMND.Value = ""
Me.txtNgaycap.Value = ""
Me.txtNoicap.Value = ""
Me.txtDiachi.Value = ""
Me.txtSodienthoai.Value = ""
Me.txtNgaysinh.Value = ""
Me.txtQuoctich.Value = ""
Me.txtSotaikhoan.Value = ""
Me.txtNgayphathanh.Value = ""
Me.txtHovaten.SetFocus


End Sub


Private Sub cmdClose_Click()
Unload Me
End Sub


Private Sub cmdLai_Click()
With CreateObject("Shell.Application")
.Open "E:\H2NTuan\Tuan2\Phat Hanh The Ghi No\Phat Hanh The Ghi No\In Ho So Phat Hanh Lai.docx"
End With
End Sub


Private Sub cmdMoi_Click()


With CreateObject("Shell.Application")
.Open "E:\H2NTuan\Tuan2\Phat Hanh The Ghi No\Phat Hanh The Ghi No\In Ho So Phat Hanh Moi.docx"
End With


End Sub


Private Sub cmdNext_Click()
Next .seclect
End Sub


Private Sub cmdPre_Click()


End Sub

 

[emonk]

nút next và nút previous làm thế nào hả các bác?

 

[emonk]

bác nào giải quyết giúp em, em mời 20 cốc bia tại Hà Nội, tùy địa điểm chọn nha.

 

[thang314]

bác nào giải quyết giúp em, em mời 20 cốc bia tại Hà Nội, tùy địa điểm chọn nha.

khiếp thật. cái vụ này hay đây. file không có, bắt mọi người đoán à.

 

[vodoi2x]

bác nào giải quyết giúp em, em mời 20 cốc bia tại Hà Nội, tùy địa điểm chọn nha.

Chồng thêm 30 cốc beer nữa thành 50 cốc (cốc 0.5 L nhé) hihihi
và
Up file lên, chú thích, đặt lại câu hỏi

thì sẽ giúp đây

 

[siwtom]

Đấu giá tí. Tôi làm cho bạn chỉ với 49 cốc thôi. Nhưng phải có tập tin.

 

[be_09]

Tôi làm cho bạn với 0 cốc, vì tính tàu xe đi và về thì đủ tiền uống bia gác chân.

 

[emonk]

file đây ạ

ae giúp đỡ nhé. Many thanks.

 

[thang314]

chia sẻ luôn với bạn thế này. bạn làm về thẻ ATM phát hành của ngân hàng, bạn thấy dữ liệu lưu trữ lớn, truy xuất không nhanh, sao không nghĩ luôn đến việc dùng một CSDL nào khác để dùng. trong file tôi thấy bạn muốn thêm yêu cầu là:
in hồ sơ phát hành mới và in hồ sơ phát hành lại. chỗ này cần chỉ rõ thế này, mới ok không vấn đề gì, nhưng lại, lại lần 1, lần 2... lần n thì sao bạn. khi dùng lại in ra cái file docx, sao không sử dụng luôn sheet trong file cho tiện. và tiếp theo như tôi đã nói ở trên, nhập dữ liệu trên userform thà bạn nhập luôn trên sheet nhanh hơn nhiều.

 

[thang314]

hôm trước bạn không đưa ra bài mẫu, tôi đã làm cho bạn thử theo yêu cầu, tôi đoán vậy. bạn xem qua rồi hoàn thiện cũng được.

 

[emonk]

chia sẻ luôn với bạn thế này. bạn làm về thẻ ATM phát hành của ngân hàng, bạn thấy dữ liệu lưu trữ lớn, truy xuất không nhanh, sao không nghĩ luôn đến việc dùng một CSDL nào khác để dùng. trong file tôi thấy bạn muốn thêm yêu cầu là:
in hồ sơ phát hành mới và in hồ sơ phát hành lại. chỗ này cần chỉ rõ thế này, mới ok không vấn đề gì, nhưng lại, lại lần 1, lần 2... lần n thì sao bạn. khi dùng lại in ra cái file docx, sao không sử dụng luôn sheet trong file cho tiện. và tiếp theo như tôi đã nói ở trên, nhập dữ liệu trên userform thà bạn nhập luôn trên sheet nhanh hơn nhiều.

Em vẫn biết CSDL sẽ phình to nhưng mò mẫm mãi mới làm đc cái file execel trên, giờ bác bảo em đi vọc thêm CSDL khác, thì khó quá. Sử dụng luôn sheet trong Excel thì em cũng chưa biết làm. Còn việc làm cái user form để lừa tình là chính thôi mà bác.

hôm trước bạn không đưa ra bài mẫu, tôi đã làm cho bạn thử theo yêu cầu, tôi đoán vậy. bạn xem qua rồi hoàn thiện cũng được.​

Tập tin đính kèm

• 
  Book1.xls (51.5 KB, 0 lần tải)

Em tải về mà vẫn chưa chạy được bác ạ. Mục đích của nút next và nút pre là xem lại các bản ghi trước để chỉnh sửa thông tin nếu nhập sai.

 

[thang314]

chưa chạy được là sao nhỉ. báo lỗi gì đây.

 

[emonk]

Private Sub CommandButton1_Click()Dim Rs As New ADODB.Recordset
Ketnoi
Rs.Open "select*from [sheet1$]", Cn, 3, 3
Rs.AddNew
Rs![ho ten] = Me.TextBox1.Text
Rs![ngay sinh] = Me.DTPicker1.Value
Rs![So CMND] = Me.TextBox3.Text
Rs![ngay cap] = Me.DTPicker2.Value
Rs![noi cap] = Me.TextBox4.Text
Rs![quoc tich] = Me.TextBox2.Text
Rs![dia chi] = Me.TextBox5.Text
Rs![so dt] = Me.TextBox6.Text
Rs![tk] = Me.TextBox7.Text
Rs![ngay ph] = Me.DTPicker3.Value
Me.TextBox1 = ""
Me.TextBox2 = ""
Me.TextBox3 = ""
Me.TextBox4 = ""
Me.TextBox5 = ""
Me.TextBox6 = ""
Me.TextBox7 = ""
Rs.Update
Rs.Close
Cn.Close
End Sub

Method of data member not found.

 

[thang314]

rồi, bạn xem thiếu cái nào không nhé.