13. juli 2004 - 11:50Der er
5 kommentarer og 1 løsning
problemer med funktion
Hej
Jeg har et lille problem med denne kode, det skal lige siges at jeg har kopieret den og rettet den til.
Planen med den er at man kalder funktionen sammen med Debitorid, den skal så finde hvilken gruppe debitoren hører til ud fra tabellen Debitor og til sidst skal den finde ud af hvilket logo der hører til gruppen ud fra tabellen debitorgrupper.
Public Function VaelgLogo(F_DebitorID) Dim MyDb As Database Dim MyRe As DAO.Recordset Dim MyDb1 As Database Dim MyRe1 As DAO.Recordset Dim StrUdsk On Error GoTo Err_VaelgLogo
StrUdsk = "" Set MyDb = CurrentDb Set MyRe = MyDb.OpenRecordset("Select gruppe FROM Debitor Where FirmaID = '" & Forms!main!FirmaID & "' AND DebitorID = '" & F_DebitorID & "'", dbOpenDynaset) If MyRe.RecordCount > 0 Then Set MyDb1 = CurrentDb Set MyRe1 = MyDb1.OpenRecordset("Select * FROM Debitorgrupper Where Gruppe = '" & MyRe1!GRUPPE & "'", dbOpenDynaset) If Not IsNull(MyRe1!Logo) Then StrUdsk = StrUdsk & MyRe1!Logo End If VaelgLogo = StrUdsk
Exit_VaelgLogo: Exit Function
Err_VaelgLogo: MsgBox Err.Describtion Resume Exit_VaelgLogo End Function
Problemet er at jeg får et blank svar, selv om jeg ved der står noget i tabelfeltet logo.
I dette særtema om aspekter af AI ser vi på skiftet fra sprogmodeller til AI-agenter, og hvordan virksomheder kan navigere i spændet mellem teknologisk hastighed og behovet for menneskelig kontrol.
Din sidste OpenRecordset skal se således ud: Set MyRe1 = MyDb1.OpenRecordset("Select * FROM Debitorgrupper Where Gruppe = '" & MyRe!GRUPPE & "'", dbOpenDynaset)
Det var den forkerte MyRe, som du benyttede.
Men bortset fra det, så kan det forenkles som herunder. Du behøver ikke 2 recordsets, da sidste opslag kan klares lige så hurtgigt med DLookup:
Public Function VaelgLogo(F_DebitorID) Dim MyDb As Database Dim MyRe As DAO.Recordset Dim StrUdsk On Error GoTo Err_VaelgLogo
StrUdsk = "" Set MyDb = CurrentDb Set MyRe = MyDb.OpenRecordset("Select gruppe FROM Debitor Where FirmaID = '" & Forms!main!FirmaID & "' AND DebitorID = '" & F_DebitorID & "'", dbOpenDynaset) If MyRe.RecordCount > 0 Then If Not IsNull(MyRe1!Logo) Then StrUdsk = DLookup("Logo", "Debitorgrupper", "Gruppe = '" & MyRe!Gruppe & "'") End If VaelgLogo = StrUdsk
Exit_VaelgLogo: Exit Function
Err_VaelgLogo: MsgBox Err.Describtion Resume Exit_VaelgLogo End Function
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.