Hi, I am new to vb and i am having a few problems. I am creating a language translator. I have succeeded in making this work in a prototype but when i do the same thing in a multiple form project it doesn't work.When i click on a word in the combo box it does not change to the relevant word as in the protype. The data control is pointed to the database and the recordsource is pointed to the language table.The label is pointed the data control and its datafield is pointed to the relevant language, french,spanish etc. Initially the database (Access) could not be found untill i coverted it. Is that the problem? Do i need to do something different for multiple forms?Also, why does the combo box retain old data when the record is changed in the database. Please explain fully as this is new ground for me. Their are 4 forms for 4 languages and you reach each form by a command button from the main page the code is below. Thanks ===================================== Dim db As Database
Dim rs As Recordset
Private Sub Combo1_Click()
Data3.RecordSource = "select * from language where English= '" & Combo1.Text & "'"
Data3.Refresh
End Sub
Private Sub Command2_Click()
Form3.Show
Form1.Hide
End Sub
Private Sub Form_Load()
Set db = DBEngine.OpenDatabase("C:\My Documents\Main Laguage .mdb"
Set rs = db.OpenRecordset("select English from language"
Combo1.Clear
If rs.RecordCount <> 0 Then
Do While Not rs.EOF
Combo1.AddItem rs("English"
rs.MoveNext
Loop
End If
db.Close
Set db = Nothing
End Sub
Private Sub Command1_Click()
frmMainTravel.Show
Form1.Hide
End Sub
Dim rs As Recordset
Private Sub Combo1_Click()
Data3.RecordSource = "select * from language where English= '" & Combo1.Text & "'"
Data3.Refresh
End Sub
Private Sub Command2_Click()
Form3.Show
Form1.Hide
End Sub
Private Sub Form_Load()
Set db = DBEngine.OpenDatabase("C:\My Documents\Main Laguage .mdb"
Set rs = db.OpenRecordset("select English from language"
Combo1.Clear
If rs.RecordCount <> 0 Then
Do While Not rs.EOF
Combo1.AddItem rs("English"
rs.MoveNext
Loop
End If
db.Close
Set db = Nothing
End Sub
Private Sub Command1_Click()
frmMainTravel.Show
Form1.Hide
End Sub