Recent content by ClaraBarton

So... a variant will still always be a number in this case?

Num is actually a string. It's the currency fields that make trouble.

Private Sub MatchTransfer() Dim strSql As String Dim AID As Long Dim NID As Long Dim CDt As Date Dim Nm As String Dim Mmo As String Dim TrnID As Long Dim TPay As Currency Dim TRec As Currency Dim TMmo As String Dim ID2 As Long 'New match AID = Me.Parent.fAccountID NID =...

OK. got it. Thank you all. I just wish I could have my number fields be blank instead of 0 but that's more of an aesthetic thing so no big deal. I can just format it on the form.

OH! You mean the values are not the order they're declared but the order they're written after! I wondered why I needed to rewrite them! Thank you so much. This is great!

Actually I'll probably need to create a new sub for the second insert, right?

I don't think the error has anything to do with 5. I first started with 8 (the last ID) and got the same error only 8. So I need to reset the variables to make them start with 0?

And Here It Is!: Private Sub CrossTransfer() Dim strSql As String Dim strSql2 As String Dim AID As Long Dim NID As Long Dim CDt As Date AID = Me.Parent.fAccountID '0 NID = Me.Parent.cboFullName.Value '1 CDt = Me.Parent.CkDate '2 Nm =...

I have it working (even the date ;)). But Tom... I'd like to more about StringFormatSQL. It doesn't seem to google. Do {0},{1} just refer to the variables and their order? I notice Northwind uses it extensively but I need more info.

I'd like to insert a record: strSql = "INSERT INTO tblTransactions" & _ " ([fAccountID]" & _ ", [fNameID]" & _ ", [CkDate]" & _ ", [Num])" & _ " VALUES" & _ " (" & Me.cboAccount.Value & _ ", " & frm.cboFullName.Value & _ "...

Thank you so much, Arnelgp. It works great!

Private Sub btnSplit_Click() WriteCheck 1, Me.Filter End Sub Public Sub WriteCheck(iMode As Integer, Optional strWhere As String) 'acAdd = 0; acEdit = 1 Dim strWhere2 As String If strWhere & "" = "" Then strWhere = "" Else: strWhere = " AND " & strWhere End If...

Probably an oft repeated question but I can't seem to find the right question to get an answer... I have FormA based on a calculated query. When I call FormB using FormA.Filter, the filter uses FormA query field name which doesn't work on FormB query field names even though they are both using...

Thanks to you all I got it working. However, you cannot use the codes that show on the color picker. Here is the best information: https://cloford.com/resources/colours/500col.htm Private Sub Form_Current() Dim frm As Form Set frm = Forms![frmAccounts]![Register].Form [SelectedID] =...

i'm using hex...