Problem with text box


A

Aria

Hi,
I’m hoping someone can help me fix my form. I don't know if this is the
right section to post my question. It was working fine until I made a change
yesterday. I didn’t know there was a problem until I tried to update some
records. The form is frmKeyRequests. With help from those in this newsgroup,
I was able to get the form displaying information and working as I would
like. Yesterday, I created a back-up copy and added 2 combo boxes to restrict
records by semester and year. I then did a C & R on the db. No problems were
encountered. I don’t know if this has anything to do with it or not but like
I said it was working until I added the combo boxes (although I didn’t test
it by adding a new date to the text box). What’s happening is that I can’t
input a date into txtRcvdDate. I went back to the previous version w/o the
combo boxes and it works fine. I don’t know exactly what information you’ll
need so I’ll try to describe the form. I apologize in advance for the length
of this post.

Form Design:

Form with 2 subforms
sfrmKeyRequestsNew and sfrmKeyRequestsExisting

Newly added:
cboSemester (unbound)
Row Source Type Value List
Row Source Spring;1/1/;5/31/;Summer;6/1/;8/31/;Fall;9/1/;12/31/
Bound Column 1 Column Count 3
Column Widths 1";0";0"

cboYear (unbound)
Row Source Type Table/Query

Row Source
SELECT tblYears.Year FROM tblYears WHERE (((tblYears.Year)<=Year(Date())));

SQL (qryKeyRequests):
SELECT tblKeysRequests.RequestID, tblKeysRequests.KeyID,
tblKeysRequests.EmpID, tblKeysRequests.RqstDate,
tblKeysRequests.QtyRequested, tblKeysRequests.RcvdDate,
tblKeysRequests.QtyRecd, tblKeysRequests.Reason, tblKeysRequests.Complete,
tblKeys.KeyCode, IIf(IsNull([RcvdDate]),"Pending",[RcvdDate]) AS Pending
FROM tblKeys INNER JOIN tblKeysRequests ON tblKeys.KeyID =
tblKeysRequests.KeyID
WHERE (((tblKeysRequests.RqstDate) Between
[forms]![frmMain]![frmKeyRequests].[form]![txtRqstStartDate] And
[forms]![frmMain]![frmKeyRequests].[form]![txtRqstEndDate]))
ORDER BY tblKeys.KeyCode;

FrmKeyRequest:

Private Sub Form_GotFocus()
On Error GoTo HandleError

Me.txtRcvdDate.SetFocus

exit_procedure:
Exit Sub

HandleError:
ErrorHandler Err.Number, Err.Description, "frmKeyRequests",
"txtPending_GotFocus"
Resume exit_procedure
End Sub

sfrmKeyRequestsNew
Private Sub Form_AfterUpdate()
On Error GoTo HandleError

Forms!frmMain!frmKeyRequests.Form!sfrmKeyRequestsExisting.Requery

exit_procedure:
Exit Sub

HandleError:
ErrorHandler Err.Number, Err.Description, "frmKeyRequests",
"Form_AfterUpdate"
Resume exit_procedure
End Sub

It’s always something. I would really appreciate any assistance you can
provide. Let me know if I have failed to mention something you need to know.
 
Ad

Advertisements

K

KARL DEWEY

I can’t input a date into txtRcvdDate.
When you try to put a date what happens? Error message?

--
Build a little, test a little.


Aria said:
Hi,
I’m hoping someone can help me fix my form. I don't know if this is the
right section to post my question. It was working fine until I made a change
yesterday. I didn’t know there was a problem until I tried to update some
records. The form is frmKeyRequests. With help from those in this newsgroup,
I was able to get the form displaying information and working as I would
like. Yesterday, I created a back-up copy and added 2 combo boxes to restrict
records by semester and year. I then did a C & R on the db. No problems were
encountered. I don’t know if this has anything to do with it or not but like
I said it was working until I added the combo boxes (although I didn’t test
it by adding a new date to the text box). What’s happening is that I can’t
input a date into txtRcvdDate. I went back to the previous version w/o the
combo boxes and it works fine. I don’t know exactly what information you’ll
need so I’ll try to describe the form. I apologize in advance for the length
of this post.

Form Design:

Form with 2 subforms
sfrmKeyRequestsNew and sfrmKeyRequestsExisting

Newly added:
cboSemester (unbound)
Row Source Type Value List
Row Source Spring;1/1/;5/31/;Summer;6/1/;8/31/;Fall;9/1/;12/31/
Bound Column 1 Column Count 3
Column Widths 1";0";0"

cboYear (unbound)
Row Source Type Table/Query

Row Source
SELECT tblYears.Year FROM tblYears WHERE (((tblYears.Year)<=Year(Date())));

