German Language Problem SQL - How To Format Listbox Colors Multi-Select and Work With Recordsets in Microsoft Access Developer 16


	Back to Access Developer 16 Lessons Comments List

Upload Images @Reply Bookmark Link Email Next Unseen

German Language Problem SQL

Sebastian Respondek

2 years ago

I changed the ChangeCustomerStatus Sub like this to get it to work on German machines - otherwise it will the Error 3061:

Details

Private Sub ChangeCustomerStatus(CustomerID As Long, IsActive As Boolean)
    Dim S As String
    
    ' Execute ben'tigt die Werte in Englischer Sprache, Access konvertiert im Hintergrund aber nach Deutsch.
    ' Daher wird IsActiveEN explizit in englischer Sprache erzeugt und dann verwendet.
    Dim IsActiveEN As String
    IsActiveEN = IIf(IsActive, "True", "False")
        
    S = "UPDATE CustomerT SET IsActive = " & IsActiveEN & " WHERE CustomerID = " & CustomerID
    
    CurrentDb.Execute S        
End Sub

	Richard Rost @Reply 2 years ago
What did I have as the original code? I'm assuming the German words for TRUE and FALSE are different and that's what's causing the problem. As I've said a million times, I have ZERO experience with foreign language versions.

Sebastian Respondek OP @Reply

2 years ago

Yes, it was that Access translated TRUE and FALSE in the background, when the String S was created

(So it was an invisible translation and though more annoying than helpful - especially because hardly anybody using a computer needs those words to be in german).

CurrentDb.Execute could not handle the String with the german words in it. Therefore, exept the comment, the three lines are slightly modified to get around that problem:

Dim IsActiveEN As String

    IsActiveEN = IIf(IsActive, "True", "False")

        

    S = "UPDATE CustomerT SET IsActive = " & IsActiveEN & " WHERE CustomerID = " & CustomerID

Maybe that helps somebody, I thought it was worth sharing it

	Richard Rost @Reply 2 years ago
Thanks for sharing.

This thread is now CLOSED. If you wish to comment, start a NEW discussion in Access Developer 16 Lessons.

Next Unseen

New Feature: Comment Live View