05. november 2003 - 21:54Der er
5 kommentarer og 1 løsning
Sletning af relationer mellem tabeller
Hej, Et måske lidt mærkeligt spørgsmål. Jeg har en DB (Access97) med en række tabeller, hvor jeg selvfølgelighar oprettet relationer imellem via relationsbilledet. Det gjorde jeg over flere omgange, men hver gang jeg åbnede relationsbilledet var relationerne væk, hvorfor jeg selvfølgelig oprettede dem igen - med det resultat, at der nu mellem nogle tabeller er oprettet den samme relation op til flere gange!
Spm. er nu: Hvordan pokker sletter jeg relationerne igen? Når jeg klikker på knappen der skulle vise relationerne, viser den ingen, eller kun en! Er der et andet billede end "Relationer" man kan vælge i access for at redigere relationer? eller...?
Ahh, hvis jeg ved hvad relationerne hedder, så kan jeg vel egentlig overføre dette navn til programstump og slette dem derigennem!? Du skulle vel ikke tilfældigvis have programmeret et par funktioner der lister alle relationer i en dialogboks, hvorfra man har mulighed for at vælge dem man gerne vil slette ;-) ?
Private Sub Form_Open(Cancel As Integer) Me.fyldliste End Sub
Private Sub Kommandoknap2_Click() CurrentDb.Relations.Delete Me.Liste0 fyldliste End Sub
Sub fyldliste() Dim db As DAO.Database Dim str Dim rel As DAO.Relation Set db = CurrentDb For Each rel In db.Relations str = str & rel.Name & "; " Next rel str = Mid(str, 1, Len(str) - 2) Debug.Print str Me.Liste0.RowSourceType = "Value List" Me.Liste0.RowSource = str End Sub
Private Sub Kommandoknap3_Click() fyldliste End Sub
Jeg lavede selv en form i nat - med en listbox (med tre felter) og kanp der sletter dem der er valgt - ellers tak for hjælpen, det var lige hvad jeg havde brug for for at blive sporet ind på en løsning - point er tildelt :-)
Og så kan jeg se at din løsning er lidt mere simpel end min - der kunne jeg have sparet mig for en del frustrationer ;-)
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