SQL (qryKeyRequests):
SELECT tblKeysRequests.RequestID, tblKeysRequests.KeyID,
tblKeysRequests.EmpID, tblKeysRequests.RqstDate,
tblKeysRequests.QtyRequested, tblKeysRequests.RcvdDate,
tblKeysRequests.QtyRecd, tblKeysRequests.Reason, tblKeysRequests.Complete,
tblKeys.KeyCode, IIf(IsNull([RcvdDate]),"Pending",[RcvdDate]) AS Pending
FROM tblKeys INNER JOIN tblKeysRequests ON tblKeys.KeyID =
tblKeysRequests.KeyID
WHERE (((tblKeysRequests.RqstDate) Between
[forms]![frmMain]![frmKeyRequests].[form]![txtRqstStartDate] And
[forms]![frmMain]![frmKeyRequests].[form]![txtRqstEndDate]))
ORDER BY tblKeys.KeyCode;

FrmKeyRequest:

Private Sub Form_GotFocus()
On Error GoTo HandleError

Me.txtRcvdDate.SetFocus

exit_procedure:
Exit Sub

HandleError:
ErrorHandler Err.Number, Err.Description, "frmKeyRequests",
"txtPending_GotFocus"
Resume exit_procedure
End Sub

sfrmKeyRequestsNew
Private Sub Form_AfterUpdate()
On Error GoTo HandleError

Forms!frmMain!frmKeyRequests.Form!sfrmKeyRequestsExisting.Requery

exit_procedure:
Exit Sub

HandleError:
ErrorHandler Err.Number, Err.Description, "frmKeyRequests",
"Form_AfterUpdate"
Resume exit_procedure
End Sub

It’s always something. I would really appreciate any assistance you can
provide. Let me know if I have failed to mention something you need to know.
 
A

Aria

Hi Karl,
No, no error message at all. I hear a beep. I looked at it again. The
problem may be that there are now 2 subforms where before everything was on
one form. I have another db where I also add data at the top and I'm able to
edit info as the situation changes. I looked at the properties for that one
and I don't know...I don't see where there is a difference.
Perhaps you can see what is going wrong:
Allow Edits/Deletions - Yes
Allow Additions/Data Entry - No

--
Aria W.


KARL DEWEY said:
When you try to put a date what happens? Error message?

--
Build a little, test a little.


Aria said:
Hi,
I’m hoping someone can help me fix my form. I don't know if this is the
right section to post my question. It was working fine until I made a change
yesterday. I didn’t know there was a problem until I tried to update some
records. The form is frmKeyRequests. With help from those in this newsgroup,
I was able to get the form displaying information and working as I would
like. Yesterday, I created a back-up copy and added 2 combo boxes to restrict
records by semester and year. I then did a C & R on the db. No problems were
encountered. I don’t know if this has anything to do with it or not but like
I said it was working until I added the combo boxes (although I didn’t test
it by adding a new date to the text box). What’s happening is that I can’t
input a date into txtRcvdDate. I went back to the previous version w/o the
combo boxes and it works fine. I don’t know exactly what information you’ll
need so I’ll try to describe the form. I apologize in advance for the length
of this post.

Form Design:

Form with 2 subforms
sfrmKeyRequestsNew and sfrmKeyRequestsExisting

Newly added:
cboSemester (unbound)
Row Source Type Value List
Row Source Spring;1/1/;5/31/;Summer;6/1/;8/31/;Fall;9/1/;12/31/
Bound Column 1 Column Count 3
Column Widths 1";0";0"

cboYear (unbound)
Row Source Type Table/Query

Row Source
SELECT tblYears.Year FROM tblYears WHERE (((tblYears.Year)<=Year(Date())));

SQL (qryKeyRequests):
SELECT tblKeysRequests.RequestID, tblKeysRequests.KeyID,
tblKeysRequests.EmpID, tblKeysRequests.RqstDate,
tblKeysRequests.QtyRequested, tblKeysRequests.RcvdDate,
tblKeysRequests.QtyRecd, tblKeysRequests.Reason, tblKeysRequests.Complete,
tblKeys.KeyCode, IIf(IsNull([RcvdDate]),"Pending",[RcvdDate]) AS Pending
FROM tblKeys INNER JOIN tblKeysRequests ON tblKeys.KeyID =
tblKeysRequests.KeyID
WHERE (((tblKeysRequests.RqstDate) Between
[forms]![frmMain]![frmKeyRequests].[form]![txtRqstStartDate] And
[forms]![frmMain]![frmKeyRequests].[form]![txtRqstEndDate]))
ORDER BY tblKeys.KeyCode;

FrmKeyRequest:

Private Sub Form_GotFocus()
On Error GoTo HandleError

Me.txtRcvdDate.SetFocus

