Duvida No Rs.close

[Guest - Jorge -]

Boa tarde !!!

Gostaria de saber qual é o problema neste codigo no rs.close

    Dim rs As New Recordset
    rs.Open "SELECT Login, Password FROM Users", conn, adOpenDynamic, adLockOptimistic
    pin = txt_pin.Text
    matricula = txt_matricula.Text
    While Not rs.EOF
        If rs.Fields("Login") <> matricula Then
            rs.Open "INSERT INTO Users (Login, Password) VAlUES(" & matricula & ", '" & pin & "')", conn, adOpenDynamic, adLockOptimistic
          Else
            MsgBox "PIN Existente", vbInformation
        End If
    rs.MoveNext
    Wend
    rs.Close

O erro este no rs.close, mas n estou conseguindo resolver o problema...

Obrigado

cumps

[cyberalexxx]

de uma olhada na parte em vermelho:

Dim rs As New Recordset

  rs.Open "SELECT Login, Password FROM Users", conn, adOpenDynamic, adLockOptimistic

  pin = txt_pin.Text

  matricula = txt_matricula.Text

  While Not rs.EOF

      If rs.Fields("Login") <> matricula Then

          rs.Open "INSERT INTO Users (Login, Password) VAlUES(" & matricula & ", '" & pin & "')", conn, adOpenDynamic, adLockOptimistic

        Else

          MsgBox "PIN Existente", vbInformation

      End If

  rs.MoveNext

  Wend

  rs.Close

Voce esta abrindo o objeto Rs dentro do loop do próprio objeto Rs isso é estranho, nunca vi, tenta assim:

Dim rs As New Recordset

  rs.Open "SELECT Login, Password FROM Users", conn, adOpenDynamic, adLockOptimistic

  pin = txt_pin.Text

  matricula = txt_matricula.Text

  While Not rs.EOF

      If rs.Fields("Login") <> matricula Then

          conn.execute("INSERT INTO Users (Login, Password) VAlUES(" & matricula & ", '" & pin & "')")

        Else

          MsgBox "PIN Existente", vbInformation

      End If

  rs.MoveNext

  Wend

  rs.Close

[Guest - Jorge -]

o q voce disse ta correcto, mas queria o seguinte:

Tenho numa tabela varios pins, e gostaria de q qd ele encontrar esse pin então diga q o pin já existe, se n encontrar ele devia de inserir esse pin q o utilizador digitou no text.

como poderer fazer isso ?

cumprimentos,

[cyberalexxx]

Seria isso???

Dim rs As New ADODB.Recordset
    pin = txt_pin.Text
    matricula = txt_matricula.Text
    sql = "SELECT * FROM users WHERE pin = '" & pin & "'"
    Set rs = conn.Execute(sql)
            
    If rs.EOF And rs.BOF Then
        Dim botao As Integer
        botao = MsgBox("Sera incluido novo PIN, confirma?", vbYesNo + vbQuestion, "Novo PIN")
        If botao = vbYes Then
            sql = "INSERT INTO Users (Login, Password) VAlUES(" & matricula & ", '" & pin & "')"
            conn.Execute (sql)
        Else
            Exit Sub
        End If
    Else
        MsgBox "PIN já existe!", vbCritical
        Exit Sub
    End If
Set rs = Nothing

[Guest - Jorge -]

é isso mesmo ...

muito obrigado pela sua ajuda.

Agora gostaria de saber como faço para limitar a 4 digitos, ou seja o utilizador não pode introduzir menos ou mais que 4 digitos.

E como faço para não deixar introduzir texto no text do pin ??

cumprimentos,

[cyberalexxx]

é isso mesmo ...

muito obrigado pela sua ajuda.

Agora gostaria de saber como faço para limitar a 4 digitos, ou seja o utilizador não pode introduzir menos ou mais que 4 digitos.

E como faço para não deixar introduzir texto no text do pin ??

cumprimentos,

antes de gravar faça isso, ou então coloque no onchange do campo PIN

pin = txtpin.text
if len(pin) <> 4 or isnumeric(pin) = false then
   msgbox "PIN Invalido!" & VbCtrlf & "Digite 4 numeros no campo PIN!", vbCritical
   txtpin.SetFocus
   exit sub
end if