J
johnny
Hello
Vanderghast, Access MVP
I have tray vat you have told me to do
but it issent kom some data out
kan you tell me vay
sory my englisch
Private Sub liste21_GotFocus()
Set rst = CurrentDb.OpenRecordset("SELECT [LAGER
VARER].ORDREGIVER, [LAGER VARER].AFSENDER, [LAGER
VARER].TILBRINGER, [LAGER VARER].MÆRKNING, [LAGER VARER].
[FISKEART/STØRELSE], [LAGER VARER].ANTAL, [LAGER VARER].
[FRYS/FERSK], [LAGER VARER].DATO, [LAGER
VARER].BEMÆRKNING, [LAGER VARER].UDGÅET FROM [LAGER VARER]
WHERE ((([LAGER VARER].UDGÅET)=No));")
End Sub
Vanderghast, Access MVP
I have tray vat you have told me to do
but it issent kom some data out
kan you tell me vay
sory my englisch
Private Sub liste21_GotFocus()
Set rst = CurrentDb.OpenRecordset("SELECT [LAGER
VARER].ORDREGIVER, [LAGER VARER].AFSENDER, [LAGER
VARER].TILBRINGER, [LAGER VARER].MÆRKNING, [LAGER VARER].
[FISKEART/STØRELSE], [LAGER VARER].ANTAL, [LAGER VARER].
[FRYS/FERSK], [LAGER VARER].DATO, [LAGER
VARER].BEMÆRKNING, [LAGER VARER].UDGÅET FROM [LAGER VARER]
WHERE ((([LAGER VARER].UDGÅET)=No));")
End Sub
..-----Original Message-----
Hi,
From the query designer, switch in SQL view. Select the whole code, from
the keyboard, make Ctrl_C. Go in you VBA module, where you want to paste the
code, do it with Ctrl_V. It is possible that the code will be in red,
because it is not a valid VBA statement, it is a SQL statement. You have to
use delimiter, generally ", around it to make it as text, and use it in an
appropriate context, like
CurrentDb.Execute " UPDATE ... "
or like
Set rst=CurrentDb.OpenRecoreset("SELECT ... ")
Hoping it may help,
Vanderghast, Access MVP
.