exit_procedure:
Exit Sub

HandleError:
ErrorHandler Err.Number, Err.Description, "frmKeyRequests",
"txtPending_GotFocus"
Resume exit_procedure
End Sub

sfrmKeyRequestsNew
Private Sub Form_AfterUpdate()
On Error GoTo HandleError

Forms!frmMain!frmKeyRequests.Form!sfrmKeyRequestsExisting.Requery

exit_procedure:
Exit Sub

HandleError:
ErrorHandler Err.Number, Err.Description, "frmKeyRequests",
"Form_AfterUpdate"
Resume exit_procedure
End Sub

It’s always something. I would really appreciate any assistance you can
provide. Let me know if I have failed to mention something you need to know.
 
A

Aria

P.S. I forgot to mention that information in the other db is changed via
combo boxes so that may have something to do with being able to edit info.
--
Aria W.


Aria said:
Hi Karl,
No, no error message at all. I hear a beep. I looked at it again. The
problem may be that there are now 2 subforms where before everything was on
one form. I have another db where I also add data at the top and I'm able to
edit info as the situation changes. I looked at the properties for that one
and I don't know...I don't see where there is a difference.
Perhaps you can see what is going wrong:
Allow Edits/Deletions - Yes
Allow Additions/Data Entry - No

--
Aria W.


KARL DEWEY said:
I can’t input a date into txtRcvdDate.
When you try to put a date what happens? Error message?

--
Build a little, test a little.


Aria said:
Hi,
I’m hoping someone can help me fix my form. I don't know if this is the
right section to post my question. It was working fine until I made a change
yesterday. I didn’t know there was a problem until I tried to update some
records. The form is frmKeyRequests. With help from those in this newsgroup,
I was able to get the form displaying information and working as I would
like. Yesterday, I created a back-up copy and added 2 combo boxes to restrict
records by semester and year. I then did a C & R on the db. No problems were
encountered. I don’t know if this has anything to do with it or not but like
I said it was working until I added the combo boxes (although I didn’t test
it by adding a new date to the text box). What’s happening is that I can’t
input a date into txtRcvdDate. I went back to the previous version w/o the
combo boxes and it works fine. I don’t know exactly what information you’ll
need so I’ll try to describe the form. I apologize in advance for the length
of this post.

Form Design:

Form with 2 subforms
sfrmKeyRequestsNew and sfrmKeyRequestsExisting

Newly added:
cboSemester (unbound)
Row Source Type Value List
Row Source Spring;1/1/;5/31/;Summer;6/1/;8/31/;Fall;9/1/;12/31/
Bound Column 1 Column Count 3
Column Widths 1";0";0"

cboYear (unbound)
Row Source Type Table/Query

Row Source
SELECT tblYears.Year FROM tblYears WHERE (((tblYears.Year)<=Year(Date())));

SQL (qryKeyRequests):
SELECT tblKeysRequests.RequestID, tblKeysRequests.KeyID,
tblKeysRequests.EmpID, tblKeysRequests.RqstDate,
tblKeysRequests.QtyRequested, tblKeysRequests.RcvdDate,
tblKeysRequests.QtyRecd, tblKeysRequests.Reason, tblKeysRequests.Complete,
tblKeys.KeyCode, IIf(IsNull([RcvdDate]),"Pending",[RcvdDate]) AS Pending
FROM tblKeys INNER JOIN tblKeysRequests ON tblKeys.KeyID =
tblKeysRequests.KeyID
WHERE (((tblKeysRequests.RqstDate) Between
[forms]![frmMain]![frmKeyRequests].[form]![txtRqstStartDate] And
[forms]![frmMain]![frmKeyRequests].[form]![txtRqstEndDate]))
ORDER BY tblKeys.KeyCode;

FrmKeyRequest:

Private Sub Form_GotFocus()
On Error GoTo HandleError

Me.txtRcvdDate.SetFocus

exit_procedure:
Exit Sub

HandleError:
ErrorHandler Err.Number, Err.Description, "frmKeyRequests",
"txtPending_GotFocus"
Resume exit_procedure
End Sub

sfrmKeyRequestsNew
Private Sub Form_AfterUpdate()
On Error GoTo HandleError

Forms!frmMain!frmKeyRequests.Form!sfrmKeyRequestsExisting.Requery

exit_procedure:
Exit Sub

HandleError:
ErrorHandler Err.Number, Err.Description, "frmKeyRequests",
"Form_AfterUpdate"
Resume exit_procedure
End Sub

It’s always something. I would really appreciate any assistance you can
provide. Let me know if I have failed to mention something you need to know.
 
K

KARL DEWEY

No, no error message at all. I hear a beep.
Does it display the typed entry?
And if you remove the subforms?

