Los foros del Guille

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

Google
 

Ya está a la venta Novedades de Visual Basic 9.0

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

20/mar/2008

¡Ya puedes comprar mi libro de Visual Basic 9.0!


http://www.elguille.info/NET/NovedadesVB9/

  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-2017  - foros.elGuille v1.0.5.3 (23/Mar/2009 14:50 GMT +1)  - (ASP.NET 2.0 v2.0.50727.8762)
 
Usuarios activos: 78 - App. iniciada: 24/11/2017 1:38:24 GMT - La hora GMT del servidor es: 24/11/2017 02:00:02 GMT