Search results

For issue #2, I did as you said and changed Me.CboIsComplete.Value = Me.CboIsComplete.Selected(0) to Me.CboIsComplete = "All" and there is no text = All in the combo box. The code is in the onload event of the form. Issue #1 - The code mentioned above is in the on Current event of the form.:(

Hi All, I have several outstanding issue that, I would like to bring to rest. The first is that this code: Me.lblRecCnt.Caption = _ "Record " & Me.CurrentRecord & " of " & Me.Recordset.RecordCount does not refresh as I use the vba navagation buttons on the form. In order to see the...

I thought of that it seems to be a display issue. The reason for saying that is that the records show correctly in management studio so the data does not seem to actually be corrupt. Additionally, the form has a filter showing complete and incomplete rows. When, I select incomplete the two rows...

Hi Form Masters, I'm getting very strange results with an Access form that has an SQL database back end. When data is entered into it records are displayed strangely. What, I mean by strangely is that the primary key is repeated in two row showing the same data twice. Another strange thing is...

Form Masters, I have a slit form let's call it formB that gets data automatically from another form let's call it formA upon saving. Users now want to do manual enter into formB so I've added a button labeled 'Add Item' When this button is clicked the caption is changed to 'Save and Exit'. I...

I have put the following code into the After Update event of a text box on a form: Private Sub PreDepositedCheck_AfterUpdate() If Me.PreDepositedCheck.Value = 1 Then Me.PreDepositSource.Value = "SDE" 'This value should be set Me.PreDepositOrigBank.Value = "C0010" 'This value...

I'm back to finally resolve this matter. I apologize as, I have multiple issues going on at the same time (who doesn't) so I just getting back to this. That said, the DLookup uses GiftId (Integer Data Type) to check the corresponding GiftID in the tblTransmittalInfo table and see if it is a...

Jdraw, It may be that you could see that the code was going to crap out as it did. I changed it to the following: Private Sub Form_BeforeUpdate(Cancel As Integer) Dim bCheck As Boolean Dim ctl As Control For Each ctl In Me.Detail.Controls With ctl If .Tag = "v" Then...

Yes, I noticed that typo and fixed it.

Gasman et. al Thanks, I saw that but I'm so tired that, I did not close it. :D

Gasman, As long as I have been on this site, I have never even considered the formatting tools that are on top of the editing form. But, I will use it going forward. I dropped your suggested code in and got the error: End With without With.:(

I still get the same error.:o Private Sub Form_BeforeUpdate(Cancel As Integer) Dim bCheck As Boolean Dim ctl As Control For Each ctl In Me.Detail.Controls With ctl If .ControlsType = acTextBox Then If IsNull(.Value) Then If .Tag = "v" Then...

I do have it formatted but the formatting is not kept when you attach the code into this editor. Please see attached screen shot. It still eludes me.:o

VBA Masters, I have this simple for loop that gives me an error but, I can't see what's wrong any help is appreciated. Error msg is: Next without for For Each ctl In Me.Detail.Controls With ctl If .ControlsType = acTextBox Then If IsNull(.Value) Then If...

So what do I need to add to have it work on the current record?

The [GiftID] gets it's value from the current record/row in the table.

GiftId is a FK in this table. The DLookup checks to see if the corresponding row in a parent table is either o or p. As, I mentioned in the DLookup expression it always returns the correct value which is an integer datatype that links the two tables. What it is looking up in the related table is...

This is strange. I added a DLookup column to the subform that contains the Combobox and it returns an O (Organization) or P (Person) as it should nevertheless the ComboBox still does not work. It always return O (Organization) and never P (Person). But the DLookup is evaluating correctly. Any...

Hi VBA Masters, I have this simple code: 'THIS CODE POPULATES THE GIFT TYPE COMBO BOX strPerson = "Soft;Joint;IHO;IMO;Faculty & Friends" strOrg = "Soft;IHO;IMO;Faculty & Friends" If Nz(DLookup("PersonorOrgan", "dbo_tblTransmittalInfo", "GiftID= " & [GiftID] & " "), "P") = "P" Then...

Hi VBA Masters, I have SQL code with a Select Case for a column that I need to implement in an Access query as follows: SELECT DISTINCT c.CONTACT_DATE, c.DESCRIPTION, c.Purpose, c.Contact_Type_DESC, c.Id_Number, Case When m.MAIL_LIST_CODE = "MMS" THEN "Med_Contact" Else...