Casella di testo da intestare

di
Anonimizzato14047
il
3 risposte
/
Anonimizzato14047
Utente anonimizzato

Casella di testo da intestare

Ciao a tutti
in una maschera vorrei visualizzare il nome del proprietario del file.
Il nome del proprietario è memorizzato in un record dove nella colonna "Tipo" è scritta la parola "intestazione" e nella colonna "Testo" è scritto il nome del proprietario.
Il problema è che in una maschera il codice funziona mentre facendo copia incolla in un'altra non mi funziona (err= operazione non possibile per questo tipo di oggetto)
qualcuno mi sa dire qualcosa o perché?

Private Sub Form_Open(Cancel As Integer)
Dim strnomeEntomologo As String
' Dim ProprietaDB As Object
Set Db = CurrentDb()
Set Rs = Db.OpenRecordset("ProprietaDB")
Me.Recordset.Requery ' questo non so a che serve
' Set Rs = Me.Recordset.Clone
Rs.FindFirst "[Tipo] = 'Intestazione'"
If Not Rs.EOF Then Me.Bookmark = Rs.Bookmark
SelNomeEntomologo = Rs!Testo.Value
strnomeEntomologo = SelNomeEntomologo
End Sub

Grazie a tutti

3 Risposte

  • /
    Anonimizzato13056
    Utente anonimizzato

    Re: Casella di testo da intestare

    Buongiorno e buona domenica a te.
    non so se ho capito bene lo scenario, credo di no.... prova in questo modo
    
Dim rst As DAO.Recordset
Set rst = DBEngine(0)(0).OpenRecordset("ProprietaDB", dbOpenDynaset)
rst.FindFirst "Tipo=" & Me.intestazione
If Not rst.NoMatch Then Me.tuaTextBox= rst.Fields("tipo")
Set rst = Nothing
    facci sapere.
    un saluto.
  • /
    Anonimizzato14047
    Utente anonimizzato

    Re: Casella di testo da intestare

    Per quel poco che capisco dovrebbe andare bene, invece si pianta
    Impossibile trovare il metodo o il membro dei dati (errore 461)

    Provo a rispiegare il problema:
    Ho una tabella "Proprietà DB"
    uno dei record contiene il nome che voglio visualizzare nella maschera (vedi foto tabella)

    Ho provato con
    Dim rst As DAO.Recordset
    Set rst = DBEngine(0)(0).OpenRecordset("ProprietaDB", dbOpenDynaset)
    rst.FindFirst "[Tipo]=" & rst.Intestazione
    If Not rst.NoMatch Then Me.SelNomeEntomologo = rst.Fields([Testo])
    Set rst = Nothing

    mi pareva che così dovesse funzionare... ma il risultato non è cambiato, se ho capito giusto non trova il record che contiene "Intestazione"...

    grazie mille ancora x l'aiuto!
    Allegati:
    14047_e48be10bf73f4b27db8b27cfb68be25c.gif
    14047_e48be10bf73f4b27db8b27cfb68be25c.gif
  • /
    Anonimizzato14047
    Utente anonimizzato

    Re: Casella di testo da intestare


    ci sono riuscito con
    Dim rst As DAO.Recordset
    Set rst = DBEngine(0)(0).OpenRecordset("ProprietaDB", dbOpenDynaset)
    rst.FindFirst "[Tipo] = 'Intestazione'"
    If Not rst.NoMatch Then selnomeEntomologo = rst!Testo.Value
    Set rst = Nothing

    non ho mai usato Fields ma apparentemente ho cambiato solo quello...
    grazie mille
Devi accedere o registrarti per scrivere nel forum
3 risposte