Private Sub Rsvhotel_LostFocus()
'
'Bifurcacin a Telefono del Hotel Seleccionado
'
On Error Resume Next
El cuadro de texto Rsvtelefono, se llena con el telfono del hotel
seleccionado en el ComboBox Rsvhotel
dbHotel.DatabaseName = frmMain.Ap_Path & frmMain.dbName
dbHotel.RecordsetType = 1
dbHotel.RecordSource = "Select Telefono FROM Hoteles WHERE Hotel=" & Chr(34) & Rsvhotel.Text & Chr(34)
dbHotel.Refresh
dbHotel.Recordset.MoveFirst
Rsvtelefono.Text = dbHotel.Recordset.Fields("Telefono").Value
End Sub
