I'm still not clear, I added records, and saved them, but why I open the database, the form was showing nothing, It just looks like I added records are all disappeared. Can you explain it.
Thanks:)
No. I have solved problem. The reason for it is because I selected Open Form in Add Mode when I create Switchboard. Now I change to Open Form in Edit Mode. It's working now. But I'm still thinking why I select Open Form in Add Mode does not allow me to save I added record. Do you have any idea...
I have problem with code of search data by date range. The code works well with Access 2003, but not working for Access 2007. When I run the code with Access 2007, the message box shows 'run time error: 13, error type mismatch (see highlighted error below). The entire code is as follows...
I'm trying to print a report by filter any word which is contained in a contract reference range. I create a form name as "frmWhatContractRef", and I added a unbound text box on the form and a command button named as cmdPreview on the form. The code:
Private Sub cmdPreview_Click()
'On...
Hi
I created a subform which contains a total field for cost of each item. The total = [Quantity]*[UnitPrice]*(1-[Discount]/100). The subform name is subfPurchaseOrders
I also created unbound Total cost which Sum up all items cost at subform footer
Total Cost = Sum([Total])
I'm trying to...
Sorry Paul,
Original work is still there. I opened another new DB, and I'm trying to install a filter on the form, rather than open "querySearch". My intention is filter out specific OrderID from Form, and print out information with the OrderID ie current Form.:)
Hi Paul
I updated my code. I'm trying to open Form, not "querySearch". I changed all "querySearch" to Form "ABSOrder", and deleted "Where", Added FieldName =123. Now there is an error: Run time error '3265s' Item not found in this collection.
Can you have a look the updated code below...
Hi Paul
I use another approach to filter out Autonumber, for some reason it's no any reaction when I click Search Button. Can you have a look what is missing from it.
Private Sub CmdSearch_Click()
Dim txtOrderID As String
Dim filterString As String
If IsNull(Me.txtOrderID) Then
MsgBox "...
Hi Paul
I have changed errors which you indicated. I also changed table name. The errors are disappear, however, it's still not working. Can you have a look the following updated code:
Private Sub CmdSearch_Click()
Dim qdf As DAO.querydef
Dim LSQL As String
Dim Numb As Integer...