Florerias

Florería (Base de datos) Continuación:
Se requiere agregar las siguientes tablas:
a) 4 Cajeros: nombre, numero de empleado, dirección, teléfono, número de cuenta bancaria (para depositarlessu pago), turno y foto.
b) 4 Clientes con facturas: estas facturas requieran que el cliente tenga RFC.
c) 3 Tipos de pagos: efectivo, dólares (se requiere que tenga el tipo de cambio),tarjeta.
Consultas:
a) Búsqueda de precios por debajo de 500 pesos
b) Búsqueda de precios entre 200 y 500 pesos
c) Ventas por cajero: se requiere que salga una ventana para pedirnos el nombredel cajero
d) Ventas por fecha
e) Productos más vendido
f) Servicio más vendido
Formularios:
a) Para ventas de flores y arreglos
b) Para servicios
c) Catálogo de flores, arreglos yservicios
Informes:
a) Ventas por cajero
b) Ventas por tipos de pago
c) Ventas por productos: arreglos y flores
d) Ventas por servicios
Utilizar:
a) Cuadro combinado del cuadro decontroles
b) Botón de opción del cuadro de controles
c) Grupo de opciones del cuadro de controles
Agregar 10 clientes más (20) y 10 facturas mas donde utilicemos a clientes con Facturas. Lasfacturas deben de tener total, subtotal y total a pagar.



CODIGO
'Condicion de If Else
Private Sub Comando46_Click()
If Texto44 & 0 Then
Texto42 = [Precio] * [Texto44]
Texto50 =Texto42 + (Texto44 * 1.11)
Texto52 = Texto50 + 10
End If
End Sub

' Funcion Borrar
Private Sub Comando47_Click()
Texto44 = Empty
Texto42 = Empty
Texto50 = Empty
Texto52 = EmptyEnd Sub


Private Sub Form_Current()

'Me.Precio.Locked = False
Me.Precio.Enabled = False
'Me.Precio.Visible = True

End Sub


Private Sub opcion_Click()
If opcion = True Then'Se pueden utilizar cualquiera de las dos: Locked o Visible
Precio.Locked = False
Precio.Visible = True
Else
Precio.Locked = True
Precio.Visible = False
End If