Button that fills in a specific value

[Renee R]

Hi. On my form, I have several fields that contain information about an appointment (time, scheddate). I am trying to track those who don't show up to their appointments. Thus, on my form, I have a button [NoShow]. When someone doesn't show up, you click that button, it opens a pop-up form [MarkNoShow] with the relevant information from the first form, you confirm that you want to mark them as a no-show, then it saves everything into a second table. And, because they don't have an appointment anymore, it erases the appointment information from the first form.

When someone is marked as a no show, I want to send them a no show letter. On my form, I have a combobox [LetterType]. I want that field filled in with "No Show."

Everything works perfectly except filling in the field with "No Show." I know I have the syntax wrong... it is a combobox. I've tried = "No show" and = 3 (the value in the lookup). But, neither works. Any suggestions?

Private Sub NoShow_Click()
Dim DocName As String
DocName = "MarkNoShow"
'I use acAdd, you may want acEdit here...
DoCmd.OpenForm DocName, , , , acAdd
'Set Defaults for Approver's Id & other stuff...
Forms![MarkNoShow]![VetName] = Me.VetName
Forms![MarkNoShow]![Last4] = Me.Last4
Forms![MarkNoShow]![Location] = Me.Location
Forms![MarkNoShow]![Time] = Me.Time
Forms![MarkNoShow]![When] = Me.SchedDate
Forms![MarkNoShow]![GC] = Me.GC_1
Me.Time = Null
Me.SchedDate = Null


Me.GC_1 = Null
Me.GC_2 = Null
Me.LetterType = "No show"
Detail.BackColor = RGB(230, 224, 236)
InfoMessage.Caption = "You have modified this record. " & _
"If you move to another record, your changes will be aplied. " & _
"To cancel your changes, hit the Esc key."
End Sub

Thanks!
Renee

[June7]

Personally, I would have come up with a db design that didn't require 'moving' this record, such as just marking a yes/no field for the non-appearance. Or perhaps a text field and combobox with choices of descriptions for appointment resolution (NoShow, Referral, Reschedule).

The issue is the destination field type and whether or not grabbing the correct value from combobox. This can be confusing if the combobox is a multi-column with lookup alias.

[Renee R]

I figured it out...

LetterType.Value = 4