Setting a combo box to a default?

[d9pierce1]

Hi all,


On my form I have a Combo for accounts. Is ther a way to get this to only be one account as a default or set a value to it on the RunSql statement (Below)?

    Case "Deposit"
    
        If Me.ChkDepositRemburseExp = False Then
             DoCmd.SetWarnings False
             DoCmd.RunSQL "INSERT INTO AccountLedgerTbl (TransID, AccountID, TransDate, TransNumber, Description, Method, Credit) " & _
                     "VALUES (" & TxtTransID & ", " & CboToAccount & ", #" & TxtTransDate & "#, '" & TxtTransNumber & "', '" & TxtTransType & " From " & CboCompany.Column(1) & "', '" & TxtMethod & "' , " & TxtTransAmount & ")"
            'db.Execute strSql, dbFailOnError
    
    Else
             DoCmd.RunSQL "INSERT INTO AccountLedgerTbl (TransID, AccountID, TransDate, TransNumber, Description, Method, Credit) " & _
                     "VALUES (" & TxtTransID & ", " & CboToAccount & ", #" & TxtTransDate & "#, '" & TxtTransNumber & "', '" & TxtTransType & " From " & CboCompany.Column(1) & "', '" & TxtMethod & "' , " & TxtTransAmount & ")"
            'db.Execute strSql, dbFailOnError
            DoCmd.RunSQL "INSERT INTO AccountLedgerTbl (TransID, AccountID, TransDate, TransNumber, Description, Method, Debit) " & _
                     "VALUES (" & TxtTransID & ", " & CboRE & ", #" & TxtTransDate & "#, '" & TxtTransNumber & "',  '" & TxtTransDescription & "' , '" & TxtMethod & "' , " & TxtTransAmount & ")"
            DoCmd.SetWarnings True
        End If

The CboRE (in Red) above would be ideal to be able to use for this if possible? This is a combo with all accounts and is hidden on my form. I want to be able to just set that as Remburseable Expenses
so that i dont need to select it. It would always be the same value.... CboRE = Rembursable Expenses

I coule also use the "ChkDepositRemburseExp" check box so that when ticked, it sets that CboRE to Rembursable Expenses

Not sure how to actually do this? I have tried bound and unbound in different combos, have tried a default value however nothing has produced a result. Maybe some type of Qry? I just dont know

Thanks
Dave

[Gicu]

Make the combo unbound and in the Load event of the form (or before you run the code you show) add Me.cboRE="Rembursable Expenses"

Cheers,

[Welshgasman]

If the combo is unbound, you can set the default property?

[d9pierce1]

Thank you so much...\

[d9pierce1]

OK,
Gave that a shot however, unless i actually select that from drop down "Rembursable Expenses" it give me an error when running the code. It does put "Rembursable Expenses" in the unbound Cbo yet it doesnt actually select that account from the drop down if this makes any sense at all?
Basically i get a compile error Verible Not Defined... if i put Me.cboRE="Rembursable Expenses" in the onload event but if i select it from the cbo then code runs just fine

So what i am trying to say, it puts the words in that combo "Rembursable Expenses" but doesnt actually select the account "Rembursable Expenses"

[d9pierce1]

Actually the only time i need the "Rembursable Expenses" even in that combo is when i click the "ChkDepositRemburseExp" on form so would it be better to maybe use a onclick method with a DLookup and set to "Rembursable Expenses"

[Welshgasman]

I would not have thought that cboRE was actually "Rembursable Expenses", but an ID equivalent to "Rembursable Expenses" ?

What is the source for cboRE ?

[d9pierce1]

Hi Welshgasman,
You are correct, It is an ID for AccountTbl, (AccountID and AccountName) and Rembursable Expenses is one of the accounts.

[Welshgasman]

Hi Welshgasman,
You are correct, It is an ID for AccountTbl, (AccountID and AccountName) and Rembursable Expenses is one of the accounts.

So the default is whatever the ID is for Rembursable Expenses ?

[d9pierce1]

yes sir, thats the idea. ID # is actually 21