... ThËp23Quản lý vật t, thiết bị Thiết kế giao diện ngời máy5.1 Lập trình thực nghiệm 5.1.1 Giới thiệu về Microsoft Access Việc sử dụng ngôn ngữ lập trình phù hợp với mô hình thiết kế đóng vaitrò ... Then DoCmd.SetWarnings False DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70 DoCmd.GoToRecord , , acFirst List12.Requery DoCmd.SetWarnings ... Lª Huy ThËp8Qu¶n lý vËt t, thiÕt bÞ Loop If kt = 1 Then DoCmd.Close DoCmd.OpenForm "main" Else If Me.dem = 3 Then DoCmd.Quit Exit Sub End If MsgBox "ban nhap username...