kontroler om forespørgsel har indhold

mon ikke du skal kikke på DCount

Den skal jeg lige have uddybet lidt ;-)

if DCount("[Felt]", "tabel eller forespørgsel") > 0 then
der er data
else
der er ingen
end if

Husk at feltet den tjekker altid skal indeholde data

If DCount("*", "Forespørgslens navn") = 0 Then
msgbox "Der er ingen data"
exit sub
else:
'gør noget andet
end if

Jeg mener ikke det er nødvendigt ast medtage et felt, når det kun er antallet af poster der skal tælles

Øøh, nu er jeg lidt ny med access, men jeg har en makro, og når jeg åbner den i designvisning får jeg ikke nogen steder hvor der kan tastes noget kode ind ?!?!

Lav en formular og kopier koden ind i Vedklik i en kommandoknap:

msgbox "Der er ingen data"
exit sub
else:
docmd.runmacro "makroen navn"
end if

OK, jeg har en makro (Videresendelse til samarbejdspartnere).
Når jeg åbner den får jeg en liste over "handlinger"

1.Åbn forespørgsel (f.eks data til Gunner)
2.Meddelelsesboks (Indeholder forespørgsel data? Ja - Nej) <-HER ÅBNER JEG FORMULAR MED 'IF ingen data THEN osv.'
Nu 'hopper den jo bare videre til nr.3 handling' Uanset om der er indhold eller ej.
3.Ja-Putter forespørgsel i en e-mail som Excel-fil
4.Nej -Lukker forespørgsel

NÆSTE

5.Åbn forespørgsel (f.eks data til Viggo)
6.Meddelelsesboks (Indeholder forespørgsel data? Ja - Nej)
7.Hvis Ja-Putter forespørgsel i en e-mail som Excel-fil
8.Hvis Nej -Lukker forespørgsel

Osv. med 28 forespørgsler
og så skal jeg lave en ny formular til hver forespørgsel ?!?

Hvorfor har du 28 forespørgsler?
Du kan nøjes med een formular. I databasevinduet > Makroer kan du konvertere din makro til VBA og indsæte den i koden i stedet for docmd.runmacro "makroen navn"
. Det gør det nemmere at overskue.

Du kan sagtens have flere handlinger i den samme kode.

Hvordan konverterer jeg en makro til VBA?

Jeg har 28 forespørgsler fordi det er data til 28 forskellige samarbejdspartnere og det er ikke samme data de skal have.

1.Åbn forespørgsel (f.eks data til Gunner)<----- Forespørgsel med data til Gunner
2.Meddelelsesboks (Indeholder forespørgsel data? Ja - Nej) <-HER ÅBNER JEG FORMULAR MED 'IF ingen data THEN osv.'
Nu 'hopper den jo bare videre til nr.3 handling' Uanset om der er indhold eller ej.
3.Ja-Putter forespørgsel i en e-mail som Excel-fil
4.Nej -Lukker forespørgsel

NÆSTE

5.Åbn forespørgsel (f.eks data til Viggo)<----- Forespørgsel med data til Viggo

6.Meddelelsesboks (Indeholder forespørgsel data? Ja - Nej)
7.Hvis Ja-Putter forespørgsel i en e-mail som Excel-fil
8.Hvis Nej -Lukker forespørgsel

Du konverterer en makro i menuen Funktioner  Makro > Konverter makro til VBA. Koden indsættes nu i et modul i databasevinduet hvorfra du kan kopiere den.

Hvis det er sasmme data alle partnere skal have (men naturligvis forskelligt indhold), kan du skrive navnet i formularen og lade forespørgslen referere til dette navnefelt f.eks.:

= [Forms]![formularnavn]![tekstboksens navn]

På denne måde kan du nøjes med een forespørgsel.