Try the WHERE statement like this --
WHERE (((tblKeysRequests.RqstDate) Between
[forms]![frmMain]![frmKeyRequests]![txtRqstStartDate] And
[forms]![frmMain]![frmKeyRequests]![txtRqstEndDate]))
ORDER BY tblKeys.KeyCode;

--
Build a little, test a little.


Aria said:
P.S. I forgot to mention that information in the other db is changed via
combo boxes so that may have something to do with being able to edit info.
--
Aria W.


Aria said:
Hi Karl,
No, no error message at all. I hear a beep. I looked at it again. The
problem may be that there are now 2 subforms where before everything was on
one form. I have another db where I also add data at the top and I'm able to
edit info as the situation changes. I looked at the properties for that one
and I don't know...I don't see where there is a difference.
Perhaps you can see what is going wrong:
Allow Edits/Deletions - Yes
Allow Additions/Data Entry - No

--
Aria W.


KARL DEWEY said:
I can’t input a date into txtRcvdDate.
When you try to put a date what happens? Error message?

--
Build a little, test a little.


:

Hi,
I’m hoping someone can help me fix my form. I don't know if this is the
right section to post my question. It was working fine until I made a change
yesterday. I didn’t know there was a problem until I tried to update some
records. The form is frmKeyRequests. With help from those in this newsgroup,
I was able to get the form displaying information and working as I would
like. Yesterday, I created a back-up copy and added 2 combo boxes to restrict
records by semester and year. I then did a C & R on the db. No problems were
encountered. I don’t know if this has anything to do with it or not but like
I said it was working until I added the combo boxes (although I didn’t test
it by adding a new date to the text box). What’s happening is that I can’t
input a date into txtRcvdDate. I went back to the previous version w/o the
combo boxes and it works fine. I don’t know exactly what information you’ll
need so I’ll try to describe the form. I apologize in advance for the length
of this post.

Form Design:

Form with 2 subforms
sfrmKeyRequestsNew and sfrmKeyRequestsExisting

Newly added:
cboSemester (unbound)
Row Source Type Value List
Row Source Spring;1/1/;5/31/;Summer;6/1/;8/31/;Fall;9/1/;12/31/
Bound Column 1 Column Count 3
Column Widths 1";0";0"

cboYear (unbound)
Row Source Type Table/Query

Row Source
SELECT tblYears.Year FROM tblYears WHERE (((tblYears.Year)<=Year(Date())));

SQL (qryKeyRequests):
SELECT tblKeysRequests.RequestID, tblKeysRequests.KeyID,
tblKeysRequests.EmpID, tblKeysRequests.RqstDate,
tblKeysRequests.QtyRequested, tblKeysRequests.RcvdDate,
tblKeysRequests.QtyRecd, tblKeysRequests.Reason, tblKeysRequests.Complete,
tblKeys.KeyCode, IIf(IsNull([RcvdDate]),"Pending",[RcvdDate]) AS Pending
FROM tblKeys INNER JOIN tblKeysRequests ON tblKeys.KeyID =
tblKeysRequests.KeyID
WHERE (((tblKeysRequests.RqstDate) Between
[forms]![frmMain]![frmKeyRequests].[form]![txtRqstStartDate] And
[forms]![frmMain]![frmKeyRequests].[form]![txtRqstEndDate]))
ORDER BY tblKeys.KeyCode;

FrmKeyRequest:

Private Sub Form_GotFocus()
On Error GoTo HandleError

Me.txtRcvdDate.SetFocus

exit_procedure:
Exit Sub

HandleError:
ErrorHandler Err.Number, Err.Description, "frmKeyRequests",
"txtPending_GotFocus"
Resume exit_procedure
End Sub

sfrmKeyRequestsNew
Private Sub Form_AfterUpdate()
On Error GoTo HandleError

Forms!frmMain!frmKeyRequests.Form!sfrmKeyRequestsExisting.Requery

exit_procedure:
Exit Sub

HandleError:
ErrorHandler Err.Number, Err.Description, "frmKeyRequests",
"Form_AfterUpdate"
Resume exit_procedure
End Sub

It’s always something. I would really appreciate any assistance you can
provide. Let me know if I have failed to mention something you need to know.
 
A

Aria

If I remove the subforms, I will have to revert to the original form that I
had in the beginning. The reason I wanted to add data at the top is because
there are a *lot* of key requests. Is there no way to edit the data?
--
Aria W.


KARL DEWEY said:
Does it display the typed entry?
And if you remove the subforms?

Try the WHERE statement like this --
WHERE (((tblKeysRequests.RqstDate) Between
[forms]![frmMain]![frmKeyRequests]![txtRqstStartDate] And
[forms]![frmMain]![frmKeyRequests]![txtRqstEndDate]))
ORDER BY tblKeys.KeyCode;

