VBA access 97

fejlen er 'expected function or variabel'

Umidelbart vil jeg sige: "NEJ"...

Du kan derimod:
Text3.Value = DFirst("[feltnavn]", "tabelnavn", "betingelse")

Fx.
Text3.Value = DFirst("[Fornavn]", "Kunder", "[Distrikt]=300 AND [Omsætning]>50000")

DoCmd.RunSQL() kan kun bruges til "Action-queries". Dvs. ikke til Select sætninger. Gør som proaccess foreslår.

Public Function getFirst(strSQL As String) As String
  Dim db As Database, ra As Recordset
  Set db = CurrentDb
  Set ra = db.OpenRecordset(strSQL)
  If Not ra.EOF Then
    getFirst = ra(0)
  End If
End Function

Så kan du bruge:
Text3.value = getFirst("SELECT Fornavn FROM Kunder WHERE Distrikt=300 AND Omsætning>50000")

Man må nok også hellere huske at sætte ra og db = nothing i slutningen af funktionen...  (bare for god ordens skyld)

Public Function getFirst(strSQL As String) As String
  Dim db As Database, ra As Recordset
  Set db = CurrentDb
  Set ra = db.OpenRecordset(strSQL)
  If Not ra.EOF Then
    getFirst = ra(0)
  End If
  Set ra = Nothing
  Set db = Nothing
End Function

nu har jeg gjort sådan :

Text8.Value = DFirst("[Debtor nr]", "T_main1", "Turnover" > 0)

den får en type mismatch ??

Text8.Value = DFirst("[Debitor nr]", "T-main1", "Turnover>0")

den skriver den ikke kan finde T_main, mn den er go' nok ?

du skal bruge den bindestreg, som du har brugt i tabel-navnet...

        _ eller -    (Der er jo forskel)

her er det rigtige MEn...

Text8.Value = DFirst("[Debtor nr]", "T_main1", "Turnover>0")

fejl :
You cant assign a value to this object.

Så må du prøve at fjerne .Value

Text8 = DFirst("[Debitor nr]", "T_main1", "Turnover>0")

nope det duer heller ikke.

Alle gode gange 3 (eller 34)...

Text8.Text = DFirst("[Debitor nr]", "T_main1", "Turnover>0")

hvis jeg læser om first i hjælpen ligner det for mig heller ikke en funktion der kan bruges idet den returnerer en vilkårlig værdi. Jeg er jo interesseret i en form for count. !

HVOR SKRIVER DU NOGET OM COUNT ???

Text8.Text = DCount("[Debitor nr]", "T_Main1", "Turnover>0")

Og nu HAR du vel et tekst-felt, som hedder Text8 ???

nope...

you cant reference a property or method for a control unless the control has the focus..

forpulede l...

yes of course.... har jeg et text felt der hedder 8

OK - Det er focus-problemet...

Me.Text8 = DCount("[Debitor nr]", "T_main1", "Turnover>0")

he he...

fejl :
You cant assign a value to this object.

er du ved at kold  *G*

betyder det noget at det er en rapport jeg koder i ?

Er koden på den samme formular/rapport som Text8 ??
og er formularen/rapporten åben ??

Du skal evt. bruge "fuld" notation:
Reports(rapportnavn).Text8 = ...
Forms(formularnavn).Text8 = ...

Men nu er vi derude, hvor jeg ikke kan "bunde" via nettet... Jeg kan jo ikke overskue DIN database, fra min plads, og har desværre ikke tiden til at hente den ned og rette til...  ;-(

jeg prøver men din indsats er de 15 point værd.

takker ;-)