John,
I have been waiting for your reply. Now after 3-4 days i have to enter data for new Consignment but i am stuck on the form as i cannot move to Detail section of the form to enter data.
In the mean while waiting for your reply i have been trying and looking for any possible way to overcome this new issue. One thing i may mention that this is causing now when we made Pkey of tbl CollectionVoucher:
ConsignmentNo
ClientCIN
CartonNo
CartonSuffix
Before this i was making data entry on this form.
Now i tried this on the Control cmbSetRate
Private Sub cmbSetRate_AfterUpdate()
If Not IsNull(Me.cmbSetRate) Then
' Apply a filter
Me.Filter = "Rate = " & Me.cmbSetRate
Me.FilterOn = True
End If
'Me.Rate = cmbRate <==== Stopped this line of code
DoCmd.GoToRecord , , acLast
CartonNo.SetFocus
End Sub
Then i move to Detail Section of the Form on the Control CartonNo, but unable to move to new record for data entry, on the Navigation Buttons New Record icon is disabled.
-------------------------
Second situation is if i change the line DoCmd GoToRecord, , acNewRec as below
Private Sub cmbSetRate_AfterUpdate()
If Not IsNull(Me.cmbSetRate) Then
' Apply a filter
Me.Filter = "Rate = " & Me.cmbSetRate
Me.FilterOn = True
End If
'Me.Rate = cmbRate
DoCmd.GoToRecord , , acNewRec
CartonNo.SetFocus
End Sub
I get an error message 'You can't go to the specified record.
---------------------------
Third situation is that if i remove After Update event of cmbSetRate i am floating on the (Sub Form's) Form Header form Tab Index 0 to 6.
Please help.
Khalid
On Monday, November 3, 2014 2:41 PM, "Khalid Tanweer khalidtanweerburrah@yahoo.com [MS_Access_Professionals]" <MS_Access_Professionals@yahoogroups.com> wrote:
John,
Rate is in the Detail section of Sub Form and cmbRate is on Form Header of Sub Form.
Khalid
On Monday, November 3, 2014 2:06 PM, "John Viescas JohnV@msn.com [MS_Access_Professionals]" <MS_Access_Professionals@yahoogroups.com> wrote:
Khalid-
Where is Rate defined? It's not in the Record Source. The Record Source appears to be updatable.
John Viescas, Author
Microsoft Access 2010 Inside Out
Microsoft Access 2007 Inside Out
Microsoft Access 2003 Inside Out
Building Microsoft Access Applications
SQL Queries for Mere Mortals
(Paris, France)
On Nov 3, 2014, at 9:28 AM, Khalid Tanweer khalidtanweerburrah@yahoo.com [MS_Access_Professionals] <MS_Access_Professionals@yahoogroups.com> wrote:
John,
Record Source of Form is query:
SELECT [Consignment Number].ConsignmentNo, [Consignment Number].ExportDocs
FROM [Consignment Number]
ORDER BY [Consignment Number].ConsignmentNo;
Khalid
On Monday, November 3, 2014 1:07 PM, "John Viescas JohnV@msn.com [MS_Access_Professionals]" <MS_Access_Professionals@yahoogroups.com> wrote:
Khalid-
What is the Record Source of the form? The SQL, please, if it is a query.
John Viescas, Author
Microsoft Access 2010 Inside Out
Microsoft Access 2007 Inside Out
Microsoft Access 2003 Inside Out
Building Microsoft Access Applications
SQL Queries for Mere Mortals
(Paris, France)
On Nov 3, 2014, at 8:50 AM, Khalid Tanweer khalidtanweerburrah@yahoo.com [MS_Access_Professionals] <MS_Access_Professionals@yahoogroups.com> wrote:
Hi All,
I have a Form "Collection Voucher" having sub form "CollectionVouchersubform", while data entry on the sub form's Header there is an unbound control "cmbSetRate". When i enter data on it an error message displays:
Run-time error '-2147352567 (80020009)':
This Recordset is not updateable
After clicking the Debug button, i see:
Private Sub cmbSetRate_AfterUpdate()
If Not IsNull(Me.cmbSetRate) Then
' Apply a filter
Me.Filter = "Rate = " & Me.cmbSetRate
Me.FilterOn = True
End If
Rate = cmbRate <--------------- ERROR COMING ON THIS LINE
DoCmd.GoToRecord , , acNewRec
CartonNo.SetFocus
End Sub
Need help please.
Khalid
__._,_.___
Posted by: Khalid Tanweer <khalidtanweerburrah@yahoo.com>
| Reply via web post | • | Reply to sender | • | Reply to group | • | Start a New Topic | • | Messages in this topic (7) |
.
__,_._,___
Tidak ada komentar:
Posting Komentar