--
Build a little, test a little.


Aria said:
P.S. I forgot to mention that information in the other db is changed via
combo boxes so that may have something to do with being able to edit info.
--
Aria W.


Aria said:
Hi Karl,
No, no error message at all. I hear a beep. I looked at it again. The
problem may be that there are now 2 subforms where before everything was on
one form. I have another db where I also add data at the top and I'm able to
edit info as the situation changes. I looked at the properties for that one
and I don't know...I don't see where there is a difference.
Perhaps you can see what is going wrong:
Allow Edits/Deletions - Yes
Allow Additions/Data Entry - No

--
Aria W.


:

I can’t input a date into txtRcvdDate.
When you try to put a date what happens? Error message?

--
Build a little, test a little.


:

Hi,
I’m hoping someone can help me fix my form. I don't know if this is the
right section to post my question. It was working fine until I made a change
yesterday. I didn’t know there was a problem until I tried to update some
records. The form is frmKeyRequests. With help from those in this newsgroup,
I was able to get the form displaying information and working as I would
like. Yesterday, I created a back-up copy and added 2 combo boxes to restrict
records by semester and year. I then did a C & R on the db. No problems were
encountered. I don’t know if this has anything to do with it or not but like
I said it was working until I added the combo boxes (although I didn’t test
it by adding a new date to the text box). What’s happening is that I can’t
input a date into txtRcvdDate. I went back to the previous version w/o the
combo boxes and it works fine. I don’t know exactly what information you’ll
need so I’ll try to describe the form. I apologize in advance for the length
of this post.

Form Design:

Form with 2 subforms
sfrmKeyRequestsNew and sfrmKeyRequestsExisting

Newly added:
cboSemester (unbound)
Row Source Type Value List
Row Source Spring;1/1/;5/31/;Summer;6/1/;8/31/;Fall;9/1/;12/31/
Bound Column 1 Column Count 3
Column Widths 1";0";0"

cboYear (unbound)
Row Source Type Table/Query

Row Source
SELECT tblYears.Year FROM tblYears WHERE (((tblYears.Year)<=Year(Date())));

SQL (qryKeyRequests):
SELECT tblKeysRequests.RequestID, tblKeysRequests.KeyID,
tblKeysRequests.EmpID, tblKeysRequests.RqstDate,
tblKeysRequests.QtyRequested, tblKeysRequests.RcvdDate,
tblKeysRequests.QtyRecd, tblKeysRequests.Reason, tblKeysRequests.Complete,
tblKeys.KeyCode, IIf(IsNull([RcvdDate]),"Pending",[RcvdDate]) AS Pending
FROM tblKeys INNER JOIN tblKeysRequests ON tblKeys.KeyID =
tblKeysRequests.KeyID
WHERE (((tblKeysRequests.RqstDate) Between
[forms]![frmMain]![frmKeyRequests].[form]![txtRqstStartDate] And
[forms]![frmMain]![frmKeyRequests].[form]![txtRqstEndDate]))
ORDER BY tblKeys.KeyCode;

FrmKeyRequest:

Private Sub Form_GotFocus()
On Error GoTo HandleError

Me.txtRcvdDate.SetFocus

exit_procedure:
Exit Sub

HandleError:
ErrorHandler Err.Number, Err.Description, "frmKeyRequests",
"txtPending_GotFocus"
Resume exit_procedure
End Sub

sfrmKeyRequestsNew
Private Sub Form_AfterUpdate()
On Error GoTo HandleError

Forms!frmMain!frmKeyRequests.Form!sfrmKeyRequestsExisting.Requery

exit_procedure:
Exit Sub

HandleError:
ErrorHandler Err.Number, Err.Description, "frmKeyRequests",
"Form_AfterUpdate"
Resume exit_procedure
End Sub

It’s always something. I would really appreciate any assistance you can
provide. Let me know if I have failed to mention something you need to know.
 
Ad

Advertisements

K

KARL DEWEY

Did you try revising the WHERE statement as I suggested?

Why are you putting criteria text boxes in the subform and not in the main
form? What is in your main, your sub1, and sub2?

--
Build a little, test a little.


Aria said:
If I remove the subforms, I will have to revert to the original form that I
had in the beginning. The reason I wanted to add data at the top is because
there are a *lot* of key requests. Is there no way to edit the data?
--
Aria W.


KARL DEWEY said:
No, no error message at all. I hear a beep.
Does it display the typed entry?
The problem may be that there are now 2 subforms where before everything was on one form.
And if you remove the subforms?

Try the WHERE statement like this --
WHERE (((tblKeysRequests.RqstDate) Between
[forms]![frmMain]![frmKeyRequests]![txtRqstStartDate] And
[forms]![frmMain]![frmKeyRequests]![txtRqstEndDate]))
ORDER BY tblKeys.KeyCode;

