I was referring to Shades of Blue.I just checked and sadly, Shades of Blue and Shades of grey are no longer supported.![]()
[SIZE=5]before[/SIZE]
they take him out so that they are prepared.[SIZE=5]size test here[/SIZE]
...Now on 128 Firefox which was typed. Code below was pasted.
Private Sub Form_Load()
Dim lngIdx As Long
' Check we have dates in tblDates
If DCount("StepsID", "tblDates", "StepsDate = " & Format(Date, strcJetDate)) = 0 Then
TempVars("dtFrom") = DateSerial(Year(Date), Month(Date), 1)
TempVars("dtTo") = DateSerial(Year(Date), Month(Date) + 1, 0)
CurrentDb.Execute "qryADates", dbFailOnError
Else
Me.cboDates = DLookup("StepsID", "tblDates", "StepsDate = " & Format(Date, strcJetDate))
Me.Recordset.FindFirst "StepsID = " & Me.cboDates
End If
End Sub
SELECT
*
FROM
TabA
WHERE
FieldX IN
(
SELECT
FieldY
FROM
TabB
)
SELECT
I just wanted to give a hint. It's a small problem.it is noted
Not sure whether this has been reported already;
My reply box contains 2 identical code buttons adjacent to each other, whereas before the first was for a code box ([ CODE ][ /CODE ]) and the second was for inline code ([ ICODE ][ /ICODE ])
Entering ICODE tags manually still works.
See screenshot:
View attachment 115125
Const SQL_INSERT As String = _
"Insert Into tblFileRequestData " & _
"(File_Number, File_Name, File_Title, File_Requested_By, File_Requested_Date, File_Data_Entry_Date, File_Status) " & _
"Values " & _
"( p0, p1, p2, p3, p4, p5, p6);"
With CurrentDb.CreateQueryDef("", SQL_INSERT)
.Parameters(0) = flnum
.Parameters(1) = flnam
.Parameters(2) = fltitle
.Parameters(3) = usern
.Parameters(4) = flreqdate
.Parameters(5) =...