Buonasera,
vorrei leggere per dopo utilizzare campi di una sottomaschera.
così funziona
rst.Open "Select * From maschera1 Where IDmaschera=49297;"
come posso cambiare id maschera 42297 con id della maschera aperta?
Grazie
Buonasera,
vorrei leggere per dopo utilizzare campi di una sottomaschera.
così funziona
rst.Open "Select * From maschera1 Where IDmaschera=49297;"
come posso cambiare id maschera 42297 con id della maschera aperta?
Grazie
Silvio hai fatto 2 domande con lo stesso tenore... ovvero nessun senso tecnico ed una evidente non conoscenza di Access.
Usi ADO senza conoscerlo e senza sapere che Access usa in modo nativo ACEDAO/DAO... e questo lascia perplessi.
Nel contesto non è possibile dare risposte a domande insensate.
Scusatemi ieri sera ero stanco
Mi spiego meglio
Ho una maschera chiamiamola M1 e una sottomaschera SM1
Nella maschera M1 inserisco dei trasporti per un cliente, nella sottomaschera SM1 inserisco tutte le consegne da fare con i vari comuni ed il loro CAP
ESEMPIO :
Partenza Verona
Prima Consegna Padova
Seconda Consegna Bologna
Terza Consegna Firenze
Quarta Consegna ... etc
Ultima Ritorno a Verona
Dovrei leggere i dati della SM1 in particolare il CAP per utilizzarli nell'interrogare GOOGLEMAPS
con HyperlinkAddress http://maps.google.com/maps/dir/Vero...firenze/Verona
NB
I record della SM1 sono in ordine delle consegne
Grazie e mi scuso ancora per le domande insensate di ieri
Devi leggere una consegna in particolare, quindi 1 Record specifico, oppure devi leggerli tutti...?
In entrambi i casi quello che hai scritto non serve a nulla.
La SM mette a disposizione l'Oggetto RecordsetClone che consente di accedere ai dati senza alterare l'interfaccia grafica.
Quindi, se devi cercarne 1 specifico, solitamente si fa usando la PK dei Dati che devi avere...With Me!SM1.RecordsetClone .FindFirst "CampoPK=" & TuoValorePK If Not .NoMatch then ' Questa parte legge i valori dei Campi del Record Puntato MsgBox "NomeCampo1=" & .Fields("NomeCampo1").Value & vbNewLine & _ "NomeCampo2=" & .Fields("NomeCampo2").Value & vbNewLine & _ "eccetera..." End If End WithSe devi ciclarli tutti ...With Me!SM1.RecordsetClone .MoveFirst Do Until .EOF ' Questa parte legge i valori dei Campi del Record Puntato MsgBox "NomeCampo1=" & .Fields("NomeCampo1").Value & vbNewLine & _ "NomeCampo2=" & .Fields("NomeCampo2").Value & vbNewLine & _ "eccetera..." .MoveNext Loop End With
Grazie, devo ciclarli tutti
mi da errore scrivendo il tuo codice sulla prima riga
With Me!SM1.RecordsetClone proprietà o metodo non sopportati
La SM1 è così fatta così
Cap Località
37137 -Interterminal (VR) 37137
47121 Forlì (FC) 47121
40026 Imola (BO) 40026
41049 Sassuolo (MO) 41049
37137 -Interterminal (VR) 37137
io vorrei arrivare a
dimPartenza as string
Partenza =37137
dimConsegna1 as string
Consegna2= 40026
dimConsegna1 as string
Consegna1= 41049
etc max max 8 consegne
DimArrivo as String
Arrivo=37137
Per poi Arrivare a
con HyperlinkAddress http://maps.google.com/maps/dir/Part.../consegna2.etc ..Arrivo
Non sò ma forse chiedo troppo
Si hai ragione, è una SubForm...!!!!
Me!SM1.Form.RecordsetClone
Ho risolto
Forms![M1]![sm1].Requery
Dim BARRA As String
Dim strLinkURL As String ' indirizzo da visualizzare in Google Maps
Dim strPath As String ' indirizzo della pagina di Google Maps
Dim Cap As String
BARRA = "/"
Cap = Forms![M1]![sm1].Form![Cap]
strPath = "http://maps.google.com/maps/dir"
strLinkURL = BARRA & Cap
Me.CmdVisualizzaPercorso.HyperlinkAddress = strPath & strLinkURL
Dove sm1 Sottomaschera con query di raggruppamento e funzione UnisciValori CAP
Public Function UnisciValoriTratteGOOGLE(MioCampo As Long) As String Dim rst As DAO.Recordset Dim strSQL As String UnisciValoriTratteGOOGLE = "" strSQL = "SELECT * FROM Q_TRATTE_SCHEDA WHERE IDSCHEDA=" & MioCampo & ";" Set rst = CurrentDb().OpenRecordset(strSQL) rst.MoveFirst Do Until rst.EOF UnisciValoriTratteGOOGLE = UnisciValoriTratteGOOGLE & rst!Cap & "/" rst.MoveNext Loop UnisciValoriTratteGOOGLE = Left(UnisciValoriTratteGOOGLE, Len(UnisciValoriTratteGOOGLE) - 1) Set rst = NothingGrazi a tutti
Ultima modifica di AntonioG; 28-12-2020 17:23
Si ma hai fatto una cavolata, hai impegnato il doppio dei dati, senza nemmeno pensare che blocchi i dati per le ricerche..., ma si vede che non serve fare bene...
OK
Grazie lo stesso
Con il tuo suggerimento non sono riuscito a creare la stringa per googlemaps
Se hai voglia di poterla sviluppare tu Gentilissimo
Grazie ancora
Ah Scusa cosa intendi che blocco i dati per le ricerche?
Grazie