--
Build a little, test a little.


Aria said:
P.S. I forgot to mention that information in the other db is changed via
combo boxes so that may have something to do with being able to edit info.
--
Aria W.


:

Hi Karl,
No, no error message at all. I hear a beep. I looked at it again. The
problem may be that there are now 2 subforms where before everything was on
one form. I have another db where I also add data at the top and I'm able to
edit info as the situation changes. I looked at the properties for that one
and I don't know...I don't see where there is a difference.
Perhaps you can see what is going wrong:
Allow Edits/Deletions - Yes
Allow Additions/Data Entry - No

--
Aria W.


:

I can’t input a date into txtRcvdDate.
When you try to put a date what happens? Error message?

--
Build a little, test a little.


:

Hi,
I’m hoping someone can help me fix my form. I don't know if this is the
right section to post my question. It was working fine until I made a change
yesterday. I didn’t know there was a problem until I tried to update some
records. The form is frmKeyRequests. With help from those in this newsgroup,
I was able to get the form displaying information and working as I would
like. Yesterday, I created a back-up copy and added 2 combo boxes to restrict
records by semester and year. I then did a C & R on the db. No problems were
encountered. I don’t know if this has anything to do with it or not but like
I said it was working until I added the combo boxes (although I didn’t test
it by adding a new date to the text box). What’s happening is that I can’t
input a date into txtRcvdDate. I went back to the previous version w/o the
combo boxes and it works fine. I don’t know exactly what information you’ll
need so I’ll try to describe the form. I apologize in advance for the length
of this post.

Form Design:

Form with 2 subforms
sfrmKeyRequestsNew and sfrmKeyRequestsExisting

Newly added:
cboSemester (unbound)
Row Source Type Value List
Row Source Spring;1/1/;5/31/;Summer;6/1/;8/31/;Fall;9/1/;12/31/
Bound Column 1 Column Count 3
Column Widths 1";0";0"

cboYear (unbound)
Row Source Type Table/Query

Row Source
SELECT tblYears.Year FROM tblYears WHERE (((tblYears.Year)<=Year(Date())));

SQL (qryKeyRequests):
SELECT tblKeysRequests.RequestID, tblKeysRequests.KeyID,
tblKeysRequests.EmpID, tblKeysRequests.RqstDate,
tblKeysRequests.QtyRequested, tblKeysRequests.RcvdDate,
tblKeysRequests.QtyRecd, tblKeysRequests.Reason, tblKeysRequests.Complete,
tblKeys.KeyCode, IIf(IsNull([RcvdDate]),"Pending",[RcvdDate]) AS Pending
FROM tblKeys INNER JOIN tblKeysRequests ON tblKeys.KeyID =
tblKeysRequests.KeyID
WHERE (((tblKeysRequests.RqstDate) Between
[forms]![frmMain]![frmKeyRequests].[form]![txtRqstStartDate] And
[forms]![frmMain]![frmKeyRequests].[form]![txtRqstEndDate]))
ORDER BY tblKeys.KeyCode;

FrmKeyRequest:

Private Sub Form_GotFocus()
On Error GoTo HandleError

Me.txtRcvdDate.SetFocus

exit_procedure:
Exit Sub

HandleError:
ErrorHandler Err.Number, Err.Description, "frmKeyRequests",
"txtPending_GotFocus"
Resume exit_procedure
End Sub

sfrmKeyRequestsNew
Private Sub Form_AfterUpdate()
On Error GoTo HandleError

Forms!frmMain!frmKeyRequests.Form!sfrmKeyRequestsExisting.Requery

exit_procedure:
Exit Sub

HandleError:
ErrorHandler Err.Number, Err.Description, "frmKeyRequests",
"Form_AfterUpdate"
Resume exit_procedure
End Sub

It’s always something. I would really appreciate any assistance you can
provide. Let me know if I have failed to mention something you need to know.
 
A

Aria

Unfortunately, the revision to the WHERE clause did not change the outcome.
But I neglected to answer some of your earlier questions so I’ll try to
correct that now.
Does it display the typed entry?

No, nothing but the original “Pending†text is displayed. I could only hear
a beep when trying to input a date into [RcvdDate]. This is the control where
[Pending] is superimposed over txtRcvdDate. I took another look at home and
discovered there *is* a message in the status bar which says, “Field
‘Pending’ is an expression and cannot be editedâ€. I was not able to see the
status bar on my work computer. BTW, the Enabled property is set to “Yes†and
the Locked property is set to “No†for the form and all sub forms.

