Excelente aporte amigo muchas gracias, una pregunta yo tengo un programa en Access pero quisiera restringir un menú de la barra de menús que hice de forma horizontal. pero para que yo pueda bloquear esa opción la tendría que hacer en visual basic. mi pregunta en concreto cres si podria boquear el acceso a ese menú. por ejemplo al menú catálogos. saludos desde la ciudad de México
Hola amigo. Acudo a ustedes para que me asesoren con este pequeño problema para ustedes. Tengo una base de datos en acces con el nombre "Escuela.mdb" y una tabla con el nombre "DatosyNotas", también tengo una conexión DataGrid con el nombre DataGrid1. En un formulario de Visual Basic 6.0 tengo un Text con el nombre Cedula y cuando introduzco un número de Cedula que ya esta registrado, me muestra este mensaje: Error "424" en tiempo de ejecución: se requiere un objeto y me subraya en color amarillo este código: .RecordSource = "Select * from DatosyNotas where Cedula=" & TxtCedula.Text Este es mi código: Private Sub CmdGuardar_Click() Dim Cedula As String Cedula = TxtCedula.Text With ControlData .RecordSource = "Select * from DatosyNotas where Cedula=" & TxtCedula.Text .Refresh If .Recordset.EOF = True Then MsgBox "Ese dato ya fue ingresado" Else .Recordset.AddNew .Recordset("Cedula") = Cedula .Recordset.Update End If End With End Sub Lo que quiero es que no se repitan los números de Cedula Muchas gracias amigos.
que tal profe, gracias por su conocimiento, quería consultarle si de casualidad tiene algún tutorial o guía donde pueda ver el funcionamiento de Visual Basic 1997 conectado a Access y gestionarlo por medio de SQL. disculpa la molestia pero no he podido encontrar esta información en ningún lugar de internet. Estoy en prueba de trabajo 2 meses, si no lo aprendo me sacan. El documento adjunto lo envio para mostrar un ejemplo de lo que la empresa me esta pidiendo. NO busco que haga mi trabajo solo busco su conocimiento y colaboración Muchas gracias por la atención. Kevin Duque.
Buen ejemplo, pero a mi me marca error en el modulo de borrar_texto, lo que hice fue que en el botón Añadir al final puse el siguiente código: CANTIDAD = Empty DETALLE = Empty PRECIO = Empty y con eso ya no se requiere el modulo borrar. También para los que requieren en este ejemplo del amigo aparezcan el signo de pesos en la lista y en los textos de precios e IVA es solo de colocar el código de formatcurrency. y queda si el código completo: Private Sub AÑADIR_Click() LISTADO.Col = 1 LISTADO.Row = FILA LISTADO.Text = CANTIDAD.Text LISTADO.Col = 2 LISTADO.Row = FILA LISTADO.Text = DETALLE.Text LISTADO.Col = 3 LISTADO.Row = FILA LISTADO.Text = FormatCurrency(PRECIO) '.Text V = Val(CANTIDAD) * FormatCurrency(PRECIO) LISTADO.Col = 4 LISTADO.Row = FILA LISTADO.Text = FormatCurrency(V) TOT = TOT + V TOTAL = FormatCurrency(TOT) FILA = FILA + 1 'borrar_texto CANTIDAD = Empty DETALLE = Empty PRECIO = Empty End Sub '________________________________________________________________________________________ Private Sub BORRAR_Click() TOT = TOT - V TOTAL = TOT FILA = FILA - 1 LISTADO.Col = 1 LISTADO.Row = FILA LISTADO.Text = "" LISTADO.Col = 2 LISTADO.Row = FILA LISTADO.Text = "" LISTADO.Col = 3 LISTADO.Row = FILA LISTADO.Text = "" LISTADO.Col = 4 LISTADO.Row = FILA LISTADO.Text = "" End Sub '___________________________________________________________________________________ Private Sub Form_Load() LISTADO.ColWidth(0) = 10 LISTADO.Col = 1 LISTADO.Row = 0 LISTADO.Text = "CANTIDAD" LISTADO.ColWidth(2) = 5000 LISTADO.ColAlignment(2) = 5 LISTADO.Col = 2 LISTADO.Row = 0 LISTADO.Text = "DETALLE" LISTADO.Col = 3 LISTADO.Row = 0 LISTADO.Text = "PRECIO" LISTADO.Col = 4 LISTADO.Row = 0 LISTADO.Text = "PARCIAL" FILA = 1 End Sub '________________________________________________________________________________ Private Sub PAGAR_Click() IVA = FormatCurrency(TOT * 0.12) PAGO = FormatCurrency(TOT + IVA) End Sub '____________________________________________________________________ Private Sub PRECIO_Change()'este ultimo para que aparezca el signo de pesos en textbox On Error Resume Next PRECIO = FormatCurrency(PRECIO, 2) End Sub
Excelente video me ayudo muchísimo, pero por que al final me dice que me falta un objeto dice: Error '424' en tiempo de ejecución Se requiere un objeto. Y me lleva al modulo y se pone al amarillo en: Factural.CANTIDAD.Text = ""
Buen video segui los mismos pasos q tu isistes en el video .., pero lo malo ya al ejecutarlo en donde dise detalle me sale angosto el cuadro no se por que ...
Este esta mas perdido que chuño en ceviche, no elabora las secuencias de programación solo las pega, sin explicar el porque se utiliza uno u otra función de la sección pegada, y la cereza de la torta, ejecuta su programa plagiado y se le cuelga en vivo porque esta mal plagiado, rebuzna preguntando a sus incautos alumnos, "tienen preguntas", la pregunta es porque no corrigió en vivo ese error producido en su programa?. A todos esos chibolos no pierdan su dinero en mongolos de programación, solo busquen en internet, hay full tutoriales y TODOS GRATIS.
hola como estas, el video me a gustado me tramo, como lo realizaste y como lo explicas me gustarías que tu me regalaras los códigos , para así trabaja en visual studio 2012.net gracias....
amigo como me puedo comunicar necesito ayuda con un dato de visual basic y acces para explicarte mejor y tal vez me puedas ayudar o te dejo mi correo para que te pueda mandar ahi las imagenes de lo que necesito ayuda Godoyfernando99@gmail.com
