Fitness Get Macros Btn Fails - Microsoft Access Forum


	Back to Access Forum Comments List

Upload Images @Reply Bookmark Link Email Next Unseen

Fitness Get Macros Btn Fails

Julius Cunningham

23 hours ago

I have done all Fitness lesson through 73.

Now the Get Macros button on FoodF does not input the data for the Calories, Fat etc.  I know the process is working because it prints to the FoodF briefly. then disappears.  If I go to an food item that already has the Calories et al, the Get Macros button erases the entries.  I hear a beep after each type of entry.

I can manually input the information and it is saved and everything is normal.

I have checked the underlying codes and modules.  Everything appears to be ok.  Thanks in advance.

	John Davy @Reply 20 hours ago
Have you tried a compact and repair? John

	Raymond Spornhauer @Reply 2 hours ago
Please show us your code. -Raymond

	Richard Rost @Reply 2 hours ago
Julius like Raymond said, if we can't see your code, we can't tell what's wrong. :)

Julius Cunningham OP @Reply

111 minutes ago

Private Sub GetMacrosBtn_Click()

    If IsNull(FoodID) Then Exit Sub
    If Not IsFood Then Exit Sub
    If Not HasFoodGroup() Then Exit Sub

    'If Not AreYouSure("Look up nutrient values from OpenAI?") Then Exit Sub

    Dim S As String
    Me.Dirty = False 'Refreshes the record

    S = AskOpenAI("Please give me the nutrition data for: " & Description, 1)

        Calories = FindBetween(S, "[Calories]", "[/Calories]")
        Fat = FindBetween(S, "[Fat]", "[/Fat]")
        Carb = FindBetween(S, "[Carb]", "[/Carb]")
        Fiber = FindBetween(S, "[Fiber]", "[/Fiber]")
        TotalSugar = FindBetween(S, "[TotalSugar]", "[/TotalSugar]")
        Cholesterol = FindBetween(S, "[Cholesterol]", "[/Cholesterol]")
        Protein = FindBetween(S, "[Protein]", "[/Protein]")
        Sodium = FindBetween(S, "[Sodium]", "[/Sodium]")
       Me.Dirty = False 'Refresh the record

End Sub

	Raymond Spornhauer @Reply 92 minutes ago
It sounds to me like your AskOpenAI is not returning info. Have you maxed out your API calls? -Raymond

Next Unseen

New Feature: Comment Live View