Fejl i VBA

You can try using something lik ethis in the forms On OPEN event

If DCount("*", "TableNameGoesHere") = 0 Then Cancel = True

Hej igen

Den virker, men kan du hjælpe mig med denne også så.

Min kode er sådan her:

Private Sub Kommandoknap233_Click()

'Denne knap kopier data fra Ikkerettetdata til Rettetdata


DoCmd.SetWarnings False

DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 ' Gemmer data i ikkerettetdata

Me.Rettet = True 'sættet rettet til Ja

Me.Reportting_unit = "HDMS Absalon"

DoCmd.Requery ikkerettetdata ' Genindlæser tablen

DoCmd.RunSQL "INSERT INTO Rettetdata  select * from Ikkerettetdata where rettet = true" ' Kopier data fra ikkerettetdata til rettetdata tabler

DoCmd.RunSQL "delete from Ikkerettetdata where rettet = true" ' Slettet den record man lige har kopiret

DoCmd.GoToRecord , , acNext ' går til næste record

If DCount("Date", "ikkerettetdata") = 0 Then cancel = True

Exit_Kommandoknap233_Click:
    Exit Sub
End Sub

Som du kan se har jeg sat den ind her også, mender virker den ikke. Det jeg gerne vil har den knap til er at hvis der ikke er flere poster i tablen så exit formular.

Kan det lade sig gøre ??

/lars

Hej igen

Har fundt ud af at hvis jeg skriver den sådan her:

If DCount("Date", "ikkerettetdata") = 0 Then quit

men det lukker access helt ned, kan man nøjes med at lukke formularen ??

/lars

Hej igen igen

Skal jo bare se sådan her ud

If DCount("Date", "ikkerettetdata") = 0 Then docmd.close

/lars

skriv lige et svar så jeg kan give dig point

svar