防止字符串数据用左边的空格填充

Question

我有一个输入框，用于在数据库中输入字母数字帐号。该框最多可接受25个字符。但是，对于数据输入，每个帐号可能不会长达25个字符。在这种情况下，帐号会在其前面用空格保存，而不是保存在列的左侧。我该如何解决这个问题？

我希望每个数字都像两个带连字符的数字一样保存，而不是像第一个记录那样保存。

代码摘要：

Set objDB = New db.Detail_Data 
objDB.ConnectionString = CONNECTSTRING 
With objDB 
    .summary_code = CDbl(mvarSumcode) 
    .charge_code = UCase$(Me.txtChargeCode) 
    .clientID = UCase$(Me.txtClientID) 
    .JobID = UCase$(Me.txtJobID) 
    .Invno = UCase$(Me.txtInvno.Text) 
    .TransAmt = CCur(Me.txtTransAmt) 
    .Gl_accno = Format(Me.txtGL, "@@@@@@@@@@@@@@@@@@@@@@@@@") 
    .Description = Me.txtDescription 
    blnStatus = .AddDetail
End With

Answer 1

看起来像编码一样工作。你的行：

.Gl_accno = Format(Me.txtGL, "@@@@@@@@@@@@@@@@@@@@@@@@@") 

带有Format符号的

@对齐字符串，填充左侧的空格。除非你像这样添加!（source）。

.Gl_accno = Format(Me.txtGL, "!@@@@@@@@@@@@@@@@@@@@@@@@@")