30. oktober 2002 - 23:20Der er
11 kommentarer og 1 løsning
kode virker ikke første gang
hvorfor virker denne kode kun 2.3.4.5.6... gang man trykker på en given post , første gang vises der ikke noget i textfeltet men den skriver til tabellen
Private Sub Kontonr_DblClick(Cancel As Integer) On Error GoTo err Dim dbs As Database Dim rst As dao.Recordset
Set dbs = CurrentDb Set rst = dbs.OpenRecordset("Select * from tbl_udskriv ", dbOpenDynaset) With rst .AddNew !Kontonr = Me.Kontonr .Update End With
'Empty the field Me.Tekst16 = ""
' If Me.Tekst16 = "" Then ' Do While Not rst.EOF ' Me.Tekst16 = Me.Tekst16 & rst!Kontonr 'rst.MoveNext 'Loop 'Else Do While Not rst.EOF Me.Tekst16 = Me.Tekst16 & "," & rst!Kontonr rst.MoveNext Loop 'End If
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
me.requery virker fint , men det er bare mystisk at man ikke kan nøjes med at lave en felt.requery. men det hønger sammen med at den køre denne kode når man laver en requery , det behøver man stadig kun at gøre første gang anden gang kan man nøjes med felt.requery. så det løser faktisk ikke problemet. -------------- .Dim dbs As Database Dim rst As dao.Recordset
Set dbs = CurrentDb Set rst = dbs.OpenRecordset("tbl_udskriv")
'Empty the field Me.Tekst16 = ""
Do While Not rst.EOF Me.Tekst16 = Me.Tekst16 & "," & rst!Kontonr rst.MoveNext
felt.requery er bare DET, requery med data så hvis ens felt er =IIf(DLookUp("WORKSTOP_LOG";"D_ORDER_PRODUKTION";"SALGS_ORDRE_ID = " & [txtSOHolder] & " AND INST_NR = '" & [txtPOHolder] & "'")=Sand;"WORKSTOP";"") Man kan requery feltet og functionen (og DLookup) vil kører. Kode er en anden ting.
Men...du har Me.Repaint det er ikke så voldsom som refresh (som requery hele formular), prove det.
men hvorfor er det så kun nødvendigt at lave en requery 1. gang, 2. og 3. gang kan men ren faktisk rem'e den linje , og ville feltet stadig opdatere´. jeg har rent faktisk lavet koden så den kun laver requery hvis me.tekst16 er tomt.
det burde da virker på samme måde om det var 1 .2 eller 99999. gang man lavede et klik på en given post
men tilbage til mit spg mugs, hvorfor virker koden ikke første gang , men der efter virker det fint.
min kode ser sådanne ud. -------- Private Sub Kontonr_DblClick(Cancel As Integer) On Error GoTo err Dim dbs As Database Dim rst As dao.Recordset
Set dbs = CurrentDb Set rst = dbs.OpenRecordset("Select * from tbl_udskriv ", dbOpenDynaset) With rst .AddNew !Kontonr = Me.Kontonr .Update End With
'Empty the field Me.Tekst16 = ""
Do While Not rst.EOF Me.Tekst16 = Me.Tekst16 & "," & rst!Kontonr rst.MoveNext
Loop rst.Close dbs.Close If Me.Tekst16 = "" Then Me.Requery Else Me.Tekst16.Requery End If err: End Sub
Synes godt om
Ny brugerNybegynder
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.
