วีดีโอ

Gracias personita🙏 Me fue de mucha ayuda, me salvaste, me estaba estresando. ❤

Muy buena explicacion en base al error sobre eso es porque dejastes un espacio en blanco si le das a nuevo y le das de nuevo te saldra el error.

Hola cómo hago para buscar un datos de un texbox y el botón buscar para filtrar el datagrid y me muestre una tabla filtrada me gustaría que me lo explicas es en unu de tus videos

No me funciona el eliminar :(

es muy buen ejemplo, pero yo lo hice de esta manera y tengo dudas, si en vez de buscar el código busco el nombre, yo cambie el código de esta manera a continuación, pero como le hago si busco el nombre y es repetido, por ejemplo si hay dos Saul con diferente apellido: Nombre = InputBox("Ingrese el Nombre : ", "AGENDA") If Nombre = "" Then MsgBox "Tiene que ingresar el Nombre", vbExclamation, "AGENDA" Else Adodc1.Refresh Do While Not Adodc1.Recordset.EOF If Trim(Nombre) = Trim(Adodc1.Recordset!Nombre) Then MsgBox "nombre Localizado", vbInformation, "AGENDA" Exit Sub End If Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast MsgBox "Nombre no Localiado", vbInformation, "AGENDA" Exit Sub End If Loop End If

ya no está disponible el código

ya no está el código bro :(

ID = InputBox("Ingrese el codígo : ", "ej") If ID = "" Then MsgBox "Tiene que ingresar el codigo", vbInformation, "ej" Else Adodc1.Refresh Do While Not Adodc1.Recordset.EOF If Trim(ID) = Trim(Adodc1.Recordset!ID) Then MsgBox "id Localizado", vbInformation, "ej" Exit Sub End If Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast MsgBox "id no localizado", vbExclamation, "ej" Exit Sub End If Loop End If

Amigo disculpa si por ejemplo quisiera hacerlo con acces enlazarlo y que al momento de ingresar un dato en un text box y le de clic en agregar me aparezca los demás datos de la base de datos de acces en los demás textbox

EXCELENTE AMIGO. GRACIAS

bien hecho eres todo un crack

Buen aporte. Pero mi es la misma que ya se hizo. Como poder definir la dirección de correo de destino a cuál enviar? Quedaré atento. Saludos.

Para aquel que quiera el codigo y no se quiera comer toda esa publicidad basura: CODIGO = InputBox("Ingrese el codigo : ", "EJEMPLO") If CODIGO = "" Then MsgBox "Tiene que ingresar el codigo", vbInformation, "EJEMPLO" Else Adodc1.Refresh Do While Not Adodc1.Recordset.EOF If Trim(CODIGO) = Trim(Adodc1.Recordset!CODIGO) Then MsgBox "codigo Localizado", vbInformation, "Ejemplo" Exit Sub End If Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast MsgBox "Codigo No Localizado", CvExclamation, "EJEMPLO" Exit Sub End If Loop End If

Y si yo quisiera enviar a un correo NO definido sino a peticion del usuario?