al doppioclick inserire valori in tabella/form

Question

salve a tutti

in una form (frm_lettera) ho un comando cmdDestinatari, e altri campi destinario1 .... destinario10 (fino a 10 destinatari), ed al click mi apre un altra form (frm_destinatari) in visualizzazione continua.

al primo doppioclick il valore della form2 si dovrebbe inserire al valore del primo destinatario ed allo stesso tempo per logica disabilitarlo in quanto il destinatario uno e solo è. e cosi via

Provo a postare il file che probabilmente è piu semplice.

http://1drv.ms/1KLRs86

Grazie a tutti

Answer 1

ciao NebbiaDB,

questo l'esempio per quanto al codice esposto nel primo post. destinatari.accdb http://1drv.ms/1VaF6Ij

clicca sul command button della form frm_lettera e apri la frm_destinatari e con il doppio click sul corpo della frm_destinatari vedi popolarsi i vari destinatari

"apre la form frm_lettera al click sul command button " apre la form frm_destinatari?

corretto pardon. :-)

credo che ... sia tutto sommato errato procedere con questo metodo.

la tabella è progettata un modo sbagliato ci deve essere solo 1 campo destinatario e non n campi destinatari contenenti il destinatario...

questo a meno che non mi sfugga qualcosa...ma se spieghi l'obbiettivo finale magari ti si può indirizzare meglio.

ciao, Sandro.

Answer 2

ciao sandro

mi permetto

"apre la form frm_lettera al click sul command button " apre la form frm_destinatari?

Condivido di creare una

form, selezionarli, ed al click di un command button visualizzarli in un altra maschera?

poi ci provo.

allo stesso tempo ho provato ad ultimare quanto sopra descritto finora; ho creato una query con il codice creato per far si che al doppio click "scriva" i valori in modo conseguenziale, ma non riesco. cioè al doppioclick su campo destinatario dovrebbe eseguire la query?

Grazie ancora Sandro

Answer 3

ciao NebbiaDB,

la routine che  ti ho proposto apre la form frm_lettera al click sul command button e al doppio click sul corpo della frm_lettera scrive in sequenza i destinatari , tutti ad ogni doppio click  nel controllo destinatari.

da come dici, non deve essere così nel senso che solo quelli selezionati devono essere scritti nella form lettera.

uso impropriamente il termine scritti nella form, è giusto per capirsi meglio.

ti serve pratica...un modo per visualizzare dei nominativi in una form, selezionarli, ed al click di un command button visualizzarli in un altra maschera?

Ieri ho scordato di precisare che nelle form a visualizzazione maschere continue il controllo è uno solo quindi o è abilitato o disabilitato e la tbl_lettera non è normalizzata.

Facci sapere.

ciao, Sandro.

Answer 4

ciao Sandro,

intanto grazie come sempre...

chiedo scusa se purtroppo non sono riuscito a spiegarmi bene:

nella form_lettera sono presenti i destinatari da scegliere dalla form_destinatari ed al doppioclick sul valore si inserisce nel primo campo dei destinatari disponibile.

in pratica sto cercando di popolare i destinatari presenti in una lettera.

Non so se questo può essere il sistema migliore, avevo pensato anche a diverse caselle combinate nella form_lettera, ma dai diversi post, può essere più efficace inserire dei dati direttamente da altre maschere.

Non esitare a chiedermi delucidazioni se non sono stato comprensibile.

Grazie ancora

Answer 5

ciao Nebbia,

non ho capito molto...se in seguito all'inserimento dei nominativi nella form frm_lettera vuoi popolare la form fm_destinatari al doppio click sul corpo della form destinatari potresti invocare questo su click del comman button (comando 35 ?) :

Private Sub Comando35_Click()

Dim consignee   As String

Dim i           As Integer

With Me.RecordsetClone

.MoveFirst

  For i = 0 To .Fields.Count - 2

      consignee = consignee & "," & .Fields("destinatario" & i + 1)

  Next

End With

DoCmd.OpenForm "frm_destinatari", , , , , , Mid$(consignee, 2)

End Sub

e questo su corpo della form frm_destinatari :

Option Compare Database

Option Explicit

Dim i            As Integer

Private Sub Corpo_DblClick(Cancel As Integer)

Dim aConsignee() As String

aConsignee = Split(Me.OpenArgs, ",")

If i < UBound(aConsignee) + 1 Then

    With Me.RecordsetClone

        .AddNew

        !destinatario = aConsignee(i)

        .Update

    End With

    i = i + 1

End If

End Sub

inoltre puoi riportare i nominativi destinari in colonna con questo statement sql :

SELECT tbl_lettera.destinatario1 as destinatario from tbl_lettera

union all select tbl_lettera.destinatario2 from tbl_lettera

union all select tbl_lettera.destinatario3 from tbl_lettera

union all select tbl_lettera.destinatario4 from tbl_lettera

union all select tbl_lettera.destinatario5 from tbl_lettera

union all select tbl_lettera.destinatario6 from tbl_lettera

union all select tbl_lettera.destinatario7 from tbl_lettera

union all select tbl_lettera.destinatario8 from tbl_lettera

union all select tbl_lettera.destinatario9 from tbl_lettera

UNION ALL select tbl_lettera.destinatario10 from tbl_lettera;

ciao, Sandro.