Thanks Larry here are the info that might help in understanding the
problem.
(a) what version of Access you are using ------------ MS Access 2003
b) whether you are using an Access MDB/MDE with ODBC linked tables in
MS
SQL Server --------------- YES
c) whether you generated the ComboBox to find a record using the Combo
Box
wizard, or whether you wrote the code yourself. Following is the code
of my Combo Box AfterUpdate Event
Dim rs As Object
Dim frmFinding As Form_frmFinding
Set rs = Me.Recordset.Clone
rs.FindFirst "[FINDG_STD_ID] = " & Str(Nz(Me![Combo48], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
[Form_frmFinding]![PLCY1] = DLookup("[PLCY1]", "dbo_STD_FINDG",
"[FINDG_STD_ID] = " & Me.Combo48)
[Form_frmFinding]![PLCY2] = DLookup("[PLCY2]", "dbo_STD_FINDG",
"[FINDG_STD_ID] = " & Me.Combo48)
[Form_frmFinding]![PLCY3] = DLookup("[PLCY3]", "dbo_STD_FINDG",
"[FINDG_STD_ID] = " & Me.Combo48)
[Form_frmFinding]![PLCY4] = DLookup("[PLCY4]", "dbo_STD_FINDG",
"[FINDG_STD_ID] = " & Me.Combo48)
[Form_frmFinding]![PLCY5] = DLookup("[PLCY5]", "dbo_STD_FINDG",
"[FINDG_STD_ID] = " & Me.Combo48)
[Form_frmFinding]![PLCY6] = DLookup("[PLCY6]", "dbo_STD_FINDG",
"[FINDG_STD_ID] = " & Me.Combo48)
[Form_frmFinding]![PLCY7] = DLookup("[PLCY7]", "dbo_STD_FINDG",
"[FINDG_STD_ID] = " & Me.Combo48)
[Form_frmFinding]![PLCY8] = DLookup("[PLCY8]", "dbo_STD_FINDG",
"[FINDG_STD_ID] = " & Me.Combo48)
[Form_frmFinding]![PLCY9] = DLookup("[PLCY9]", "dbo_STD_FINDG",
"[FINDG_STD_ID] = " & Me.Combo48)
[Form_frmFinding]![URL1] = DLookup("[URL1]", "dbo_STD_FINDG",
"[FINDG_STD_ID] = " & Me.Combo48)
[Form_frmFinding]![URL2] = DLookup("[URL2]", "dbo_STD_FINDG",
"[FINDG_STD_ID] = " & Me.Combo48)
[Form_frmFinding]![URL3] = DLookup("[URL3]", "dbo_STD_FINDG",
"[FINDG_STD_ID] = " & Me.Combo48)
[Form_frmFinding]![URL4] = DLookup("[URL4]", "dbo_STD_FINDG",
"[FINDG_STD_ID] = " & Me.Combo48)
[Form_frmFinding]![URL5] = DLookup("[URL5]", "dbo_STD_FINDG",
"[FINDG_STD_ID] = " & Me.Combo48)
[Form_frmFinding]![URL6] = DLookup("[URL6]", "dbo_STD_FINDG",
"[FINDG_STD_ID] = " & Me.Combo48)
[Form_frmFinding]![URL7] = DLookup("[URL7]", "dbo_STD_FINDG",
"[FINDG_STD_ID] = " & Me.Combo48)
[Form_frmFinding]![URL8] = DLookup("[URL8]", "dbo_STD_FINDG",
"[FINDG_STD_ID] = " & Me.Combo48)
[Form_frmFinding]![URL9] = DLookup("[URL9]", "dbo_STD_FINDG",
"[FINDG_STD_ID] = " & Me.Combo48)
[Form_frmFinding]![CATG1] = DLookup("[CATG1]", "dbo_STD_FINDG",
"[FINDG_STD_ID] = " & Me.Combo48)
[Form_frmFinding]![CATG2] = DLookup("[CATG2]", "dbo_STD_FINDG",
"[FINDG_STD_ID] = " & Me.Combo48)
[Form_frmFinding]![CATG3] = DLookup("[CATG3]", "dbo_STD_FINDG",
"[FINDG_STD_ID] = " & Me.Combo48)
[Form_frmFinding]![CATG4] = DLookup("[CATG4]", "dbo_STD_FINDG",
"[FINDG_STD_ID] = " & Me.Combo48)
[Form_frmFinding]![CATG5] = DLookup("[CATG5]", "dbo_STD_FINDG",
"[FINDG_STD_ID] = " & Me.Combo48)
[Form_frmFinding]![CATG6] = DLookup("[CATG6]", "dbo_STD_FINDG",
"[FINDG_STD_ID] = " & Me.Combo48)
[Form_frmFinding]![CATG7] = DLookup("[CATG7]", "dbo_STD_FINDG",
"[FINDG_STD_ID] = " & Me.Combo48)
[Form_frmFinding]![CATG8] = DLookup("[CATG8]", "dbo_STD_FINDG",
"[FINDG_STD_ID] = " & Me.Combo48)
[Form_frmFinding]![CATG9] = DLookup("[CATG9]", "dbo_STD_FINDG",
"[FINDG_STD_ID] = " & Me.Combo48)
FootNotes:
Form Name = frmNewFinding(Master) , Table Name = STD_FINDG, PK =
FINDG_STD_ID (The data in this table is static)
SubForm Name = frmFinding(Child), Table Name = FINDG, PK = FINDG_NO, FK
= FINDG_STD_ID (The data is not static instead the data is coming from
Table (STD_FINDG) and saving into Table (FINDG).
Linked Fields:
FINDG_STD_ID;FINDG_NME;OWASP_CLS;SANS_TOP10;CVE_NO;RSK_GUIDE;STD_RSK;STD_IMPC;STD_LIKLIHOOD;SMRY;CMNT;RCMN;RSK_DESC;SYS_ID
I know i have too many linked fields but thats the only way its
working, if i just put FINDG_STD_ID as linked field, it doesnt populate
the rest of the fields.
The exact wording of the error is "Microsoft Access has encountered a
Problem, sorry for inconinience, Repair Database, Send Report or Dont
Send Report" This is a little popup form that apears.
I hope this information would help you finding the right solution for
me.