The attached screenshots are what I am trying to get the form to populate.  Ive other issues, but this hurdle is the one I've been trying to tackle first.

You don't show us any or the code for your form.   It doesn't show us how the fields are on the form to fill in.
Typically you have to do something like City = City from the data source.
Is this an unbound form or is it tied to a record set?

Go check out the ZIP Code Lookup video.  That gives a pretty good example of you to fill in your forms fields.
I'm sure there are more examples but that one is good to start.  I'll try and remember some others and point you to them.

You are missing some And keywords and some double quotes.

StudentID = Nz(DLookup("StudentID", "TDCJ=""" & TDCJAdd & """ And LastName=""" & LastNameAdd & """ And FirstName=""" & FirstNameAdd & """"), 0)

Tried the code with And an a extra quote and the same problem.  This is on the add new student form code.

Just noticed the Table name is missing. The second parameter of your DLookup should be a Table or Query name.

DLookup

For the form of existing students, the search fields are unbound.  I don't know how to get the StudentQ (see screenshot) to populate the ExistingStudentF)

I have modified the form to be both a search for existing students and for entering new students. It works well, except when I blank the fields for a new lookup or exit to the main form.  Doing so, it writes another record to the database with blank fields except for the TDJC number in the table.

I've tried blanking the fields such as TDJC ="", LastName="", etc on the Next Student button.  That works intermittently, can't seem to determine the reason for it.

Is there a way to only get 1 record from looking up an existing student, and more importantly if I add a new student I get only 1 record written?

Below is my code adapted from the zipcode lookup lesson.

Screenshots to follow.

Much Thx



________________________________________________________________________


Private Sub FindStudentBtn_Click()
  
    Dim StudentID As Long
    Dim sTDCJ As String, sLastName As String, sFirstName As String, sDateofBirth As String, sUnit As String, sAddress As String, _
    sCity As String, sState As String, sZIP As String
    Dim SQL As String
    
    StudentID = Nz(DLookup("StudentID", "StudentT", "TDCJ=""" & TDCJ & """"), 0)
                              
    If StudentID > 0 Then
      ' TDJC Number found, ask below
            TDCJ = DLookup("TDCJ", "StudentT", "StudentID=" & StudentID)
            LastName = DLookup("LastName", "StudentT", "StudentID=" & StudentID)
            FirstName = DLookup("FirstName", "StudentT", "StudentID=" & StudentID)
            DateofBirth = DLookup("DateofBirth", "StudentT", "StudentID=" & StudentID)
            Unit = DLookup("Unit", "StudentT", "StudentID=" & StudentID)
            Address = DLookup("Address", "StudentT", "StudentID=" & StudentID)
            City = DLookup("City", "StudentT", "StudentID=" & StudentID)
            State = DLookup("State", "StudentT", "StudentID=" & StudentID)
            State = UCase(State)
            ZIP = DLookup("Zip", "StudentT", "StudentID=" & StudentID)

    Else
    
        ' TDJC Number not found, ask for info
          MsgBox "Student Not Found, Enter Information in blanks to follow !!"
        
            sTDCJ = InputBox("Enter TDCJ # (8 Digits ONLY)")
            sLastName = InputBox("Enter Last Name")
            sFirstName = InputBox("Enter First Name")
            sDateofBirth = InputBox("Enter Date of Birth (FORMAT - XX/DD/YYYY)")
            sUnit = InputBox("Enter Unit")
            sAddress = InputBox("Enter Address")
            sCity = InputBox("Enter City")
            sState = InputBox("Enter State")
            sState = UCase(sState)
            sZIP = InputBox("Enter ZIP")

            TDCJ = sTDCJ
            LastName = sLastName
            FirstName = sFirstName
            DateofBirth = sDateofBirth
            Unit = sUnit
            Address = sAddress
            City = sCity
            State = sState
            ZIP = sZIP
          
            SQL = "INSERT INTO StudentT ( TDCJ, LastName, FirstName, DateofBirth, UNIT, Address, City, State, ZIP ) " & _
                    "SELECT """ & sTDCJ & """, """ & sLastName & """, """ & sFirstName & """, """ & sDateofBirth & """, """ & sUnit & """, """ & _
                    sAddress & """, """ & sCity & """, """ & sState & """, """ & sZIP & """"
            
          
            DoCmd.RunSQL SQL
    End If
        
        
End Sub

Private Sub Form_Load()
    
    TDCJ.SetFocus
    
End Sub

Private Sub MainMenuF_Click()
    
    DoCmd.Close acForm, "ExistingStudentF"
    DoCmd.OpenForm "MainMenuF"

End Sub

The screenshots are as follows:

Blank Form
Existing Student
New Student
Duplicate Table Entry After Exiting to Main Form.