Value ikke null

If Not IsNull (Me.chkBetalningssätt) Then

Hej Mugs,

Tak for svaret men den bliver du nok nöd til at skäre ud. Hvad skal jeg skrive efter THEN for som det er nu bruger jeg "" men det virker ikke.


Jeg har denne kode:
    If Not IsNull(Me.txtKundnummerFrån.Value) Then
        Me.txtKundnummerFrån.Value = Me.txtKundnummerFrån.Value
    Else
        Me.txtKundnummerFrån.Value = ""
    End If

- Me.txtKundnummerFrån.Value = "" (Denne linie henter ikke noget da det er lig med intet - den skal jo hente alle poster!

:-)

I din SQL kunne du måske teste på chkBetalingssätt.Value:

.. AND (Me.chkBetalningssätt.Value = True = True And CUS.[Payment Method Rent] = '" & txtBetalningssätt.Value Or Me.chkBetalningssätt.Value = False) AND ...

Altså:

sSQL = "INSERT INTO tblBook ([selCustomerNo], [selStatus], [selPaymentMethodRent])" & vbCrLf & _
        "SELECT (CUS.[No_]), (RBC.[Customer Status Rent]), (CUS.[Payment Method Rent]) " & vbCrLf & _
        "FROM [dbo_vw_Thorn_Svenska_AB$Customer] AS CUS, [dbo_vw_Thorn_Svenska_AB$Cust__Ledger_Entry] AS CLE, [dbo_vw_Thorn_Svenska_AB$Rent_Billing_Customer] AS RBC" & vbCrLf & _
        "WHERE CLE.[Customer No_] = RBC.[Customer No_] AND CUS.[No_] = RBC.[Customer No_] AND CLE.[Ledger Type] = 2 AND RBC.[Customer Status Rent] = " & txtStatus.Value & " AND (Me.chkBetalningssätt.Value = True = True And CUS.[Payment Method Rent] = '" & txtBetalningssätt.Value & "' Or Me.chkBetalningssätt.Value = False) AND CUS.[No_] BETWEEN '" & txtKundnummerFrån.Value & "' AND '" & txtKundnummerTill.Value & "' "


Hvis det ikke skulle virke, er der jo altid metoden med en flerdelt opbygning af SQL strengen:

sSQL = "INSERT INTO tblBook ([selCustomerNo], [selStatus], [selPaymentMethodRent])" & vbCrLf & _
        "SELECT (CUS.[No_]), (RBC.[Customer Status Rent]), (CUS.[Payment Method Rent]) " & vbCrLf & _
        "FROM [dbo_vw_Thorn_Svenska_AB$Customer] AS CUS, [dbo_vw_Thorn_Svenska_AB$Cust__Ledger_Entry] AS CLE, [dbo_vw_Thorn_Svenska_AB$Rent_Billing_Customer] AS RBC" & vbCrLf & _
        "WHERE CLE.[Customer No_] = RBC.[Customer No_] AND CUS.[No_] = RBC.[Customer No_] AND CLE.[Ledger Type] = 2 AND RBC.[Customer Status Rent] = " & txtStatus.Value

If Me.chkBetalingssätt.Value = True Then
    sSQL = sSQL & " AND CUS.[Payment Method Rent] = '" & txtBetalningssätt.Value & "'"
End If

sSQL = sSQL & " AND CUS.[No_] BETWEEN '" & txtKundnummerFrån.Value & "' AND '" & txtKundnummerTill.Value & "' "

Jeg tjekker det i aften :-)

Hej,

Jeg kan faktiskt ikke få nogel af dem at virke. Gör jeg noget forkert?

Den første ved jeg som sagt ikke rigtigt, om den vil virke. Måske, men i hvert fald kun under Access direkt, ikke hvis det skal bruges i ASP eller lign.

Den sidste burde virke, men jeg kan se, at der fejlagtigt er blevet indsat et "å" i stedet for bogstavet å (forhåbentlig bliver det ikke igen oversat til "å", som jo er en HTML "oversættelse" af det specielle nordiske bogstav i den sidste del af sætningsopbygningen.

Prøv at ændre det til bogstavet å, og se om det ikke gør det bedre...

He he! Det havde jeg allerede gjort men det ville ikke aligevel!

Kjulius! Jeg har faktiskt fået det til at virke. Der var nogle "linieskift" som ikke var helt som de skulle.

Svar for velfortjente points ;-)

...og her er koden:

...
sSQL = "INSERT INTO tblBrevbokning ([brvKundnummer], [brvNamn1], [brvNamn2], [brvAdress1], [brvAdress2], [brvPostnummer], [brvStad], [brvBelopp],[brvDatum], [brvOcr], [brvBrevId], [brvPapper], [brvSlumpId])" & vbCrLf & _
        "SELECT (CUS.[No_]), (CUS.[Name]), (CUS.[Name 2]), (CUS.[Address]),(CUS.[Address 2]), (CUS.[Post Code]), (CUS.[City]), SUM(CLE.[Remaining Amount]), Date(), (CUS.[New Rental KID]), " & txtBrev.Value & ", 'Giro', " & SlumpId & " " & vbCrLf & _
        "FROM [dbo_vw_Thorn_Svenska_AB$Customer] AS CUS, [dbo_vw_Thorn_Svenska_AB$Comment_Line] AS CLI, [dbo_vw_Thorn_Svenska_AB$Cust__Ledger_Entry] AS CLE, [dbo_vw_Thorn_Svenska_AB$Rent_Billing_Customer] AS RBC" & vbCrLf & _
        "WHERE CUS.[No_] = RBC.[Customer No_] AND CUS.[No_] = CLI.[No_] AND CLE.[Customer No_] = RBC.[Customer No_] AND CLE.[Ledger Type] = 2 AND CLI.[Comment] LIKE '*Täckning*' AND CLI.[Date] BETWEEN #" & txtDatumFrån.Value & " 00:00:00# AND #" & txtDatumTill.Value & " 23:59:59# "


'CUSTOMER txtSTATUS - MED ELLER INTE - START
    If Not IsNull(Me.txtStatus.Value) Then
        sSQL = sSQL & " AND RBC.[Customer Status Rent] = " & txtStatus.Value & " "
    End If
'CUSTOMER txtSTATUS RENT - MED ELLER INTE - SLUT
   
'CUSTOMER txtBETALNINGSSÄTT - MED ELLER INTE - START
    If Not IsNull(Me.txtBetalningssätt.Value) Then
        sSQL = sSQL & " AND CUS.[Payment Method Rent] = '" & txtBetalningssätt.Value & "' "
    End If
'CUSTOMER txtBETALNINGSSÄTT - MED ELLER INTE - SLUT
   
'CUSTOMER txtBETALNINGSSÄTT - MED ELLER INTE - START
    If Not IsNull(Me.txtBetalningssätt.Value) Then
        sSQL = sSQL & " AND CUS.[Payment Method Rent] = '" & txtBetalningssätt.Value & "' "
    End If
'CUSTOMER txtBETALNINGSSÄTT - MED ELLER INTE - SLUT
...

Godt.. :-)