Forespørgsler

Du er nødt til at have en formular knyttet til tabellen, hvor [Betalt] befinder sig.

På [Betalt]-feltets After_Update-hændelse på formularen kan du lægge en stump kode. Men inden jeg skriver koden til dig, skal jeg lige høre hvilken version af Access, du bruger?

Og ved du hvordan man knytter kode til et felt?

/Thomas

du kan lave en kode der er noget i retning af.

if me.betalt = - 1 then  (ja)
dim R as recordset
Set R = cunrrentDb.Openrecordset (\"Tabelnavn\")
r.addnew
\'over de ting du skal have i den nye post.
r. update
end if

Hvis du vil kan du sende din Database til Access@edb.dk. Så skal jeg hjælpe dig med det

åh åh, janbangm! Skal jeg nu trække mig ud af spørgsmålet?
Jeg ser, at du forsøger med det gamle trick igen ;-)

/Thomas

Jeg havde desværre ikke set du svarre.

Tomas skal vi stoppe. Jeg har mine metoder som syntes er usporlige. Jeg mener man giver bedre hjælpe når kan se problemmet og syntes der lidt fræk af dig at brød ind i svar som så mange gange før. 1-1 Skal vi så ikke stoppe der?

Gos weekend

hehe, jeg skrev det nu mest for sjov :-)

Men jeg mener ikke, at man har førsteret bare fordi man svarer først. Hvis man ikke kan give et acceptabelt svar første gang, så har andre da lov til at komme med forslag og derved tjene nogle point. Ellers kan man jo bare skynde sig at skrive \"et eller andet\" hver gang der kom et nyt spørgsmål. Det holder ikke.

/Thomas

Jeg er faktisk enige Tomas. Men jeg mente stadig i svar i det andet spørgmål var rigtigt og blev lidt forbavset over at jeg fik så få point.

Hvad jeg er mere ked er af er at du har skrevet at jeg prøver på at blokkere for andre ved at bede dem om at sende databasen til mig. Det er på ingen måde med hensigt at blokker for andre, men jeg syntes dette lettere at hjælpe når man se hele database. Detfor gør en sådan beskyldning mig ret ked af det

Tag det nu ikke så tungt :-)
Jeg mener jo netop, at alle skal have lov at deltage.
Jeg går ind og kigger på dette site nogle gange om dagen. Sansynligheden for at jeg lige rammer et tidspunkt, hvor der er én, som lige har stillet et spørgsmål uden at nogen har nået at svare er relativ lille.
Endvidere vil jeg, hvis det var mig, som stillede spørgsmålet, gerne have så mange svar som muligt, så jeg selv kunne vurdere hvad der var det bedste. Og derudfra give point til dem, som har været involveret.

Lad os nu droppe denne diskusion og lade stakkels dth få noget hjælp...

/Thomas

PS: som mit brugernavn og min signatur antyder, så hedder jeg Thomas og ikke Tomas ;-)

Helt enig Thomas

Den kode jeg har lavet er:

Private Sub Betalt_Exit(Cancel As Integer)
Dim r As Recordset

If Me.Betalt = -1 Then

Dim tekst As String
Set r = CurrentDb.OpenRecordset(\"Posteringer\")

r.AddNew
r(1) = Now()
tekst = Forms![Spillere]![Navn] + \" \" + Me.Spilleuge
r(2) = tekst
r(3) = \"20,00\"
r.Update
End If

End Sub