kumbus respondió:
Private Sub Save_record_Click() On Error GoTo Err_Save_record_Click if not isnull(CUADRO1) then DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 else msgbox "Faltan datos en " & CUADRO1, vbcritical endif Exit_Save_record_Click:...
kumbus respondió:
Usa en el WHERE de la query Resultado() por ejemplo WHERE Fecha=Resultado() o para hacer algo tan sencillo como lo que estás haciendo usa directamente la función predefinida y ya está