Again, the only changes have been the combo boxes for the semester and year
and the 2 subforms to add data at the top. In researching where the problem
first appeared, I went back 2 versions ago to look at a test copy of the db.
It didn’t contain the 2 subforms (sfrmKeyRequestsNew and
sfrmKeyRequestsExisting) but did have the 2 combo boxes to select the
semester and year. It worked well at that point. Which leads me to believe
(although I may be mistaken) that it is the

What’s *supposed* to happen is as soon as I choose a key code from the combo
box the text, “Pendingâ€, appears in txtPending. When the request is filled
and I tab or click into txtRqstDate, which is hidden under txtPending, the
words “Pending†disappear and I am able to input a date. When the control
loses the focus, the back color of the control changes from blue to white and
the font changes from red to black.
Why are you putting criteria text boxes in the subform and not in the main form?

I’m not quite sure I understand what you mean here. I think I failed to
mention a couple of things that hopefully will give you a better picture. See
below.
What is in your main, sub1 and sub2?

frmKeyRequests –

Controls in the form header

cboSemester (unbound) cboYear (unbound)

Hidden text boxes

txtRqstStartDate
Control source =CDate([cboSemester].column(1) & [cboYear])

txtRqstEndDate
Control source =CDate([cboSemester].column(2) & [cboYear])
**************************************************

Detail Section
sfrmKeyRequestsNew (sub 1)

sfrmKeyRequestExisting (sub 2)

Both contain the following controls:
cboKeyID cboEmployee txtRqstDate txtQtyRequested txtPending (over
txtRcvdDate) txtQtyRecd txtReason cmdUpdate cmdDelete

Control Source for:
txtPending is [Pending] which is based on this statement:
Pending: IIf(IsNull([RcvdDate]),"Pending",Null)

txtRcvdDate is [RcvdDate]

The only event procedure for the form is the GotFocus event previously posted.

I also forgot to mention that frmKeyRequests is a form on a tabbed control
(frmMain). I don’t know if that matters but just in case…I hope this explains
things a little better.
 
K

KARL DEWEY

I could only hear a beep when trying to input a date into [RcvdDate]. This
is the control where [Pending] is superimposed over txtRcvdDate.
Apparently you are trying to enter data in the wrong object.

--
Build a little, test a little.


Aria said:
Unfortunately, the revision to the WHERE clause did not change the outcome.
But I neglected to answer some of your earlier questions so I’ll try to
correct that now.
Does it display the typed entry?

No, nothing but the original “Pending†text is displayed. I could only hear
a beep when trying to input a date into [RcvdDate]. This is the control where
[Pending] is superimposed over txtRcvdDate. I took another look at home and
discovered there *is* a message in the status bar which says, “Field
‘Pending’ is an expression and cannot be editedâ€. I was not able to see the
status bar on my work computer. BTW, the Enabled property is set to “Yes†and
the Locked property is set to “No†for the form and all sub forms.

Again, the only changes have been the combo boxes for the semester and year
and the 2 subforms to add data at the top. In researching where the problem
first appeared, I went back 2 versions ago to look at a test copy of the db.
It didn’t contain the 2 subforms (sfrmKeyRequestsNew and
sfrmKeyRequestsExisting) but did have the 2 combo boxes to select the
semester and year. It worked well at that point. Which leads me to believe
(although I may be mistaken) that it is the

What’s *supposed* to happen is as soon as I choose a key code from the combo
box the text, “Pendingâ€, appears in txtPending. When the request is filled
and I tab or click into txtRqstDate, which is hidden under txtPending, the
words “Pending†disappear and I am able to input a date. When the control
loses the focus, the back color of the control changes from blue to white and
the font changes from red to black.
Why are you putting criteria text boxes in the subform and not in the main form?

I’m not quite sure I understand what you mean here. I think I failed to
mention a couple of things that hopefully will give you a better picture. See
below.
What is in your main, sub1 and sub2?

frmKeyRequests –

Controls in the form header

cboSemester (unbound) cboYear (unbound)

Hidden text boxes

txtRqstStartDate
Control source =CDate([cboSemester].column(1) & [cboYear])

txtRqstEndDate
Control source =CDate([cboSemester].column(2) & [cboYear])
**************************************************

Detail Section
sfrmKeyRequestsNew (sub 1)

sfrmKeyRequestExisting (sub 2)

Both contain the following controls:
cboKeyID cboEmployee txtRqstDate txtQtyRequested txtPending (over
txtRcvdDate) txtQtyRecd txtReason cmdUpdate cmdDelete

Control Source for:
txtPending is [Pending] which is based on this statement:
Pending: IIf(IsNull([RcvdDate]),"Pending",Null)

txtRcvdDate is [RcvdDate]

The only event procedure for the form is the GotFocus event previously posted.

