Springen naar inhoud


- - - - -
Solved

Datum Van/Tot 1 Nieuwe Lijn Per Dag



  • Log in a.u.b. om te beantwoorden
Er zijn 4 reacties in dit onderwerp

#1 Stan

Stan

    Starting Developer

  • Leden
  • 18 berichten
    Laatst bezocht 23 okt 2012 15:54

Geplaatst op 15 mei 2012 - 10:09

Hallo,

Met onderstaande code wordt per dag een ieuwe lijn aangemaakt.
Je geeft bv voor persoon X een datum van 15/05/2012 tem 16/05/2012 in en na het drukken op de knop
krijg je in een andere tebel 2 lijnen.
Dit werkt maar ik had ook graag de naam van die persoon en zijn ID(sleutel) mee gekopieërd)
Geraak er niet uit hoe ik dit moet doen.

Visual Basic Code:
Private Sub btnCreateData_Click()
	'We checken eerst even of einddatum niet <= startdatum
	Dim vStartDatum, vEindDatum As Date
	vStartDatum = txtStartDatum
	vEindDatum = txtEindDatum

	 If vStartDatum >= vEindDatum Then
		MsgBox "Eindatum moet minstens 1 dag na Startdatum zijn"
		Exit Sub
	End If

	'We maken een variabele datum en verhogen die straks telkens met één dag
	Dim vDatum As Date
	vDatum = vStartDatum

	While vDatum <= vEindDatum
		'******************************************************************
		'We maken een record bij in tblDatums
		Dim strSQL As String
		strSQL = "INSERT INTO Tabel2 (Datum) Values (#" & Format(vDatum, "yyyy/mm/dd") & "#)"
		DoCmd.SetWarnings False
		DoCmd.RunSQL strSQL
		DoCmd.SetWarnings True

		'*******************************************************************


		'En verhogen de waarde van vDate met één dag
		vDatum = DateAdd("d", 1, vDatum)

	Wend

	'We laten nog even dat we ermee klaar zijn
	MsgBox "De datums van " & txtStartDatum & " tot " & txtEindDatum & " zijn toegevoegd."

End Sub



#2 pascalbianca

pascalbianca

    Webmaster/Admin

  • Webmaster
  • 4382 berichten
    Laatst bezocht 05 feb 2020 07:09
  • LocatieSusteren, Nederland, Midden Limburg.
Inzender

Geplaatst op 15 mei 2012 - 13:10

Mischien handig als je ook even de code erbij zet hoe de user en id word ingelezen want dat haal ik niet uit je bovenstaande code.

#3 RedThread

RedThread

    Beheerder VBIB

  • Beheerder
  • 3600 berichten
    Laatst bezocht 06 feb 2020 16:38
  • LocatieTongeren,Belgium.
Inzender

Geplaatst op 15 mei 2012 - 13:28

Bericht bekijkenpascalbianca, op 15 mei 2012 - 13:10, zei:

Mischien handig als je ook even de code erbij zet hoe de user en id word ingelezen want dat haal ik niet uit je bovenstaande code.

Dat is misschien net de vraag ? :popcorn:

#4 pascalbianca

pascalbianca

    Webmaster/Admin

  • Webmaster
  • 4382 berichten
    Laatst bezocht 05 feb 2020 07:09
  • LocatieSusteren, Nederland, Midden Limburg.
Inzender

Geplaatst op 15 mei 2012 - 13:44

Mmm heb ik het dus toch verkeerd gelezen, ik dacht dat hij vroeg

Citeren

Dit werkt maar ik had ook graag de naam van die persoon en zijn ID(sleutel) mee gekopieërd)
Dan zal hij toch een code hebben die de persoon herkend en ID mee geeft of word dat zo ingevoerd in een tekstbox of dergelijke?

#5 Stan

Stan

    Starting Developer

  • Leden
  • 18 berichten
    Laatst bezocht 23 okt 2012 15:54

Geplaatst op 15 mei 2012 - 14:27

Hallo,

Met mijn vraag hier te posten heb ik ook de oplossing gezien.
Zat er al te lang op te wroeten denk ik om het voor de handliggende te zien.
Moet die velden die ik wil kopiëren gewoon meenemen in de strSQL zoals hieronder.

Visual Basic Code:
 strSQL = "INSERT INTO Tabel2 ([Tabel1Id],[Evenement],Datum) Values (" & [Id] & ",[Evenement],#" & Format(vDatum, "yyyy/mm/dd") & "#)" 

Het is dus opgelost.
Merci voor de reacties.

Stan





Ook met taq Solved voorzien

0 gebruiker(s) lezen dit onderwerp

0 lid(leden), 0 bezoeker(s), 0 anonieme gebruikers

Inloggen


[Solved] Untitled 1

Met dank aan Jürgen voor de jarenlange inzet van visualbasic.be (anno dec 2000)
Met dank aan Mike en Ronneke voor de jarenlange inzet van vbib.be (anno dec 2010)
Met dank aan PascalBianca voor de jarenlange inzet van vbib.be (anno dec 2016)