Private Sub cmdCommand1_Click()
'Insertar Registro
dbReservas.Recordset.AddNew
Asigna valor a la bandera Reg_Saved que indica que no ha sido guardado
el registro
Reg_Saved = True
Deshabilita los botones y controles necesarios
Command1.Enabled = False
DispW.Enabled = False
cmdConsulta.Enabled = False
Hotel.Enabled = False
Command4.Enabled = False
cmdVendedores.Enabled = False
cmdRreservas.Enabled = False
Command15.Enabled = False
cmdSalir.Enabled = False
cmdModificar.Enabled = False
Command12.Enabled = False
Allotment.Enabled = False
SSDBData1.Enabled = False
HoraReserva.Text = Format(Now(), "HH:MM:SS ampm")
inserta un registro en la tabla Userlog, con los siguientes valores:
dbUlog.Recordset.AddNew
dbUlog.Recordset.Fields("Computadora").Value = FindComputerName
dbUlog.Recordset.Fields("UsuarioWindows").Value = FindUserName
dbUlog.Recordset.Fields("UsuarioSicres").Value = RsvUsuario.Text
dbUlog.Recordset.Fields("Fecha").Value = Format(Now(), "dd/mm/yyyy")
dbUlog.Recordset.Fields("Hora").Value = Format(Now(), "HH:MM:SS")
dbUlog.Recordset.Fields("Actividad").Value = "Insertar Reservacion"
dbUlog.Recordset.Update
dbUlog.Refresh
Habilita el Combo para seleccionar o capturar la fecha de la reservacin
SSDateCombo1.Enabled = True
SSDateCombo1.DateValue = Format(Now(), "DD/MM/YY")
Habilita los controles necesarios para capturar la reservacin
Rsvactiv.Enabled = True
Rsvhora.Enabled = True
Text5.Enabled = True
Text6.Enabled = True
Text7.Enabled = True
Rsvnombre.Enabled = True
Rsvhotel.Enabled = True
Rsvtelefono.Enabled = True
Rsvhab.Enabled = True
Text1.Enabled = True
Rsvnotas.Enabled = True
Rsvcventas.Enabled = True
Rsvsventas.Enabled = True
RsvAgente.Enabled = True
Command1.Enabled = False
Command2.Enabled = True
Command3.Enabled = True
SSDateCombo1.SetFocus
End Sub
