Re: Problema compilazione campi automatica con macro
Inviato: sabato 9 gennaio 2016, 15:17
Mmmmmmm quello che mi hai scritto mi ha messo un bel dubbio, la mia macro è questa:L'ho presa dal DB vero e proprio, qualche nome potrebbe non tornare rispetto a prima.
Tu mi scrivi di incollare i valori su Tab_Modulo, mentre io li incollo nella casella del formulario in effetti.
Come dicevo così funziona ma perdo la formattazione (che non mi sposta nulla), se però mi confermi che è meglio incollare i dati direttamente nella tabella a cui il formulario è collegato, in questo caso ma anche in qualsiasi altro, mi documento e faccio la modifica.
Io pensavo che il problema era solo una piccolezza, ma forse sbagliavo prorpio approccio, a me comunque interessa conoscere la strada migliore per operare, anche per il futuro.
Grazie 1000
Codice: Seleziona tutto
Sub Form_RCEE
Dim Form, SubForm, SubFormGrid, FormDes, ID_Res, ID_Imp, ID_Gen As Object
Dim ID1, ID2, ID3 As String
Form = ThisComponent.DrawPage.Forms.GetByName("MainForm")
SubForm = Form.GetByName("SubForm")
SubFormGrid = SubForm.GetByName("SubForm_Grid")
ID1 = SubFormGrid.GetByName("ID_Res").CurrentValue
ID2 = SubFormGrid.GetByName("ID_Imp").CurrentValue
ID3 = SubFormGrid.GetByName("ID_Gen").CurrentValue
FormDes = ThisDatabaseDocument.FormDocuments.GetByName("Form_RCEE")
FormDes.Open
Wait 100
FormDes.Component.DrawPage.Forms.getByName("MainForm").MoveToInsertRow()
ID_Res = FormDes.Component.DrawPage.Forms.GetByName("MainForm").GetByName("fmtID_Res")
ID_Res.Text = ID1
ID_Res.Commit =True
ID_Imp = FormDes.Component.DrawPage.Forms.GetByName("MainForm").GetByName("fmtID_Imp")
ID_Imp.Text = ID2
ID_Imp.Commit = True
ID_Gen = FormDes.Component.DrawPage.Forms.GetByName("MainForm").GetByName("fmtID_Gen")
ID_Gen.Text = ID3
ID_Gen.Commit = True
End SubTu mi scrivi di incollare i valori su Tab_Modulo, mentre io li incollo nella casella del formulario in effetti.
Come dicevo così funziona ma perdo la formattazione (che non mi sposta nulla), se però mi confermi che è meglio incollare i dati direttamente nella tabella a cui il formulario è collegato, in questo caso ma anche in qualsiasi altro, mi documento e faccio la modifica.
Io pensavo che il problema era solo una piccolezza, ma forse sbagliavo prorpio approccio, a me comunque interessa conoscere la strada migliore per operare, anche per il futuro.
Grazie 1000
