[lamsen]

guys what should I do?
I have a project with .ocx, I need to present it in our school,
but when I open my project in our school's pc even if the .ocx is in the same folder, it's not working,
Need some help, I don't want to remake my project without the ocx, I spend a lot of time making this project T_T

[WiFi COMPUTER SYSTEM]

You Can Create Setup Of Your Project with the help Of Package and Deployment Wizard.The Package And Deployment Wizard can Contain all Files of Your Project including .OCX file.

[lamsen]

I'll try your suggestion, thanks for the tip mister

[lamsen]

any other suggestion?

[Neku]

what you need to do is to register the file.
i would recommand Install Creator, its a free, easy and safer than package&Deploy wizard.
when you make install file to your program it would automatically register any ocx,dll and any other kind of file needed to your program.

you could register it without making install file: press start->run and write
regsvr32.exe - filepath
filepath is the full path to the ocx or dll you want to register, example: C:\some folder\file.ocx

bare in mind this option may not always work and if the file is removed or placed in different location your program wont run.

[lamsen]

I use PDW and its now working,

can you guys help me again,
with this

Private Sub Label18_Click()
If rsevaluate.RecordCount > 0 Then
    G8.Execute "Delete from Evaluate"
    rsevaluate.Update
End If
With rsevaluate
If Check1.Value = 1 Then
    .AddNew
    .Fields(0) = Label22.Caption
    .Fields(1) = Label32.Caption
    .Fields(2) = Label42.Caption
    .Update
End If

If Check2.Value = 1 Then
    .AddNew
    .Fields(0) = Label23.Caption
    .Fields(1) = Label33.Caption
    .Fields(3) = Label53.Caption
    .Update
End If

If Check3.Value = 1 Then
    .AddNew
    .Fields(0) = Label24.Caption
    .Fields(1) = Label34.Caption
    .Fields(2) = Label44.Caption
    .Update
End If

If Check4.Value = 1 Then
    .AddNew
    .Fields(0) = Label25.Caption
    .Fields(1) = Label35.Caption
    .Fields(2) = Label45.Caption
    .Update
End If

If Check5.Value = 1 Then
    .AddNew
    .Fields(0) = Label26.Caption
    .Fields(1) = Label36.Caption
    .Fields(3) = Label56.Caption
    .Update
End If

If Check6.Value = 1 Then
    .AddNew
    .Fields(0) = Label27.Caption
    .Fields(1) = Label37.Caption
    .Fields(2) = Label47.Caption
    .Update
End If

If Check7.Value = 1 Then
    .AddNew
    .Fields(0) = Label28.Caption
    .Fields(1) = Label38.Caption
    .Fields(3) = Label48.Caption
    .Update
End If

If Check8.Value = 1 Then
    .AddNew
    .Fields(0) = Label29.Caption
    .Fields(1) = Label39.Caption
    .Fields(2) = Label49.Caption
    .Update
End If

If Check9.Value = 1 Then
    .AddNew
    .Fields(0) = Label30.Caption
    .Fields(1) = Label40.Caption
    .Fields(2) = Label50.Caption
    .Update
End If

If Check10.Value = 1 Then
    .AddNew
    .Fields(0) = Label31.Caption
    .Fields(1) = Label41.Caption
    .Fields(2) = Label51.Caption
    .Update
End If
End With

Dim rs As New ADODB.Recordset
Set DataReport2.DataSource = Nothing
Set rs = G8.Execute("SELECT Code, LecUnits, LabUnits, CompUnits, Description FROM Evaluate")
Set DataReport2.DataSource = rs
DataReport2.Show vbModal
End Sub

i keep getting "operation is not allowed when the object is open." error
thanks in advance!

[DimitriV]

I think it's the if's inside the With statement. Probably needs to be reversed (If <thing> Then
With
End With
End If)

[lamsen]

like this?

If Check10.Value = 1 Then
With rsevaluate
    .AddNew
    .Fields(0) = Label31.Caption
    .Fields(1) = Label41.Caption
    .Fields(2) = Label51.Caption
    .Update
    End With
End If

still getting the error

[maj3091]

Perhaps if you highlighted which line causes you the error, then you might get a more specific answer.

[BobRodes]

It's a little hard to tell when you don't tell us where the error is.