Springen naar inhoud


- - - - -

Autofill Subform


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

#1 Pc-Freak

Pc-Freak

    Junior Developer

  • Leden
  • PipPip
  • 76 berichten
    Laatst bezocht 29 jul 2015 23:21
  • LocatieOudenburg

Geplaatst op 29 april 2014 - 23:53

Hoi,
Ik heb een Access 2003 database, met gekoppelde tabellen.
Daarin zit een formulier met een subformulier.
Je hebt een tabel leerlingen, daarin zit een dagprijs per leerling.
Je hebt de tabel SchuldOC, met diverse velden onveranderde de leerling naam.
In het subformulier zit de leerling naam, code, en dagprijs.

Wat wil ik / lukt niet.
Als je een leerling intypt ,(in de tabel gelinkt met het subform (niet de tabel leerlingen maar nog een andere). dat hij de dagprijs automatisch inleest,
en invult in de tabel SchuldOC

Wat bezwarend materiaal:
Bijlage  vbib1.png   14,36K   3 downloads

Vriendelijke groetjes, en bedankt om me te helpen.

#2 guest_BESLO_*

guest_BESLO_*
  • Gasten
    Laatst bezocht

Geplaatst op 30 april 2014 - 16:30

Indien ik jouw vraag goed begrepen heb, dan zal je in VBA moeten werken met het "Form_Current" event van jouw formulier. Die event wordt elke keer je naar een ander record gaat (nieuw of bestaande) uitgevoerd.
In dit event zal je dan de nodige code moeten schrijven om uit jouw formulier gegevens die dagprijs te halen en in een ander veld op het formulier (of subformulier) te plaatsen.

Ik gebruik zelf iets dergelijks om bij elk record een afbeelding op te halen en in een picture control te tonen.

Visual Basic Code:
Private Sub Form_Current()
On Error GoTo Err_Form_Current
Dim strPosterName As String

If Me![TapeID] <> 0 Then
	 Me!Titel.SetFocus
	 strPosterName = GetPath & "\Images\Movie\" & Format(Me!TapeID, "0000") & ".jpg"
	 Me!imgPoster.Picture = strPosterName
Else
	 Me!imgPoster.Picture = ""
End If

Exit_Form_Current:
Exit Sub
Err_Form_Current:
If Me.Movie_Genres!genreID = 102 Then
		 strPosterName = GetPath & "\Images\Movie\Music.jpg"
ElseIf Me.Movie_Genres!genreID = 122 Then
		 strPosterName = GetPath & "\Images\Movie\Documentary.jpg"
Else
	 strPosterName = GetPath & "\Images\NoImage.jpg"
End If
Me!imgPoster.Picture = strPosterName
' Me!imgPoster.Picture = ""
Resume Exit_Form_Current
End Sub




#3 Pc-Freak

Pc-Freak

    Junior Developer

  • Leden
  • PipPip
  • 76 berichten
    Laatst bezocht 29 jul 2015 23:21
  • LocatieOudenburg

Geplaatst op 04 mei 2014 - 20:37

Bedankt, en bestaat er een methode om een string te splitsen: ik wil alles voor de laatste spatie in 1 string en alles na de laaste spatie in een andere string.
ik ben normaal c#.net net programmeur ben niet zo gewoon in vba. dat is het laatste dat ik nodig heb :)

#4 Jenny

Jenny

    Master Developer

  • Leden
  • PipPipPipPipPip
  • 558 berichten
    Laatst bezocht 02 apr 2017 22:13

Geplaatst op 04 mei 2014 - 22:42

Code:
Sub DoeHet()
	Dim S As String
	Dim VoorLaatsteSpatie As String
	Dim NaLaatsteSpatie As String
	Dim PositieLaatsteSpatie As Integer

	S = "aa bb cc dd"
	PositieLaatsteSpatie = InStrRev(S, " ")
	VoorLaatsteSpatie = Left$(S, PositieLaatsteSpatie - 1)
	NaLaatsteSpatie = Right$(S, Len(S) - PositieLaatsteSpatie)

	Debug.Print VoorLaatsteSpatie, Len(VoorLaatsteSpatie)
	Debug.Print NaLaatsteSpatie, Len(NaLaatsteSpatie)
	Debug.Print S, Len(S)
End Sub



#5 guest_BESLO_*

guest_BESLO_*
  • Gasten
    Laatst bezocht

Geplaatst op 05 mei 2014 - 16:17

Je had ook de functie split() kunnen gebruiken. daarmee kan je (op basis van een delimiter, in jouw geval een spatie, een tekst splitsen in x-aantal delen. In de on-line help vind je meer info hierover.

#6 Pc-Freak

Pc-Freak

    Junior Developer

  • Leden
  • PipPip
  • 76 berichten
    Laatst bezocht 29 jul 2015 23:21
  • LocatieOudenburg

Geplaatst op 06 mei 2014 - 15:20

een beetje mee ge experimenteerd maar is niet zo simpel
die
Code:
private sub form_current()
	   'code
	  msgbox(me!Naam.Text)
end sub

voert ij niet uit als ik op te tab tik om naar de volgende cel te gaan (en daar moet het!)
hij foert dit enkel uit na enter dus een nieuwe record.

#7 Pc-Freak

Pc-Freak

    Junior Developer

  • Leden
  • PipPip
  • 76 berichten
    Laatst bezocht 29 jul 2015 23:21
  • LocatieOudenburg

Geplaatst op 18 mei 2014 - 22:59

Kan niemand mij verder helpen?
heb die code eigenlijk écht nodig.




1 gebruiker(s) lezen dit onderwerp

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

Inloggen


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)