problem med programmering i acces

Thu, 02 Mar 2017 12:54:51 GMT

jeg har opdateret min MS Acces fra 2010 udgaven til 2016. Jeg har en fugledatabase, som jeg registrerer fugleobservationer i. En af funktionerne er at jeg i min formular for en fugleart kan se hvorn�r jeg har set arten f�rste gang i �ret og sidste gang i �ret, baseret p� data tilbage fra 1971.

Jeg har ikke selv udf�rt programmeringen og er derfor p� Herrens Mark!

Programmeringen ser ud som f�lger:

Public Function ObsDt(varOp As String, varArt As String, Optional varLokalitet As String, Optional varMonth As String)
'Bruges til at returnere observationsdato pr. art.
'varOp angiver Max elle min dato
'varArt angiver fuglearten (art-ID)
'varlokalitet angiver lokaliteten (optional)
'varMonth angiver outputformat for m�ned (Blank for MM, S for MMM, L for MMMM (optional)

Dim db As Database
Dim rs
Dim varSql As String 'SQL-strengen der skal kalde obsdatoen
Dim varMmdd As String 'Resultatet fra SQL-kaldet
Dim varMm As Integer 'M�nednummer til at finde m�nedsnavnet
Dim MmShort As Variant 'Korte m�nedsnavne
Dim MmLong As Variant 'Lange m�nedsnavne

'Konstanter
MmShort = Array("jan", "feb", "mar", "apr", "maj", "jun", "jul", "aug", "sep", "okt", "nov", "dec")
MmLong = Array("januar", "februar", "marts", "april", "maj", "juni", "juli", "august", "september", "oktober", "november", "december")

If varLokalitet <> "" Then
varSql = "SELECT " & varOp & "(Right('00' & Month([ObsDato]),2) & Right('00' & Day([obsdato]),2)) FROM FUGLE WHERE Art = " & varArt & " AND lokalitet = " & varLokalitet & " GROUP BY FUGLE.Art"
Else
varSql = "SELECT " & varOp & "(Right('00' & Month([ObsDato]),2) & Right('00' & Day([obsdato]),2)) FROM FUGLE WHERE Art = " & varArt & " GROUP BY FUGLE.Art"
End If

Set db = CurrentDb
Set rs = db.OpenRecordset(varSql)

If rs.BOF And rs.EOF = True Then
'Hvis ikke sql-kaldet returnerer nogle r�kker
ObsDt = "ikke observeret"
Else
'Find laveste mmdd
varMmdd = rs.Fields(0)
'Find m�ned i �nsket outputformat
If varMonth = "S" Then 'short month
varMm = Left(varMmdd, 2) - 1
ObsDt = Right(varMmdd, 2) & ". " & MmShort(varMm)
ElseIf varMonth = "L" Then 'long month
varMm = Left(varMmdd, 2) - 1
ObsDt = Right(varMmdd, 2) & ". " & MmLong(varMm)
Else 'number af month
ObsDt = Right(varMmdd, 2) & "." & Left(varMmdd, 2)
End If

End If

rs.Close
Set db = Nothing
Set rs = Nothing

End Function

ER der nogen der kan hj�lpe????????

Udvikleren.dk - Seneste [acces] forum tr�de

problem med programmering i acces