[access] leggere valore da text

[ladyBlu]

Allora, nell'Evento Report_Open scrivi:

Private Sub Report_Open(Cancel As Integer)

   Dim lngScelta As Long
   lngScelta = CLng(InputBox("Inserire...", "Inserimento"))
   Me.RecordSource = "select * from tabella " & _
                     "where identrata = " & lngScelta


End Sub

[sanny82]

Scusa se ti rompo ancora le scatole...

Non me lo sente il il Report_open e no mi chiede neanche di inserire il valore.
Come se lo saltasse...
Grazie ancora per l'aiuto

[ladyBlu]

Originariamente inviato da sanny82
Scusa se ti rompo ancora le scatole...

Non me lo sente il il Report_open e no mi chiede neanche di inserire il valore.
Come se lo saltasse...
Grazie ancora per l'aiuto

strano :master: a me funziona bene...
come avvii il report?

[sanny82]

Per aprirlo ho utilizzato la creazione guidata quando ho creato il bottone...

Ecco il codice:

Private Sub Comando61_Click()
On Error GoTo Err_Comando61_Click

    Dim stDocName As String
    stDocName = "ReportProposteUsato"
    DoCmd.OpenReport stDocName, acPreview

Exit_Comando61_Click:
    Exit Sub

Err_Comando61_Click:
    MsgBox Err.Description
    Resume Exit_Comando61_Click
    
End Sub

E dopo ho messo come hai detto tu:

Private Sub Report_Open(Cancel As Integer)

      Dim lngScelta As Long
   lngScelta = CLng(InputBox("Inserire...", "Inserimento"))
   Me.RecordSource = "select * from tbentrate " & _
                     "where identrata = " & lngScelta


End Sub

Grazie tanto

[ladyBlu]

allora, ho fatto un po' di prove e a me così funziona.
Nella maschera chiamo solo l'apertura del report:

Private Sub Comando61_Click()
On Error GoTo Errore
    
    stDocName = "ReportProposteUsato"
    DoCmd.OpenReport stDocName, acPreview 

    Exit Sub

Errore:
    MsgBox Err.Description

End Sub

Nell'Open del Report chiamo l'InputBox. Deve funzionare per forza, riprova.

Private Sub Report_Open(Cancel As Integer)

   Dim lngScelta As Long
   lngScelta = CLng(InputBox("Inserire...", "Inserimento"))
   Me.RecordSource = "select * from TABELLA " & _
                     "where id_proposta = " & lngScelta

End Sub

Mi raccomando, sistema l'istruzione sql con i nomi di tabella e campo giusti

[sanny82]

Non riesce a leggere l'open...
Però ho risolto mettendolo direttamente nel load del report e riesce anche aleggere l'id_proposta passato dal Testo54.

Non so come ringraziarti per tutto il tempo che mi hai dedicato...

Grazie Mille per tutto l'aiuto
Sei fantastica
Ciao

[ladyBlu]

è strano che non ti funzioni come ti ho detto io, ma l'importante è che ora funzioni.
Ciao e buon lavoro