Jump to content

TPV Muy práctico, pero no coinciden tipos al foco de usuario


Martín Ruiz

Recommended Posts

Estimados amigos del Foro:

Navegando por los aportes, dudas y problemas resueltos de nuestra querida página, encontré un TPV muy bueno que se adapta a mis necesidades para llevar el registro de una papelería; está realizado por Marco Antonio y todo bien, hasta colocarle los datos en la hoja de "Artículos", pues al intentar accesar me marca la siguiente leyenda en el formulario Login "Se ha producido el error '13' en tiempo de ejecución: No coinciden los tipos" Lo anterior al direccionar el foco al formulario TPV, exactamente al TexBox "Atiende" 

Cito la consulta y anexo el libro. Ya realice algunas adecuaciones al VBA, además de los datos ingresados a la hoja "Artículos". Disculpen ustedes mi novates en estos menesteres.

Agradezco de antemano la ayuda que me puedan otorgar para poder continuar con mi proyecto.

Private Sub Aceptar_Click()
Dim huser As Worksheet
Dim Ufila As Integer
Dim i As Long


Aviso = "Usuario/contraseña erróneo"
Set huser = Worksheets("Usuarios")
Ufila = huser.Range("A" & Rows.Count).End(xlUp).Row
'For x = 2 To Sheets("Usuarios").Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To Ufila
   If UCase(Usuario) = UCase(huser.Range("A" & i)) And _
      Trim(UCase(Contraseña)) = Trim(UCase(huser.Range("B" & i))) Then
      Aviso = ""
      Exit For
   End If
Next

If Aviso = "" Then
   DoEvents
   Me.Hide
   TPV.Atiende = huser.Range("A" & i) '(Aquí es donde presenta el error)
   TPV.Atiende.Locked = True
   If UCase(Usuario) <> "ADMIN" Then TPV.Show
End If
End Sub

PDT. No puedo subir el fichero por lo que trascribí el error

 

Link to post
Share on other sites

Excelente observación, como indiqué, ¡soy un novato en estos menesteres! Que bien por contar con expertos como ustedes y, en especial, tan desprendidos como usted, mi estimado Marco Antonio. Agradezco enormemente tu apoyo.

Recibe un gran abrazo y mi eterno agradecimiento.

Saludos a los demás compañeros y estamos en contacto. Doy por concluida mi duda.

Link to post
Share on other sites

Archived

This topic is now archived and is closed to further replies.

Guest
This topic is now closed to further replies.
  • Crear macros Excel

  • Posts

  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy