chỉ cách viết code làm sao lưu 1 record vào 2 tables
chào các bạn,
Nhờ các bạn giúp mình viết code làm sao để lưu 1 record vào 2 tables. Mình cần các bạn giúp đỡ rất gấp vì sắp hết hạn nộp bài
Mình có table KY_THI (MA_KY_THI, TEN_KY_THI) và table MON_THI (MA_MON_THI, TEN_MON_THI). Do 2 tables này quan hệ n-n nên có table trung gian là KY_THI_CO_MON_THI(MA_MON_THI, MA_KY_THI).
Làm sao lúc thêm mới kỳ thi và môn thi rồi nhấn nút Lưu thì kỳ thi và môn thi sẽ lưu vào tables KY_THI, MON_THI, KY_THI_CO_MON_THI.
Đây là code của mình
Private Sub cmdLuukythi_Click()
Call SaveThongTin
End Sub
Private Sub CloseForm()
Dim strFormName As String
strFormName = Me.Name
DoCmd.Close acForm, "Capnhatthongtinkythi", acSaveYes
Forms!Dethi!Gridkythi.Requery
End Sub
Private Sub SaveThongTin()
Dim err As Integer
Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
'Check entered data
txtMakythi.SetFocus
If txtMakythi.Text = "" Then
err = err + 1
MsgBox "Vui long nhap Ma ky thi!", vbInformation, "Thong bao"
Else
txtTenkythi.SetFocus
If txtTenkythi.Text = "" Then
err = err + 1
MsgBox "Vui long nhap Ten ky thi!", vbInformation, "Thong bao"
Else
txtNamhoc.SetFocus
If Len(txtNamhoc.Text) <> 4 And CInt(txtNamhoc.Text) > 1900 Then
err = err + 1
MsgBox "Nam hoc phai co 4 so!", vbInformation, "Thong bao"
Else
txtNamhoc.SetFocus
If CInt(txtNamhoc.Text) < 1900 Then
err = err + 1
MsgBox "Nam hoc phai lon hon hoac bang 1900!", vbInformation, "Thong bao"
Else
txtNamhoc.SetFocus
If txtNamhoc.Text = "" Then
err = err + 1
MsgBox "Vui long nhap Nam hoc!", vbInformation, "Thong bao"
End If
End If
End If
End If
End If
'Insert data
If err < 1 Then
' Open a connection
Set cnn = New ADODB.Connection
' Open table
Set rs = New ADODB.Recordset
rs.ActiveConnection = CurrentProject.Connection
rs.CursorType = adOpenKeyset
rs.LockType = adLockOptimistic
rs.Open "KY_THI"
On Error GoTo Loi
'Get the new record data
rs.AddNew
rs!MA_KY_THI = txtMakythi
rs!TEN_KY_THI = txtTenkythi
rs!NAM_HOC = txtNamhoc
rs.Update
' Show the newly added data.
MsgBox "Them ky thi " & rs!MA_KY_THI & " thanh cong", vbInformation, "Thong bao"
'Close connection
rs.Close
Call CloseForm
End If
Exit Sub
Loi:
MsgBox "Ma ky thi nay da ton tai. Vui long nhap ma khac!", vbInformation, "Thong bao"
txtMakythi.SetFocus
End Sub
+Theo như cách thiết kế của mình thì mình ko biết làm sao để lưu các môn thi thuộc 1 kỳ thi được.
+Hiện tại ở form Dethi mình chưa biết viết code để Sửa 1 record là khi chọn 1 record trên grid-> nhấn nút Sửa sẽ load lên 1 form con đồng thời load luôn dữ liệu của record chọn lên form con để sửa.
+Mình làm tương tự cho môn thi nhưng chạy bị lỗi, nhờ các bạn xem giúp mình luôn nhé.
+Code của nút xóa môn thi cũng chạy ko được
Private Sub cmdXoamonthi_Click()
Call DeleteARecord
End Sub
Function DeleteARecord()
If MsgBo"Ban co muon xoa mau tin nay khong?", vbYesNo + vbQuestion, "Thong bao") = vbYes Then
DoCmd.SetWarnings False
CurrentDb.Execute "DELETE FROM MON_THI " & _
"WHERE [MA_MON_THI]='" & [Gridmonthi].Form![MA_MON_THI] & "'"
End If
End Function
Đây là CSDL của mình http://www.mediafire.com/?hft6i3w8kmwp0tt
xin cám ơn
Xin hướng dẫn cách Copy một record trong form !
Mình có làm một form để nhập dữ liệu, tương ứng mỗi lần nhập là add thêm 1 record trong một bản ! Để tránh mất thời gian khi nhập những dữ liệu gần giống nhau mình đã sưu tầm được code để tạo một nút copy toàn bộ form và chỉ việc chỉnh sửa chút đỉnh bấm nút lưu là xong.
Tuy nhiên em bị rắc rối nhỏ là do có chọn khóa chính và chọn No duplicate, nên khi copy toán bộ form là bị lỗi ngay (nếu chọn no duplicate thì k bị ).
Nay nhờ các bạn hướng dẫn, làm cách nào khi copy sẽ loại trừ filed có khóa chính ra không ạ )vì field có khóa chính có thể nhập mới.
Code của lệnh copy của em :
Private Sub Command75_Click()
On Error GoTo Err_Command75_Click
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdCopy
DoCmd.RunCommand acCmdRecordsGoToNew
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdPaste
Exit_Command75_Click:
Exit Sub
Err_Command75_Click:
MsgBox Err.Description
Resume Exit_Command75_Click
End Sub
Liệt Kê hàng Hóa
Mình có csdl như đính kèm
Du Lieu Minh Kem Theo
Câu hỏi truy vấn là: Liệt kê tất cả các mặt hàng đã được nhập nhưng chưa được xuất.
Mong các bạn giúp với. Thanks
Xin tư vấn hoàn thiện ứng dụng của em
đã có lời giải, không ai giúp nên đóng chủ đề
chào thân ái
viết code xóa 1 record như thế nào ạh
chào các bạn,
Đây là CSDL của mình http://www.mediafire.com/?mkvjfycyn7bg15r
Mình muốn xóa record của kỳ thi trong form Dskythimonthi thì viết code làm sao?
Đây là code:
Private Sub cmdXoakythi_Click()
If DCount("[MA_KY_THI]", "KY_THI") > 0 Then
MsgBox("Ban co muon xoa mau tin nay khong?", vbYesNo + vbQuestion, "Thong bao") = vbYes
DoCmd.SetWarnings False
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.GoToRecord , , acLast
Forms!DSkythimonthi!Gridkythi.Requery
End If
End Sub
Mong các bạn chỉ giúp
Chủ đề Mới nhất |
Quản lý kho bằng Accesss
-Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: huan1983_bk-02-05-24, 11:07 AM-
» Bài trả lời: 39-
» Lượt xem: 1,537
|
Dòng Thơ Nhạc Trích Đoạn
-Chuyên mục: Góc Thơ -Đăng bởi lần cuối: Nguyễn Thành Sáng-30-04-24, 04:51 PM-
» Bài trả lời: 4-
» Lượt xem: 43
|
[Demo-Phần 4] Tạo khóa bả...
-Chuyên mục: Thư viện thủ thuật-Đăng bởi lần cuối: ongke0711-27-04-24, 11:04 PM-
» Bài trả lời: 39-
» Lượt xem: 5,468
|
Trợ giúp về Textbox với c...
-Chuyên mục: Forms-Đăng bởi lần cuối: Nguyên Thông-18-04-24, 10:15 PM-
» Bài trả lời: 16-
» Lượt xem: 5,946
|
In mã vạch tạo từ access ...
-Chuyên mục: Forms-Đăng bởi lần cuối: huyhoang22-15-04-24, 11:25 AM-
» Bài trả lời: 38-
» Lượt xem: 20,789
|
Kết nối bảng từ access A ...
-Chuyên mục: Thủ thuật VBA-Đăng bởi lần cuối: hieunx-11-04-24, 01:23 PM-
» Bài trả lời: 5-
» Lượt xem: 85
|
Lấy dữ liệu từ 1 cột của ...
-Chuyên mục: Query-Đăng bởi lần cuối: ongke0711-09-04-24, 11:34 AM-
» Bài trả lời: 11-
» Lượt xem: 803
|
[Lỗi] Automation error kh...
-Chuyên mục: Thành viên giúp nhau-Đăng bởi lần cuối: AnNguyen-05-04-24, 09:30 AM-
» Bài trả lời: 4-
» Lượt xem: 69
|
Lọc tên vật tư theo nhóm
-Chuyên mục: Forms-Đăng bởi lần cuối: ongke0711-02-04-24, 04:00 PM-
» Bài trả lời: 1-
» Lượt xem: 51
|
Thơ con cóc
-Chuyên mục: Góc Thơ -Đăng bởi lần cuối: Xuân Thanh-01-04-24, 06:45 PM-
» Bài trả lời: 111-
» Lượt xem: 59,120
|
Diễn đàn Thống kê |
» Thành viên: 4,508
» Thành viên mới nhất: ginafreema
» Các chủ đề diễn đàn: 9,858
» Các bài viết diễn: 48,442
Thống kê đầy đủ
|
| | | | |