Avatar billede 44nato44 Nybegynder
15. april 2009 - 14:29 Der er 2 kommentarer

Opretter to raekker istedet for bare en

Hej

Jeg har nedenstaaende kode til at tilfoeje noget til min tabel, Men min kode tilfoejer to raekker istedet for en.

Det gaar meget godt indtil den kommer ned til
  tblRst.Fields("Invoice Date") = Me.txtInvoiceDate.Value
saa smider den den i en ny raekke, og derefter forsaetter den i den gamle raekke med
  tblRst.Fields("Consultant") = Me.cboConsultant.Value
  tblRst.Fields("Owner") = Me.cboOwner.Value
Og naar den kommer til
  tblRst.Fields("Month") = dbMonth
Saa forsaetter den i raekke 2

Er der nogen som har en ide hvad jeg goer forkert, der er helt sikkert noget galt.

Kode:

Dim intMonth As Integer
Dim intYear As Integer
Dim dateSelDate As Date
Dim tblRst As Recordset
Dim dbMonth As String
Dim errormsg As Boolean

Set tblRst = Form.Recordset

If Me.OpenArgs() = "NEW" Then
    tblRst.AddNew
Else
    tblRst.Edit
End If

If IsNull(Me.txtInvoiceDate.Value) = False Then

dateSelDate = Me.txtInvoiceDate

Debug.Print dateSelDate

intMonth = Format(dateSelDate, "mm")
intYear = Format(dateSelDate, "yyyy")

dbMonth = CStr(intMonth) & "-" & CStr(intYear)

If Len(dbMonth) = 6 Then
    dbMonth = "0" & dbMonth
End If

  tblRst.Fields("Project Name") = Me.cboProjectName.Value
  tblRst.Fields("Project Price") = Me.txtProjectPrice.Value
  tblRst.Fields("Invoice Date") = Me.txtInvoiceDate.Value
  tblRst.Fields("Consultant") = Me.cboConsultant.Value
  tblRst.Fields("Owner") = Me.cboOwner.Value
  tblRst.Fields("Month") = dbMonth
  tblRst.Update

End If
DoCmd.Close acForm, "FRM-ProjectBilling", acSaveNo
Avatar billede overchord Nybegynder
16. april 2009 - 16:10 #1
er formatet paa Month en integer eller en tekst?

Er ikke helt sikker paa om det lige er der problemet ligger, men den skal muligvis laves om til en tal-vaerdi igen hvis feltet gemmes som en int.
Avatar billede Slettet bruger
21. maj 2009 - 23:08 #2
Har du styr på, hvor i recordsettet du er ?
I tilfælde af tblRst.AddNwew så ja, men ellers virker det lidt tilfældigt hvilken record der opdateres - eller hvad ?

At sætte tblRst = Form.Recordset betyder ikke nødvendigvis at aktuel record i formen også er aktuel record i recordsettet.

Jeg antager, at det er den record, der vises i formen, der skal opdateres. Som jeg ser det, er du nødt til at finde den frem i tblRst, fx med tblRst.findfirst "[RecordID] = " & Me.RecordID, derefter tblRst.Edit - selve rettelserne - tblRst.Update

Lur mig, om ikke felterne 'Invoice date' og 'month' ligger starten eller slutningen af recorden.

Hvis andre ved bedre - så hører jeg gerne
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester