Wrrr

ALTAS

Private Sub btGuardar_Click()
With rstBoleto
.AddNew
![Clave] = txbClave.Text
![Nombre] = txbNombre.Text
![NoBoleto] = txbNoBoleto.Text
![Ciudad de Salida] = txbCiudaddeSalida.Text
![Ciudad de Destino] = txbCiudaddeDestino.Text
![Hora de Salida] =txbHoradeSalida.Text
![No de Autobus] = txbNoAutobus.Text
![No de Asiento]= txbNoAsiento.Text
![Fecha de Adquisicion] = txbFechaAdquisicion.Text
![Folio] = txbFolio.Text
![Forma de Pago] = txbFormaPago.Text
'Para que agregue el registro, de lo contrario
' NO lo agrega, se debe usar Update
.Update
End With
End Sub

Private Sub btRegresar_Click()
rstBoleto.Close
conexion.Close
Set rstBoleto = Nothing
Set conexion = Nothing
UnloadMe
End Sub

Private Sub Form_Load()
frmAltas.WindowState = 2
Call LimpiarCasillas
Call bdPasajeros(rstBoleto)
End Sub

Private Sub LimpiarCasillas()
With frmAltas
.txbClave.Text == vbNullString
.txbNombre.Text= vbNullString
.txbNoBoleto.Text = vbNullString
.txbCiudaddeSalida.Text = vbNullString
.txbCiudaddeDestino.Text = vbNullString
.txbHoradeSalida.Text = vbNullString.txbNoAutobus.Text = vbNullString
.txbNoAsiento.Text = vbNullString
.txbFechaAdquisicion.Text = vbNullString
.txbFolio.Text = vbNullString
.txbFormaPago.Text = vbNullString
End With
End Sub

BAJAS
Private Sub btBuscar_Click()
strBuscar = txbBuscar.Text
Call bdOptibuss(rstAlumnos)
rstAlumnos.MoveFirst
Call MostrarDatosBoleto
Buscado = True
End Sub

Private Sub btEliminar_Click()
Dim respAs Variant
' Variant para que la variable resp se acople a cualquier tipo de dato
resp = MsgBox("Esta seguro de borrar el registro?", vbQuestion + vbYesNo, "Confirmacion")

If (resp = vbYes) Then
With rstBoletos
.Delete
.MoveNext
If (.EOF) Then
.MovePrevious
If (Not ExistenRegistros) Then
MsgBox "Este fue el ultimo registro"End If
End If
End With
If (ExistenRegistros) Then
Call MostrarDatosBoleto
Else
Call LimpiarCasillas
End If
End If

End Sub

Private Sub btSalir_Click()
If Buscado Then
rstBoleto.Close
conexion.Close
Set rstBoleto = Nothing
Set conexion = Nothing
End If
Unload Me
End Sub

Private Sub Form_Activate()txbBuscar.SetFocus
End Sub

Private Sub Form_Load()
frmBajas.WindowState = 2
Buscado = False
End Sub

Private Sub MostrarDatosBoleto()
With frmBajas
.txbClave.Text=rstBoleto[Clave]
.txbNombre.Text=rstBoleto[Nombre del pasajero]
.txbNoBoleto.Text =rstBoleto[No. Boleto]
.txbCiudaddeSalida.Text =rstBoleto[Ciudad de Salida]
.txbCiudaddeDestino.Text =rstBoleto[Cidudad de destino].txbHoradeSalida.Text=rstBoleto[Hora de Salida]
.txbNoAutobus.Text =rstBoleto[No. Autobus]
.txbNoAsiento.Text =rstBoleto[No. Asiento]
.txbFechaAdquisicion.Text=rstBoleto[Fecha de Adquisicion]
.txbFolio.Text =rstBoleto[Folio]
.txbFormaPago.Text=rstBoleto[Forma de Pago]

End With
End Sub
Private Sub LimpiarCasillas()
With frmBajas

.txbClave.Text =vbNullString.txbNombre.Text= vbNullString
.txbNoBoleto.Text = vbNullString
.txbCiudaddeSalida.Text = vbNullString
.txbCiudaddeDestino.Text = vbNullString
.txbHoradeSalida.Text = vbNullString
.txbNoAutobus.Text = vbNullString
.txbNoAsiento.Text = vbNullString
.txbFechaAdquisicion.Text = vbNullString
.txbFolio.Text = vbNullString
.txbFormaPago.Text = vbNullString
End With
End Sub
Private FunctionExistenRegistros() As Boolean
If (rstBoletos.RecordCount > 0) Then
ExistenRegistros = True
Else
ExistenRegistros = False
End If
End Function

CAMBIOS
Private Sub btActualizar_Click()
With rstBoleto
![Clave] = txbClave.Text
![Nombre] = txbNombre.Text
![NoBoleto] = txbNoBoleto.Text
![Ciudad de Salida] = txbCiudaddeSalida.Text
![Ciudad de Destino] =...