Search results

  1. G

    Restart Database

    Hello my friends, First of all I would like to wish a Merry Christmas and Happy New Year 2020. Through the forum I found the attached database which includes one module that helps Restart the existing database and works fine. However, when I tried to include the module in my own database it...
  2. G

    error 3340 ‘Query is corrupted

    Check my attached image on Post 7
  3. G

    error 3340 ‘Query is corrupted

    See post 7
  4. G

    error 3340 ‘Query is corrupted

    Hello my friends, First of all I would like to say that unfortunately in these cases we rely on Microsoft itself which is really indifferent to whatever problems it may cause to any users who have an Access application either in their business or even for personal use. Personally, till now i...
  5. G

    error 3340 ‘Query is corrupted

    Ηι, See this important notice directly from Microsoft
  6. G

    Access bug on Update queries

    Hey, DO NOT make anything..!!! After the last window 10 update, something happened to ms office 2016 pack. The only way to fix the problem is to uninstall and re-install the office pack..
  7. G

    Moving Access Database to OneDrive

    HI, its is really bad idea for multi use (18 person).! Since many years i made some testing and always i have many - many problems for multi use purposes. You always have the problem "Conflicted copy" and you will loose data..
  8. G

    DLookup with criteria into vba

    For those interested, I solved the problem as follows Private Sub txtOrder_Click() Dim SubID As String Dim OrderStatus As String Dim OrderCode As String Dim conStr As String ' Check if the order exist If (DLookup("Supplier_id", "CONSUMABLE ORDERS", "[Supplier_id]=" &...
  9. G

    DLookup with criteria into vba

    My friends, I want to make clear what I need to do 1. The first issue is to check into ORDER table if an order with Supplier_id has already been created so that I don't create a new order for the same supplier. 2. All created orders in the ORDER table have an Order Status so that to know which...
  10. G

    DLookup with criteria into vba

    theDBguy after than (if it works for me) i must take the OrderID from the Table ORDERS which the criteria are correct
  11. G

    DLookup with criteria into vba

    Yeap, correct..!!
  12. G

    DLookup with criteria into vba

    Dear arnelgp first of all i would like to thank you very much for your help. But, still i have error (see picture). Can you please check it? Thanks again
  13. G

    DLookup with criteria into vba

    Good Evening, I'm trying to write a DLookup code with AND criterion but unfortunately i cannot. The code must look into Order table if the Supplier_id code exist, and then, to gives the OrderID related to the supplier_id with Status: 4 only. The second problem after the above issue, is I would...
  14. G

    Calculate the age

    Morning, Yes, is working perfect but needs some changes which i must inform you later on...Anyway, is wonderful example thanks again for your time
  15. G

    Calculate the age

    Was just some examples without any meanings..
  16. G

    Calculate the age

    Hi, The comma is requirement
  17. G

    Calculate the age

    I would like to thanks all for the helping....I will try to find a way to modify the vba code as you suggest. thanks
  18. G

    Calculate the age

    Yes, i changed the function name Option Compare Database Public Function xcalcAge(DOB As Date, Optional DateAdded As Date = 0) As String Dim Year1 As Integer Dim Month_1 As Integer Dim Day1 As Integer Dim temp As Date If DateAdded = 0 Then DateAdded = Date temp...
  19. G

    Calculate the age

    I've made some corrections to the code and shown data to the query but no age results
  20. G

    Calculate the age

    Hello again and I apologize for the inconvenience because of my little knowledge on vba, I tried all but i'm getting error into query. Following is the modified code as well Option Compare Database Public Function xcalcAge(DOB As Date, Optional DateAdded As Date = 0) As String Dim...
Back
Top Bottom