| ebolo |  |
|
2007-11-21 08:34 - Respuestas: 15 - Tema nº: 2482287
hola mikel, cópiame lo que has puesto.
| |
|
|
| mikel0679 |  |
|
Re: Access: al entrar cliente ya entrado salga historial - 2007-11-21 20:03 - Respuesta 7
hola buenas te he copiado todo como lo tengo haber si encuentras el error
Private Sub Texto1_AfterUpdate()
'Buscar Cliente por código Cliente
Dim rs As Object
Set rs = Me.RecordsetClone
If Me.Texto1 "" Then
rs.FindFirst "Nº_Cliente=" & Me.Texto1
If Not rs.NoMatch Then Me.Bookmark = rs.Bookmark
rs.Close
Set rs = Nothing
End If
Private Sub Comando25_Click()
On Error GoTo Err_Comando25_Click
DoCmd.GoToRecord , , acNewRec
Exit_Comando25_Click:
Exit Sub
Err_Comando25_Click:
MsgBox Err.Des-c-r-i-p-tion
Resume Exit_Comando25_Click
End Sub
Private Sub Nº_Cliente_AfterUpdate()
End Sub
gracias por todo un saludo | |
|
|
| ebolo | |
|
Re: Access: al entrar cliente ya entrado salga historial - 2007-11-21 21:00 - Respuesta 8
Si te das cuenta el cuadro de texto, que tiene como 'Origen de Datos' el 'Nº de Cliente' se llama también Nº Cliente; por eso al generar el evento se te ha creado el:
Private Sub Nº_Cliente_AfterUpdate()
End Sub.
Lo que tenías que haber hecho es pegar el contenido del evento que yo te he colocado, para el cuadro de texto1, en el evento tuyo y adaptarlo. Se te debe de quedar así:
Private Sub Comando25_Click()
On Error GoTo Err_Comando25_Click
DoCmd.GoToRecord , , acNewRec
Exit_Comando25_Click:
Exit Sub
Err_Comando25_Click:
MsgBox Err.Des-c-r-i-p-tion
Resume Exit_Comando25_Click
End Sub
Private Sub Nº_Cliente_AfterUpdate()
'Buscar Cliente por código Cliente
Dim rs As Object
Set rs = Me.RecordsetClone
If Me.Nº_Cliente "" Then
rs.FindFirst "[Nº Cliente]=" & Me.Nº_Cliente
If Not rs.NoMatch Then Me.Bookmark = rs.Bookmark
rs.Close
Set rs = Nothing
End If
End Sub
Prueba a ver que pasa.
Un saludo.
| |
|
|
| mikel0679 | |
|
Re: Access: al entrar cliente ya entrado salga historial - 2007-11-22 16:46 - Respuesta 9
haber he copiado tu codigo y me sale un mensage para cancelar o depurar y me pone este texto Me.Bookmark = rs.Bookmark en amarillo para que lo modifique, creo pero no tengo ni idea, di esto hace mucho tiempo pero ahora ando mnuy perdido copi tu codigo y luego los botones no me funcionan vuelvo a crearlos entoces no se donde meter el codigo. | |
|
|
| ebolo | |
|
Re: Access: al entrar cliente ya entrado salga historial - 2007-11-22 17:32 - Respuesta 10
Hola de nuevo. En principio está bien, prueba a ponerlo de esta otra forma:
Private Sub Nº_Cliente_AfterUpdate()
'Buscar Cliente por código Cliente
If Me.Nº_Cliente "" Then
Me.RecordsetClone.FindFirst "[Nº Cliente]=" & Me.Nº_Cliente
If Not Me.RecordsetClone.NoMatch Then Me.Bookmark = Me.RecordsetClone.Bookmark
End If
End Sub
Comprueba en el editor de Visual Basic, pestaña Herramientas - Referencia, si está activada Microsoft Activex Data Objects 2.x, si no está la activas y prueba a ver si te funciona.
donde 2.x = 2.1 o posterior.
| |
|
|
|
