Skip to content
Aplicativos en Excel

PUNTO de VENTA con Excel EDITAR CLIENTE STATUS Activo Inactivo – VBA Excel #1018

Punto Venta en Exccel - Modificar Registros de Cliente

PUNTO DE VENTA EN EXCEL – Cliente con Status Activo – Inactivo

Anteriormente en Sistema de Punto de Venta en Excel, se comenz贸 a realizar el aplicativo en Excel, el cual se le ha incorporado modificaciones requeridas por los usuarios de nuestro canal de YouTube Dtube y Odysee en esta ocasi贸n la modificaci贸n consiste en otorgarle a los clientes registrados el status de Activo o Inactivo y de esta forma poder mostrar solo los clientes activos en el listado cuando se factura o alg煤n otro.

Maneja Excel como los mejores deber铆as hacer click ac谩, si quieres aprender sobre聽Excel聽en ingl茅s, entonces debes hacer聽click here. Si lo que necesitas es aprender o profundizar sobre la programaci贸n de macros con VBA este es unos de los ❤️ MEJORES CURSOS de EXCEL ON LINE ❤️ que he visto en internet, te lo recomiendo no te arrepentir谩s.

聽聽
Puedes ver la macro en acci贸n y una explicaci贸n m谩s detallada de su codificaci贸n y funcionamiento, descarga el archivo y mira el video para una m谩s f谩cil comprensi贸n de la macro; suscribe a nuestro canal de You Tube, mira el playlist con聽 v铆deos relacionados donde podr谩s ver la macros relacionadas en acci贸n con una explicaci贸n en forma visual que ayudar谩 a entender el ejemplo en forma m谩s f谩cil. Te pido que me sigas y comentes en DTube y Odysee para poder seguir publicado macros gratis.

MACRO para AGREGAR ESTATUS CLIENTE ACTIVO – INACTIVO A PUNTO DE VENTA EN EXCEL

Lo que se pretende con esta modificaci贸n es otorgarle a cada cliente una diferenciaci贸n entre activo e inactivo, es decir si el cliente est谩 activo podr谩 aparecer en los listados de clientes a los cuales se les puede facturar, realizar informes etc., por el contrario si est谩 inactivo significa que el cliente no existe m谩s, cerro su comercio, se fusion贸 con otra empresa etc., pero a los fines de ordenar nuestra cartera de clientes y evitar tener registrados a clientes que no existen m谩s en la empresa, pero que no se pueden eliminar ya que contienen registros en la base de datos e implicar铆a si se eliminan destruir los datos y tablas correlacionadas que contienen datos sobre esos clientes inactivos, por ello simplemente se hace que no aparezcan en el listado de clientes a facturar, en el caso que puntualmente se requiera consultar sobre los movimientos de dichos clientes se podr谩 hacer porque, sus datos no han sido eliminados de la base de datos.

Explicaci贸n sobre como Modificar el Formulario Punto de Venta para Incorporar esta Modificaci贸n de Establecer Cliente Activo – Inactivo

En la base de datos del ejemplo Sistema de Punto de Venta en Excel, es de en el archivo de Access que contiene toda la base de datos del aplicativo en la Tabla DB_Clientes se debe agregar un campo Yes/No True/False o Verdadero/Falso, es indistinto como le llame cada uno, el tema es que al incorporar dicho campo agrega un checkbox en dicho campo, estando activo el cliente cuando el checkbox esta con el tilde.

En la ficha clientes se debe agregar un checkbox para poder establecer el Status del Cliente, cuando se da de alta el cliente, por defecto siempre estar谩 activo, si se quiere modificar su status se debe editar el cliente y destillar el checkbox y luego editar el cliente. Mira el v铆deo explicativo para ver con mayor facilidad como se realiza lo comentado.

Seguidamente se explica el c贸digo del bot贸n editar de dicho aplicativo, el cual se utiliza para actualizar datos cuando se requiere modificar datos del cliente con as铆 tambi茅n cuando queremos establecer status inactivo a un cliente.

Se debe crear objeto de conexi贸n de Excel a la Base de datos de Access y el objeto recordset que contendr谩 los datos recuperados en memoria, as铆:

Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset

Luego se abre la conexi贸n a la base de datos:
cn.Open “Provider=Microsoft.ACE.OLEDB.12.0; ” & “data source=” & ThisWorkbook.Path & “\1000 DBTSPuntoVenta.accdb;”

