Nedskrivning af tal værdi

Hejsa..


Jeg har en form som hedder Udlån, inden i den ligger en subform(udlån(produkter)).

I udlån står der data om den som man låner ud til, i subformen står der stregkoder på de ting som skal lånes ud.

Nu ønsker jeg at nedskrive det felt i min tabel, produkter, som hedder inhouse med 1 hver gang der bliver tilføjet en stregkode til udlånet. Hvordan gør jeg dette ?

Jeg har prøvet at rode med VedUdgang af feltet så skal der køres noget vba kode, men jeg er ikke så stærk i vba. Men tænkte at du skulle være noget i den her stil: Først finder man ud af hvad der står i inhouse, derefter trækker man 1 fra.

Jeg har så prøvet:
Dim nedskriv As String
Dim a As Integer

a = 1
nedskriv = "UPDATE produkter SET inhouse = a WHERE id = [Forms]![Udlån]![produktid]"
DoCmd.RunSQL (nedskriv)

uden held, og samtidig har jeg prøvet at lave en select sætning uden held med at få lagt den over i en variabel, desuden kommer formen frem og spørger mig hvad der skal stå i a.

Nogen med en hjælpende hånd ?