Los foros del Guille

Si no encuentras respuesta, puedes buscar en el sitio del Guille

Google
 

elGuille.hosting: OFERTA Multi Dominio por 40.95 Eur al mes

Selecciona el foro y pulsa en mostrar:     Mostrar 
De tu interés (algunos de los avisos publicados)

09/nov/2005
Nuevo filtro en el código posteado para evitar malas intenciones.
Por supuesto, si encuentras fallos de seguridad, por favor postealo en el foro de Bugs, ya que es para beneficio de todos. Gracias.

  Foro: Office.Programación Cantidad:  Desde:   Hasta:    Aplicar   Responder 
Respuestas a: 54802 - Problemas con acceso a datos en un recordset DAO
IDAsuntoFechaNick 
54802 Problemas con acceso a datos en un recordset DAO25/02/11 18:58Bepll   
Hola,

En primer lugar decir que estoy empezando en Acces y VBA y a lo mejor mis dudas son muy básicas. Tengo instalado el Windows Vista y el Office 2007.

Con este programa, que adjunto más abajo, estoy intentando acceder a los datos del recordset de un campo determinado y asignarlo a un textoBox de un formulario para que me lo enseñe y me da un error con todo lo que no sea rs.Fields(1), o sea con rs!Nom, rs.Nom, rs("Nom"), rs!Nom, y me he mirado las ayudas y todas indican alguna de las anteriores soluciones, que puede pasar?

Private Sub CodiEmpresaTreball_LostFocus()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim sql As String
Dim Nomw As String
Set db = CurrentDb
sql = "SELECT * FROM Empreses_Dades_Taula ORDER BY Codi"
Set rs = db.OpenRecordset(sql, dbOpenDynaset)
rs.FindFirst "[Codi]='" & [CodiEmpresaTreball] & "'"
If rs.NoMatch Then
    'Missatge d'error si el codi no existeix
    Dim Títol As String, Missatge As String, Botons, Resposta
    Títol = "CODI EMPRESA"
    Missatge = "Codi no existeix" & vbCrLf & vbCrLf &
         "El vol donar d'alta?"
    Botons = vbYesNo + vbQuestion
    Resposta = MsgBox(Missatge, Botons, Títol)
    If Resposta = vbYes Then
        DoCmd.OpenForm "Empreses_EntradaDades_Form"
    End If
    CodiEmpresaTreball.SetFocus
End If
[NomEmpresaTreball] = rs.Fields(1)
'[NomEmpresaTreball] = rs.Fields("Nom")
'[NomempresaTreball] = rs!Nom
'[NomEmpresaTreball] = rs("Nom")
'[NomEmpresaTreball] = rs.Nom
rs.Close
End Sub

Un saludo y gracias por darme la oportunidad de usar esta foro.
José Luis
[Editado: Bepll, 25/02/2011 19:00:02]

 
(c) Guillermo 'guille' Som, 2005-2018  - foros.elGuille v1.0.5.3 (23/Mar/2009 14:50 GMT +1)  - (ASP.NET 2.0 v2.0.50727.8800)
 
Usuarios activos: 43 - App. iniciada: 10/12/2018 5:28:53 GMT - La hora GMT del servidor es: 10/12/2018 06:19:35 GMT