10. august 2007 - 16:02Der er
2 kommentarer og 1 løsning
Update blanke int felter
Jeg har en tabel med en masse rækker på... Dens ene felt hedder ID, som jeg vil gøre til primær nøglen..
Problemet er at halvdelen er felterne ikke har nogen værdi i feltet ID...
Hvordan får jeg numereret de blanke felter således at de bliver navngivet efter feks, 555500001, 555500002 osv... UDEN at det berører de felter som allerede har et nummer?
Okay lad mig genformulere.. jeg har 10 rækker der har en værdi, og 10 rækker der ingen værdi har, Jeg skal opdatere de tomme rækker, og det skal ikke gøres manuelt. At lave et nyt felt er ikke en mulighed.
Felterne der ingen værdi har skal alle sammen starte med 5, dvs de kommer henholdsvis til at hedde 5001, 5002, 5003 osv så jeg kan spore mig tilbage til de felter som før, ingen værdi havde..
Synes godt om
Slettet bruger
13. august 2007 - 08:21#3
Option Compare Database Option Explicit Private Sub IndsaetLobenr_Click() Dim db As DAO.Database Dim rst As DAO.Recordset Set db = CurrentDb() Set rst = db.OpenRecordset("DinTabel") Dim a As Integer With rst .MoveFirst a = 5001 Do If IsNull(!id) Then .Edit !id = a a = a + 1 .Update End If .MoveNext Loop Until .EOF .Close End With MsgBox "Tabellen er opdateret!~)" End Sub
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.