Microsoft Access -update heeft een scripttaal , Visual Basic for Applications ( VBA ) , die u kunt gebruiken om database- operaties uit te voeren , zoals te selecteren en te actualiseren queries . VBA- programma's die deze bewerkingen uitvoeren doen dat met virtuele objecten , waaronder die voor de huidige database , opnemen sets , query definities en andere database- elementen . Het doen van updates of enige vorm van database- operatie in VBA gaat begrijpen hoe deze objecten , die zijn verzameld in een boomachtige hiërarchie genoemd beheren " object model . " Het uitvoeren van bijwerkquery's met Visual Basic kunnen ontwikkelaars database-inhoud sneller en met minder kans op fouten van gebruikers te wijzigen . Wat je nodig hebt Microsoft Access Toon Meer Aanwijzingen 1 Open Access en maak de volgende voorbeeld tabel , waarin uw Visual Basic- programma zal een update operatie doen op : Maak een veld " Veld1 " in een tabel genaamd " Tabel1 ", typ vervolgens een record in dat gebied : " . xyz " Press 2 " Alt - F11 " om de Visual Basic geïntegreerde ontwikkelomgeving in te voeren ( IDE ) , klik vervolgens op "Module " commando in het menu "Invoegen" 's . Deze actie zal een nieuwe ruimte te creëren voor u een VB-programma invoeren Plak 3 of typ het volgende programma in de code -module : . Public Sub doUpdate ( ) op Twitter Const tabname = " Tabel1 " Dim dbs als DAO.Database Dim rst Zoals DAO.Recordset Set dbs = CurrentDb Set rst = dbs.OpenRecordset ( tabname ) rst.MoveFirst Verlanglijstje Tot rst.EOF Als rst ! Veld1 = " ZXY " dan < rst > rst.Edit ! Veld1 = " abc " rst.Update rst.Close dbs.Close Exit Sub End Als rst.MoveNext Loop End Sub de " OpenRecordset " statement opent de " Tabel1 " tafel voor modificatie , en zet een verwijzing naar die tafel met de " variabele rst " . Het blok van verklaringen die begint met " Doe tot " en eindigt met " Loop" beweegt zich door de " rst " gegevens , het zoeken naar een record waarvan de waarde " xyz . " Het programma maakt gebruik van de "Edit " en " Update" methoden " rst " om de waarde van deze record hoort veranderen , zodra zij constateert de " xyz " record . 4 Start het programma door te klikken op een van haar verklaringen , vervolgens op " F5 . " Druk op ' Alt - F8 " om terug te keren naar Access . U vindt de " xyz " waarde die je eerder opgaf nu veranderd om te zien "abc . " Press 5 " Alt - F8 " om terug te keren naar de IDE . Typ de volgende nieuwe verklaringen na de laatste " Dim " verklaring in het programmaoverzicht : f = InputBox ( " ? Welke waarde zou u willen zoeken" ) op Twitter v = InputBox ( " Wat waarde zou u willen veranderen aan ? ' ) op Twitter Deze verklaringen bevragen de gebruiker om een waarde te zoeken, en een nieuwe waarde te veranderen naar . Type 6 over de verklaring " Als rst Veld1 = ! " ZXY "Dan " met deze nieuwe verklaring: Als rst Veld1 = f dan deze verklaring en de ene in de volgende stap zal de nieuwe " f te gebruiken ! " en " v " variabelen te vinden en actualiseren van de juiste record in de tabel Type over de verklaring 7 . " rst Veld1 = " abc " " met deze uitspraak : Geld verdienen rst ! Field1 = v 8 Start het programma zoals u deed in stap 4 . Reageer op de vraag wanneer dan verschijnen , het intikken van " abc " voor de waarde te zoeken , en " xyz " om de waarde te veranderen naar . Het herziene programma zal de " abc" te veranderen " xyz . "
|