Adriel Ortiz Mangia

Private Sub Command3_Click() 'GUARDAR Adodc1.Recordset.AddNew 'Añade un nuevo registro End Sub el UPDATE es para actualizar

Te recomiendo este vídeo y le adecuas a tus necesidades. https://www.youtube.com/watch?v=6ZrbszEhjjc Valora la respuesta para finalizar Saludos!

Copia en el evento Change del cuadro de lista. Private Sub ComboBox1_Change() If ComboBox1.Text = "Pescado" Then TextBox1.Text = "Refrigerar de 2 a 6°C" ElseIf ComboBox1.Text = "Yogurth" Then TextBox1.Text = "Refrigerar de 2 A 8°C" ElseIf...

Envíame al Email: [email protected] para desbloquearlo

Usa esto Text1.Text= Format$ (Val(Text1.Text),"##,#0.00") No olvides de valorar la respuesta "Bueno" o "Excelente"

Crea un modulo y copia esto Sub mensaje() Dim fecha As Date celda = Range("C2") MsgBox "Fecha: " & Date & Chr(13) + " El valor de la Venta es: " & celda, vbInformation, "Valor Venta Diaria" End Sub No olvides de valorar la respuesta Saludos!

Lo puedes controlar con un cronómetro. Crea un módulo y copia esto Option Explicit Public InicialTime As Date Public ETime As Date '---------------------------------------------- Sub IniciaCronometro() InicialTime = Now Cronometro End Sub...

Te recomiendo la pagina de juan carlos arcila diaz en youtube, suscribete y aprenderas desde cero

Utiliza el NITRO PDF http://www.nitropdf.com/es/try