Have you tried a compact and repair? John

Please show us your code.

-Raymond

Julius like Raymond said, if we can't see your code, we can't tell what's wrong. :)

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

It sounds to me like your AskOpenAI is not returning info.  Have you maxed out your API calls?

-Raymond

How do I check on that?

I checked API usage. I'm ok.

Besides, as stated above, the GetMacrosBtn retrieves the information and briefly prints it to the FoodF.

The easiest way to tell is to message box it as soon as the response comes in, so you can see what data you're getting back.

I msgbox Calories and it returned INVALID USE OF NULL

OK. Now MsgBox the response you get from the AI before you try to parse the values out. What does that give you?

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)
    MsgBox S
    
        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

S is empty

Well, there you go. Now you've got to figure out why your ask OpenAI function is returning nothing. Now we gotta dig into that, trace into that, and see what's going on there, see what the API is returning.

Private Function BuildBody(UserContent As String, SystemMessage As String) As String

    Dim SM As String, UC As String, S As String
    
    SM = DoCharSubst(SystemMessage)
    
    UC = DoCharSubst(UserContent)
    UC = FilterCharacters(UC, ALPHANUMERIC & "{} [] . , : ""'() ! @$%&*-_+=;<>?\", " ")
    
    S = "{""model"": """ & MODEL & """," & _
        """messages"": [{""role"": ""system"",""content"":  """ & SM & """}, " & _
                                  "{""role"": ""user"",""content"": """ & UC & """}]}"
                                  
    BuildBody = S
        MsgBox S
        
End Function

At this point S has the information.  I cannot find where S gets emptied b4 it fills out the FoodF

At this point, I think you're missing the fundamentals of how the whole AI system works. Why don't you go back and re-watch my OpenAI introduction video?