een record bijwerken

[boeie999]

Ik ben bezig met iets waarmee je rapporten kunt genereren. In de rapporten komen "groepen" voor. Stel dat iemand naar de volgende klas gaat dan moet ik de mogelijkheid hebben om de persoon op te hogen van bijv klas 2 naar klas 3.

Hoe moet ik dit doen :S ?

alvast bedankt.

Jeff

 

[Marrosi]

Jeff,

Je moet in je tabel een veld opnemen waarin voorkomt in welke klas de persoon in kwestie zit.

Achteraf kan je op basis van de gegevens uit je tabel dan een rapport gaan opmaken.

Groetjes van Marrosi

 

[boeie999]

Dat heb ik gedaan ik heb een tabel met de voornaam achternaam en de klas in een tabel.

Nu moet er via een formulier met visual basic dus de mogelijkheid gemaakt worden om deze leerlingen apart op te hogen naar de volgende klas of als ze verhuizen bijv naar een historische groep plaatsen etc ( dus niet van het ene tabel in het andere maar het moet echt in 1 tabel plaatsvinden. )

maar iniedergeval bedankt voor je post.

Jeff

 

[beheer25]

Volgens mij moet dat wat jij wilt kunnen m.b.v. bijwerk query's. Daar heb je VBA niet voor nodig.

bijv.: UPDATE tabelnaam SET klas = 2 WHERE klas = 3;

Waarbij "tabelnaam" de naam van jouw tabel is en "klas" de kolomnaam is in die tabel.


Grtz,

 

[boeie999]

Dat heb ik al voor hele groepen... maar nu moet ik de mogelijkheid hebben om dat apart voor elke leerling te doen ( niet elke leerling gaat over naar de volgende klas etc )

 

[ilse DD]

bedoel je

bedoel je dat je in je formulier op bv een knop wilt klikken en dat hij dan omhoog gaat ?

in dat geval de code achter de knop

naamVanHetTekstvak = NaamVanHettekstvak +1

je zou voor het verhuisprobleem bv.

bij de eigenschappen van de tekstbox met de straat en/of de gemeente bij "na bijwerken" ==> programmacode (hier kom je als je op de knop met de 3 puntjes klikt) Deze start dan automatisch indien je in de betreffend box iets wijzigt.

schrijf hier volgende code

dim bytantwoord as byte
bytantwoord = msgbox("naar histrische groep ?", vbyesno, "Info")

if bytantwoord = vbyes then NaamTekstvakVanDeKlas =


Geef na = de waarde die hiermee overeenkomt.

 

[boeie999]

ok maar hoe krijg ik dat via het formulier in het tabel ?

Ik heb bijv een tabel Leerlingen met de volgende leerling:

Voornaam | Achternaam | Klas

Kip | bla | groep 3


Deze kerel gaat aan het einde van het jaar over naar groep 4

Dus dan ga ik naar het formulier waar ik de leerling naar groep 4 kan plaatsen. Dit wilde ik doen door eerst een selectievak te maken en daar de klas te selecteren waar de leerling op dat moment nog staat ( groep 3 ) Daarna een 2e selectievak waar je dus alle leerlingen van die klas kunt zien en er vervolgens de juiste persoon uit te halen. Vervolgens een 3e selectievak waar ik de nieuwe klas kies. Daarna moet er een knop komen waarmee ik die verandering opsla of update ofzo ( weet niet precies wat maar zodat het veranderd en niet bijv een nieuw record aan maakt. )

Nu moet ik dus weten hoe ik die knop moet maken? Ik heb begrepen dat het iets is met recordset openen en dan update ofzo ?? ( met visual basic code )

Bedankt voor de replies.

Jeff

 

[ilse DD]

zo kom je er niet uit

zo kom je er nooit uit. Ontwerp je formulier zoals je het wenst in je databank en stuur het geheel mee, dan help ik je even concreet. Dat is iets makkelijker.

 

[boeie999]

Ok ik zet de hele database hierop. Het formulier "ophogen" is het formulier waar ik de knop werkend moet krijgen. En op 1 of andere manier werkt het selecteren van de naam niet goed :S ik kan namelijk maar 1 keer klas kiezen dan komt ie met de naam van de leerling maar als ik van klas verander dan zouden de leerlingen mee moeten veranderen :S.


Alvast bedankt.

Jeff

 

[boeie999]

volgens mij ben ik de bijlage vergeten.

 

[boeie999]

Hij zet de bijlage er niet bij. En ik weet je email niet ook kan ik geen prive bericht sturen :S

Waarschijnlijk te groot ( 242kb)

 

[aaajeetee]

Je zou ook alle kinderen uit een bepaalde groep kunnen laten zien en dan een knopje "bewerk gegevens" ofzo. Dan opent er een nieuw formulier en kan je de gegevens (naam, klas etc) van dat kind wijzigen en vervolgens wordt dat opgeslagen.

Ik zou van klas een keuzelijst maken, zodat je gemakkelijk een andere klas kan kiezen.

 

[beheer25]

Actie achter de knop:

Docmd.runSQL "UPDATE tabelnaam SET klas = " & me.nieuweklas & " WHERE klas = " & me.oudeklas & " AND leerlingnummer = " & me.leerlingnummer & ";"

Grtz,

 

[boeie999]

Hartstikke bedankt. Deze 2 ga ik morgen uitproberen.

Jeff

 

[boeie999]

Ik heb de database op internet gezet. Mischien dat iemand er even naar kan kijken ?

http://boeie2.tripod.com/db.zip

edit: Tripod werkt niet zie ik.

Alvast bedankt

 

[aaajeetee]

Ik heb er naar gekeken, maar ik kan geen formulieren aanpassen en ik kan je tabellen ook niet bekijken.
Dat schakelbord blijft maar geselecteerd staan.

 

[boeie999]

hij staat op automatisch opstarten ... als je shift indrukt tijdens openen van de database moet het lukken :S

 

[beheer25]

Als je onderstaande code in het onClick Event zet gaat ie werken.

    strsql = "UPDATE Leerlingen SET Klas = '" & Me.Keuzelijst_met_invoervak6 & "' WHERE LeerlingID = '" & Me.Naam2 & "';"
    DoCmd.RunSQL strsql

Grtz,

 

[aaajeetee]

Geplaatst door boeie999
hij staat op automatisch opstarten ... als je shift indrukt tijdens openen van de database moet het lukken :S

Dat wist ik niet, bedankt

@beheer25: Moet de strsql niet eerst aangeroepen worden, dmv:

Dim strsql As String

Tenminste: zo leren wij het @ school..

 

[boeie999]

Hartstikke bedankt. Hij werkt nu .