como termino el codigo??pf!gracias
Publicado por ainhoa (45 intervenciones) el 15/04/2004 15:43:02
tengo st codigo:
Private Sub NIVEL_AfterUpdate()
On Error Resume Next
Dim rs As Recordset
Set rs = CreateObject("ADODB.Recordset")
rs.Open "SELECT CANT_REVISADA FROM MUESTREO WHERE nivel_inspeccion='" & nivel_inspeccion.Value & "' AND NIVEL='" & nivel.Value & "' AND " & cant_lote.Value & " >= DESDE_CANT_LOTE AND " & cant_lote.Value & " <= HASTA_CANT_LOTE", CurrentProject.Connection, 3, 3
If Not rs.EOF Then
cant_revisada.Value = rs.Fields(0).Value
Else
cant_revisada.Value = ""
End If
rs.Close
End Sub
aparte, quiero q 4 cuadros de texto de un formulario de access, se guarden en una tabla. Los cuadros claro son 'independientes', como puedo hacer q se guarden? ayuda pf! y muuuuuchas gracias ;)
Private Sub NIVEL_AfterUpdate()
On Error Resume Next
Dim rs As Recordset
Set rs = CreateObject("ADODB.Recordset")
rs.Open "SELECT CANT_REVISADA FROM MUESTREO WHERE nivel_inspeccion='" & nivel_inspeccion.Value & "' AND NIVEL='" & nivel.Value & "' AND " & cant_lote.Value & " >= DESDE_CANT_LOTE AND " & cant_lote.Value & " <= HASTA_CANT_LOTE", CurrentProject.Connection, 3, 3
If Not rs.EOF Then
cant_revisada.Value = rs.Fields(0).Value
Else
cant_revisada.Value = ""
End If
rs.Close
End Sub
aparte, quiero q 4 cuadros de texto de un formulario de access, se guarden en una tabla. Los cuadros claro son 'independientes', como puedo hacer q se guarden? ayuda pf! y muuuuuchas gracias ;)
Valora esta pregunta
0