Para modificar los datos del cliente se busca el n煤mero de cliente, se carga el dato del cliente en la variable busco, as铆:
busco = UserForm1.TextBox2

Se establece si el checkbox del status del cliente est谩 tildado el status ser谩 uno y destiladado o inactivo el status ser谩 0, se usa el c贸digo:
If UserForm1.CheckBox2 = True Then Status = 1 Else Status = 0

Se crea la sql para actualizar datos, que es la siguiente:

sql = “UPDATE DB_Clientes SET Nombre_Cliente = ‘” & UserForm1.TextBox3 & “‘, Domicilio_Cliente = ‘” & UserForm1.TextBox4 & “‘, Mail_Cliente = ‘” & UserForm1.TextBox5 & “‘, Telefono_Cliente = ‘” & UserForm1.TextBox6 & “‘, Cliente_Activo = ‘” & Status & “‘ WHERE N_Cliente = ” & busco & “”

Con la anterior SQL聽 se actualizan los datos y si el cliente se paso a inactivo al destillar la casilla de verificaci贸n o checkbox, el status del cliente pasar谩 a ser inactivo y no se mostrar谩 cuando se requiera facturar un cliente.

Luego se liberan las variables y cierra conexi贸n con la base de datos de Access una vez hechas las modificaci贸nes en los datos o perfil del cliente, se usan los siguientes c贸digos:

Set rs = cn.Execute(sql)

Set rs = Nothing
cn.Close
Set cn = Nothing

C贸digo PARA EVITAR INGRESO DE CLIENTES DUPLICADOS

C贸digo que va en un bot贸n de userform

Private Sub CommandButton6_Click()
On Error Resume Next
Dim cn As ADODB.Connection, rs As ADODB.Recordset, sql As String, maxCliente As Long

If UserForm1.TextBox3 = Empty Then Exit Sub

resp = MsgBox(“Seguro desea guardar los cambios realizados los datos del cliente?”, vbCritical + vbOKCancel, “AVISO”)
If resp = 2 Then Exit Sub

Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cn.Open “Provider=Microsoft.ACE.OLEDB.12.0; ” & “data source=” & ThisWorkbook.Path & “\1000 DBTSPuntoVenta.accdb;”
busco = UserForm1.TextBox2
If UserForm1.CheckBox2 = True Then Status = 1 Else Status = 0

sql = “UPDATE DB_Clientes SET Nombre_Cliente = ‘” & UserForm1.TextBox3 & “‘, Domicilio_Cliente = ‘” & UserForm1.TextBox4 & “‘, Mail_Cliente = ‘” & UserForm1.TextBox5 & “‘, Telefono_Cliente = ‘” & UserForm1.TextBox6 & “‘, Cliente_Activo = ‘” & Status & “‘ WHERE N_Cliente = ” & busco & “”

Set rs = cn.Execute(sql)

Set rs = Nothing
cn.Close
Set cn = Nothing
MsgBox (“Los datos del cliente se editaron con 茅xito”), vbInformation, “AVISO”

End Sub


聽

Puedes DESCARGAR el Ejemplo de Punto de Venta con la Modificaci贸n para Evitar el Ingreso de Clientes Repetidos

Descarga el fichero usado como ejemplo en este post y en el v铆deo explicativo, el mismo es totalmente gratuito y su uso es libre, solicito aportar para sostener esta web, si est谩 dentro de tus posibilidades, desde ya muchas gracias.

Si te fue de utilidad puedes聽INVITARME UN CAF脡聽y de esta manera ayudar a seguir manteniendo la p谩gina,聽CLICK para descargar en ejemplo en forma gratuita.

If this post was helpful聽INVITE ME A COFFEE聽and so help keep up the page,聽CLICK聽to download free example.

Donate:
👉⏩ Cuenta Paypal: https://paypal.me/programarexcel

👉⏩ Cuenta Bitcoin: 1KBGGb8fyDzyR3X1Rie6m7VguzaAfngNbd

👉⏩ Cuenta Ether: 0x41Bbd24556914C83a31217eBb3BC49789b66e407

👉⏩ Cuenta Skrill: marcrodos@yahoo.es

👉⏩ Cuenta Neteller: marcrodos@yahoo.es

👉⏩ Apoya mi trabajo https://www.patreon.com/programarexcel

👉⏩ S铆gueme en DTube: https://d.tube/#!/c/programarexcel01

👉⏩ S铆gueme en Odysee: https://odysee.com/@programarexcel:3