Lidt start hjælp.....

What do you mean by \"en uafhængig handling\"?

Some code \"en uafhængig handling\"....
...
...
Docmd.Runsql \"UPDATE TheTable SET TheField = \" & TheValue

NOTE: This is OK if TheField is a number, if its text then

Docmd.Runsql \"UPDATE TheTable SET TheField = \'\" & TheValue & \"\'\"

Hvilken slags tabeller du spørger om? Er det f.eks. i Word? Eller Acces?

Undskyld mit fjollede spørgsmål. Jeg lagde ikke mærke til \"Katagori\".
Hilsen.

no problem bajol :o)

Det jeg har gang i er en konto, hvor der skal lægges til eller trækkes fra i beløb i en tabel, alt efter hvad der sker i en anden tabel.

Det virker principelt nu

Det virker principelt nu, jeg har gjort som følger:

Dim SQL As String

    SQL = \"UPDATE [4 Varenummer i EPOS] \" & _
          \"SET Beholdning = (AntalLager - 5) \" & _
          \"WHERE Varenummer = 6638505;\"

    DoCmd.SetWarnings False
    DoCmd.RunSQL SQL

Men hvordan fan... definerer jeg AntalLager inde i SQL´en, den kunne fx. hedde:

Dim AntalLager As Integer
AntalLager = Me!Antal + Dlookup(...)

Hvis jeg kunne få det til at virke, var den hjemme!

Dette eksempel på DLookup er hentet fra en af mine eksisterende db. Det er ikke sikkert det kan hjælpe, men måske et lille stykke på vej:


Dim Stringsearch As String, Svar As String
\'Først sikres at Tekst4 er synlig i formularen
Me!Tekst4.Visible = True
\'Stringsearch sættes = Inputbox
Stringsearch = InputBox(Prompt:=\"Indtast det navn, hvis addresse du vil finde.\", Title:=\"Søgestreng\")
\'Hvis Stringsearch er = \"\" (ingenting) forlades procedüren
If Stringsearch = \"\" Then
Exit Sub
End If
\'resultatet af Dlookup præsenteres i en MsgBox, hvod Stringsearch sammensættes med ordet \"bor\" og Dlookup
Svar = MsgBox(Prompt:=\"Adresse: \" & Stringsearch & \" bor \" & DLookup(\"[Gade]\", \"Tabel2\", \"[Navn]=\'\" & Stringsearch & \"\'\"))

What are you trying to find with the DLookup?

Lets say you are wanting to deduct (træk fra) 5 from the existing.

Function UpDateLager(Long as VareNummer, Antal as Int) as Boolean

Dim SQL as String

    UpdateLager = false

On Error goto UPDATE_ERR

    SQL = \"UPDATE [4 Varenummer i EPOS] \" & \"SET Beholdning = (AntalLager - \" & Antal & \") WHERE Varenummer = \" & VareNummer

    DoCmd.SetWarnings False
    DoCmd.RunSQL SQL
    DoCmd.SetWarnings True

    UpDateLager = True

EXIT FUNCTION

UPDATE_ERR
Some error handling ....

End function

Then you could call the function with something like

If UpdateLager(6638505, 5) Then
    msgbox \"OK\"
else
    Msgbxo \"Fejl\"
  end if

Terry > I also wonder what to find with the DLookup. My excample this morning was only to show Dlookup function.

Carbello should use Your SQL 

Så er det oppe at køre, mange tak for hjælpen

selv tak :o)