Visual Basic 6 - combinazione di record in vb6

carissimi, ce l'abbiamo fatta! :-)))
grazie infinite al signor dark e al signor gibra, che già in passato ebbe modo di aiutarci e che temiamo non apprezzi molto i nostri progressi. :-(

riportiamo a seguire il bizzarro codice che abbiamo realizzato, del quale speriamo apprezziate lo sforzo in termini di bricolage: poco ortodosso ma funzionale. :-)

un'ultima cortesia: esiste un modo per inserire in un normalissimo database.mdb dati che devono successivamente comparire su due righe?

grazie nuovamente per l'interessamento alla nostra causa ed estendiamo al signor gibra l'invio virtuale di due casse di nettare dell'intraprendente (quanto avvenente, a detta del nonno) madame Barbe-Nicole Ponsardin, vedova del (meno avvenente, sempre a detta del nostro avo) monsieur François Clicquot.

à bientôt
un riconoscente conte di santa barbara



Private Sub Form_Load()
Dim myquery1Blocco As String
myquery1Blocco = "SELECT a.UnmbC, b.UnmbPG FROM UnBlocco a , UnBlocco b"
DataREC1Blocco.DatabaseName = App.Path & "\miniblocchi.mdb"
DataREC1Blocco.RecordSource = myquery1Blocco
DataREC1Blocco.Refresh
DataREC1Blocco.Recordset.FindFirst "[Unmbc] = '" & list1Blocco & "'"
End Sub

Private Sub Form_Activate()
If controllo = False Then
Do Until DataREC1Blocco.Recordset.EOF
list1Blocco.AddItem DataREC1Blocco.Recordset.Fields!Unmbc
DataREC1Blocco.Recordset.MoveNext
Loop
controllo = True
End If
DataREC1Blocco.Refresh
End Sub

Private Sub DataREC1Blocco_Validate(Action As Integer, Save As Integer)
On Error Resume Next
Text1Blocco.Text = Text1Blocco.Text & vbCrLf & "------------" & vbCrLf & Text1mbC.Text & vbCrLf & Text1mbPG.Text & vbCrLf
End Sub

Felice che tu/voi abbia/te risolto.

Per il nuovo quesito è meglio aprire una nuova discussione utilizzando un titolo consono al nuovo problema.
Inutile aggiungere che la 'semplice domanda' fatta non è sufficiente a mettere a fuoco il tuo/vostro problema.

Meglio abbondare di dettagli.