Como Busco un registro en una tabla.
necesito una instruccion para buscar un registro en una tabla con condicion en este codigo cuento los registros que cumplan con la condicion intx = DCount("*", "[p1]", "[nro_identificacion]= '" & nro & "'")pero quisiera sustituirla por la de busqueda y me indique si la encontro o no agradeceria ayuda. Este es el codigo:
DoCmd.SetWarnings False Dim nom As String Dim nro As String Dim str As String nro = nro_identificacion If nro = Empty Then Exit Sub End If vacia = DCount("*", "[p1]") intx = DCount("*", "[p1]", "[nro_identificacion]= '" & nro & "'") If intx = 0 Then 'If op = Empty Then 'Exit Sub 'End If Dim op As String op = InputBox("Desea introducirlo s/n?", "NO ENCONTRADO", "") If op = "s" Or op = "S" Then nom = "" Do While nom = "" nom = InputBox("Nombre", "Paciente") Loop str = " DELETE * FROM Tabla1" DoCmd.RunSQL str Dim sql As String sql = "INSERT INTO p1(nro_identificacion,nombre) VALUES ('" & nro & "','" & nom & "')" sql2 = "INSERT INTO tabla1 (nro_identificacion,nombre) VALUES ('" & nro & "','" & nom & "')" DoCmd.RunSQL sql DoCmd.RunSQL sql2 DoCmd.OpenForm "afp01", , , "nro_identificacion= '" & nro & "'" End If Else str = " DELETE * FROM Tabla1" DoCmd.RunSQL str sql2 = "INSERT INTO tabla1 (nro_identificacion,nombre) VALUES ('" & nro & "','" & nom & "')" DoCmd.RunSQL sql2 'DoCmd.OpenForm "afp01", , , "nro_identificacion= '" & nro & "'" End If End Sub
1 Respuesta
Respuesta de Sveinbjorn El Rojo
1