Eliminar Varios Registros al mismo Tiempo
Publicado por Richard (51 intervenciones) el 25/11/2015 22:27:18
Con el siguiente Código elimino varios registros :
Pero no tengo la más remota idea de como colocar si no existe ningun registro en esa fecha entonces mostrar un mensaje que diga "No hay Registros de esa Fecha"
1
2
3
4
If MsgBox("¿Está Segur@ de Eliminar estos Registros?", vbExclamation + vbYesNo, "ATENCIÓN") = vbYes Then
Set rs = cn.Execute("delete * from presupuesto where estado='realizado'and fecha_registro between #" & Format(DTPicker1.value, "mm/dd/yyyy") & "# and #" & Format(DTPicker2.value, "mm/dd/yyyy") & "#")
MsgBox "Registros Eliminados Corectamente", vbInformation, "ATENCIÓN"
End If
Pero no tengo la más remota idea de como colocar si no existe ningun registro en esa fecha entonces mostrar un mensaje que diga "No hay Registros de esa Fecha"
Valora esta pregunta
0