I also forgot to mention that frmKeyRequests is a form on a tabbed control
(frmMain). I don’t know if that matters but just in case…I hope this explains
things a little better.

--
Aria W.


Linq Adams via AccessMonster.com said:
The only code you've posted that involves txtRcvdDate is setting focus to it
so I see nothing there that can really be affecting input. As Karl said, what
exactly is happening? Are you getting error messages, or can you simply not
physically add anything?

If the later, what is in the Control Source for txtRcvdDate? If you have a
formula or a reference to the comboboxes, something that starts with an equal
sign, such as

=Yada, yada, yada

then that is your problem. You cannot enter data into a control that has a
calculation set as the Control Source.

If the former, what error message/number is being popped?

--
There's ALWAYS more than one way to skin a cat!

Answers/posts based on Access 2000/2003

Message posted via AccessMonster.com


.
 
Ad

Advertisements

A

Aria

No, I am *not* trying to enter data in the wrong object. Remember, I
previously stated that it was working as expected before I changed it to the
2 subforms to add data at the top. When it was working, the combo boxes for
semester and year were already in place but I just had one row of controls on
the form instead of the 2 subforms.
--
Aria W.


KARL DEWEY said:
I could only hear a beep when trying to input a date into [RcvdDate]. This
is the control where [Pending] is superimposed over txtRcvdDate.
Apparently you are trying to enter data in the wrong object.

--
Build a little, test a little.


Aria said:
Unfortunately, the revision to the WHERE clause did not change the outcome.
But I neglected to answer some of your earlier questions so I’ll try to
correct that now.
Does it display the typed entry?

No, nothing but the original “Pending†text is displayed. I could only hear
a beep when trying to input a date into [RcvdDate]. This is the control where
[Pending] is superimposed over txtRcvdDate. I took another look at home and
discovered there *is* a message in the status bar which says, “Field
‘Pending’ is an expression and cannot be editedâ€. I was not able to see the
status bar on my work computer. BTW, the Enabled property is set to “Yes†and
the Locked property is set to “No†for the form and all sub forms.

Again, the only changes have been the combo boxes for the semester and year
and the 2 subforms to add data at the top. In researching where the problem
first appeared, I went back 2 versions ago to look at a test copy of the db.
It didn’t contain the 2 subforms (sfrmKeyRequestsNew and
sfrmKeyRequestsExisting) but did have the 2 combo boxes to select the
semester and year. It worked well at that point. Which leads me to believe
(although I may be mistaken) that it is the

What’s *supposed* to happen is as soon as I choose a key code from the combo
box the text, “Pendingâ€, appears in txtPending. When the request is filled
and I tab or click into txtRqstDate, which is hidden under txtPending, the
words “Pending†disappear and I am able to input a date. When the control
loses the focus, the back color of the control changes from blue to white and
the font changes from red to black.
Why are you putting criteria text boxes in the subform and not in the main form?

I’m not quite sure I understand what you mean here. I think I failed to
mention a couple of things that hopefully will give you a better picture. See
below.
What is in your main, sub1 and sub2?

frmKeyRequests –

Controls in the form header

cboSemester (unbound) cboYear (unbound)

Hidden text boxes

txtRqstStartDate
Control source =CDate([cboSemester].column(1) & [cboYear])

txtRqstEndDate
Control source =CDate([cboSemester].column(2) & [cboYear])
**************************************************

Detail Section
sfrmKeyRequestsNew (sub 1)

sfrmKeyRequestExisting (sub 2)

Both contain the following controls:
cboKeyID cboEmployee txtRqstDate txtQtyRequested txtPending (over
txtRcvdDate) txtQtyRecd txtReason cmdUpdate cmdDelete

Control Source for:
txtPending is [Pending] which is based on this statement:
Pending: IIf(IsNull([RcvdDate]),"Pending",Null)

txtRcvdDate is [RcvdDate]

The only event procedure for the form is the GotFocus event previously posted.

I also forgot to mention that frmKeyRequests is a form on a tabbed control
(frmMain). I don’t know if that matters but just in case…I hope this explains
things a little better.

--
Aria W.


Linq Adams via AccessMonster.com said:
The only code you've posted that involves txtRcvdDate is setting focus to it
so I see nothing there that can really be affecting input. As Karl said, what
exactly is happening? Are you getting error messages, or can you simply not
physically add anything?

If the later, what is in the Control Source for txtRcvdDate? If you have a
formula or a reference to the comboboxes, something that starts with an equal
sign, such as

=Yada, yada, yada

then that is your problem. You cannot enter data into a control that has a
calculation set as the Control Source.

If the former, what error message/number is being popped?

--
There's ALWAYS more than one way to skin a cat!

Answers/posts based on Access 2000/2003

Message posted via AccessMonster.com


.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top