Beste forumleden,
zoek naar een oplossing om gegevens in een tabel te plaatsen vanuit een formulier.

Heb volgende code:

Dim klan As Integer
Orderdatum = Date
OrderId = 0
tInvoeg = InputBox("geef het bedrag voor kk")
klan = DLookup("klantnummer", "Queryklan")

strSQL = "insert into Klantenkaart (Orderdatum, OrderId, Aankoopbedrag, Klantnummer) values ( '" & Orderdatum & "'," & OrderId & ",'" & tInvoeg & "'," & klan & ")"

Het probleem dat ik nu heb is dat in de procedure telkens de gegevens uit Queryklan
worden ingevoegd. Deze query haalt uit de laatste order het klantnummer.
Als ik in het formulier naar voorgaande records scroll, werkt de code maar haalt hij nog steeds
de laatste record op met het laatste klantnummer.
Dit zou flexibeler moeten.
Hij zou het klantnummer vanuit het formulier moeten halen met de code.

vraag: kan er vanuit de code verwezen worden naar het formulier dat open is, zodat
van daaruit het klantnummer wordt gehaald?

zoiest als:
klan = DLookup ("klantnummer","Queryklan", Me.Klantnummer) 'maar dit werkt niet want de code haalt
dit niet op.

Hopelijk is dit duidelijk.
 Grt,

M.

Txs, Firebirdy.

Dit werkt.

Maar zou je ook iets kunnen maken afhankelijk van het
geopende formulier.
If Form1 = open
then [Forms]![MyForm1]![txtKeyField]
If Form2 = open
then [Forms]![MyForm2]![txtKeyField]

Dus dat de code eerst nagaat welk formulier open staat?

Grt,

M

 

Tja,

't is dan ook wel zalig hé

M.

Dizzl,

De reden is dat ik met 2 versies van een form werk. 1 versie om nieuwe ticketten te voorzien,
en een andere versie met een tickettenoverzicht.
De code gebruik ik voor de 2 versies.
Dus in het ene form
 (DoCmd.OpenForm "frmTicket", acNormal, , , acFormAdd, acDialog)

Kan het formulier geopend worden en zou de code moeten zijn:
klan = Forms!FrmTicket!Klantnummer

In het andere form kan hetzelfde formulier geopend worden
(DoCmd.OpenForm "frmTicket2", acNormal, , , acFormEdit, acDialog)
 maar zou de
code
    klan = Forms!FrmTicket2!Klantnummer moeten zijn.
De opbouw van de db is programmatisch niet perfect, maar ik zit er
nu wel mee en vroeg me af of het in de code doenbaar is deze keuze
in te bouwen afhankelijk van het geopende dossier.

Met behulp van de antwoorden in dit topic lukte het me:
If Application.SysCmd(acSysCmdGetObjectState, acForm, Ticket2) = acObjStateOpen Then

klan = Forms!FrmTicket2!Klantnummer
If Application.SysCmd(acSysCmdGetObjectState, acForm, Ticket) = acObjStateOpen Then
 klan = Forms!FrmTicket!Klantnummer
End If
End If
Misschien allemaal niet zo netjes, maar 't werkt wel.

Indien andere benaderingen mogelijk wil ik ze wel uitproberen.
Bedankt!
M.