แสดงกระทู้

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - bentbrain

หน้า: [1]
1
try this
SELECT account
FROM deposits AS d1
WHERE [debit/credit] IN ('debit', 'credit')
AND EXISTS (
    SELECT 1
    FROM deposits AS d2
    WHERE d2.account = d1.account
    AND d2.[debit/credit] <> d1.[debit/credit]
    AND d2.time BETWEEN DateAdd("n", -3, d1.time) AND d1.time
)
GROUP BY account
HAVING COUNT(*) >= 3
AND SUM(IIF([debit/credit]='credit', amount, -amount)) >= 50000;

2
look at .datalables
Private Sub CreateChart()

    Dim strSQL As String
    Dim chtObj As Object
    Dim serObj As Object
   
    strSQL = "SELECT * FROM qryDailyChart"
    Me.DailyChart.RowSource = strSQL

    Set chtObj = Me.DailyChart.Object

    With chtObj
        .HasTitle = False
        .CategoryAxisTitle = "Daily Chart"
        .ChartValues = "SupplyQty"
        .ChartAxis = "dayOfMonth"
        .ChartType = acChartColumnClustered
        .PrimaryValuesAxisRange = acAxisRangeAuto
        .PrimaryValuesAxisMaximum = 400
        .HasLegend = False
        .CategoryAxisFontSize = 14
        .CategoryAxisFontColor = RGB(0, 176, 80)
        .PrimaryValuesAxisFontSize = 12
        .ChartSubtitle = True
        .ChartSubtitleFontSize = 50

        ' Loop through each series and add data labels
        For Each serObj In .SeriesCollection
            serObj.DataLabels.ShowValue = True
        Next serObj
    End With

End Sub

3
ห้อง MS Access / Free QR Code sample for MS Access
« เมื่อ: 03 มี.ค. 67 , 20:43:34 »
Hi All , sample of how to make QR Codes in MS Access for you to download.


Hope this helps
BB

หน้า: [1]