hello
i have the following code and i have the below error:
can't find the project or library in red part
can you help me please?
i have the following code and i have the below error:
can't find the project or library in red part
can you help me please?
Code:
Option Compare Database
Option Explicit
Function DatumUmwandeln(Datumstring As Variant) As String
Dim Monat, Tag, Jahr As String
If Datumstring <> "" Then
Tag =[COLOR=red] Format$[/COLOR](Datumstring, "dd")
Monat = Format$(Datumstring, "mm")
Jahr = Format$(Datumstring, "yyyy")
DatumUmwandeln = "#" & Monat & "/" & Tag & "/" & Jahr & "#"
Else
DatumUmwandeln = "#12/12/9999#"
End If
End Function
[COLOR=red][/COLOR]
[COLOR=red]Function Repupdate()[/COLOR]
Dim db As Database, rs2, rs6, rs_FT As Recordset
Set db = CurrentDb
Set rs2 = db.OpenRecordset("select * from akt_fehlteile where halle = 2")
Set rs6 = db.OpenRecordset("select * from akt_fehlteile where halle = 6")
Set rs_FT = db.OpenRecordset("select * from akt_fehlteile where stüli_fehler = true")
If rs2.RecordCount > 0 Then
Forms!fehlteil2!HALLE2.Enabled = True
Else
Forms!fehlteil2!HALLE2.Enabled = False
End If
If rs6.RecordCount > 0 Then
Forms!fehlteil2!HALLE6.Enabled = True
Else
Forms!fehlteil2!HALLE6.Enabled = False
End If
If rs_FT.RecordCount > 0 Then
Forms!fehlteil2!STÜLI_FEHLER.Enabled = True
Else
Forms!fehlteil2.STÜLI_FEHLER.Enabled = False
End If
Forms!fehlteil2.ActiveXStr24.SetFocus
Forms!fehlteil2.ActiveXStr24.Value = Date
Forms!fehlteil2!Teilenummer.SetFocus
rs_FT.Close
rs2.Close
rs6.Close
db.Close
End Function
Function Formupdate()
If Forms!fehlteil2!Suche = "" Or IsNull(Forms!fehlteil2!Suche) = True Then
Forms!fehlteil2!Delete_Part.Enabled = False
Forms!fehlteil2!Aktualisieren.Enabled = False
Else
Forms!fehlteil2!Delete_Part.Enabled = True
Forms!fehlteil2!Aktualisieren.Enabled = True
End If
If Not Forms!fehlteil2!Nachbau Then
Forms!fehlteil2!Nachb_Bem.Enabled = False
End If
End Function