G
Guest
Below you will find my code. On my Parent form I have a CmdButton that opens
a report. What I have so far works, But I would like for the value chosen
from a CboBox in my subform to show up as well. All I can get is the ID
Number "AutoNumber"
---------------What I have working now------------------------
If IsNull(Me![BreedDate]) Then
MsgBox "There is No Breed Date For This Selection At This Time!
" & Chr(13) & Chr(10) & Chr(10) & "You Have Chosen A Female To Breed With ( "
& [Form_Breeders]![Name] & " ) Now You Must Enter a Breed Date! ",
vbExclamation + vbYesNo = vbYes
Cancel = -1
Else
-----------------------------------------------------------------------
---------------What I would like------------------------------------
If IsNull(Me![BreedDate]) Then
MsgBox "There is No Breed Date For This Selection At This Time!
" & Chr(13) & Chr(10) & Chr(10) & "You Have Chosen
(ComboBoxValue_From_SubForm) To Breed With ( " & [Form_Breeders]![Name] & " )
Now You Must Enter a Breed Date! ", vbExclamation + vbYesNo = vbYes
Cancel = -1
Else
a report. What I have so far works, But I would like for the value chosen
from a CboBox in my subform to show up as well. All I can get is the ID
Number "AutoNumber"
---------------What I have working now------------------------
If IsNull(Me![BreedDate]) Then
MsgBox "There is No Breed Date For This Selection At This Time!
" & Chr(13) & Chr(10) & Chr(10) & "You Have Chosen A Female To Breed With ( "
& [Form_Breeders]![Name] & " ) Now You Must Enter a Breed Date! ",
vbExclamation + vbYesNo = vbYes
Cancel = -1
Else
-----------------------------------------------------------------------
---------------What I would like------------------------------------
If IsNull(Me![BreedDate]) Then
MsgBox "There is No Breed Date For This Selection At This Time!
" & Chr(13) & Chr(10) & Chr(10) & "You Have Chosen
(ComboBoxValue_From_SubForm) To Breed With ( " & [Form_Breeders]![Name] & " )
Now You Must Enter a Breed Date! ", vbExclamation + vbYesNo = vbYes
Cancel = -1
Else