Dear Kenneth, The sheet actually exist, i'am trying to search data with cmdCari Command Button with where the key is in txtContNo Text Box, Actually i was interested use select or other SQL Statement, but don't have any references. Do you / any guys have it. Coz i really need it

Best Regards, Ahmad Rifai Yusuf

Dear all, I'am trying to build a search program using Excel 2003 Macro, i have trouble when i click this command always shown this message : "Run Time Error '1004': Application-defined or object-defined error". Need your help to check where the wrong syntax code of my program,

Private Sub cmdCari_Click()
Set wsDtbsCont = Sheets("DataContainer")
Set rgDtbsCont = wsDtbsCont.Range("DataContainer")
Set c = rgDtbsCont.Find(txtContNo.Value, LookIn:=xlValues)
txtCarrier.Value = c.Offset(0, 1).Value
cmbForwarder.Value = c.Offset(0, 2).Value
txtSeal.Value = c.Offset(0, 3).Value
txtStatus.Value = c.Offset(0, 4).Value
txtArrivalTime.Value = c.Offset(0, 5).Value
txtStuffingTime.Value = c.Offset(0, 6).Value
txtSealTime.Value = c.Offset(0, 7).Value
txtFreeTime.Value = c.Offset(0, 8).Value
txtOverNight.Value = c.Offset(0, 9).Value
End Sub

thank you for every things..

Best Regards, Ahmad Rifai Yusuf

Dear all, Here I attach my Visual Basic Code for Combo Box Control runs in Microsoft Excel Macro, but once the object is run and I click this object control the item will increase continuaously. Wheather any of you who can asisst me solve this problem..? :cool::cool:

Private Sub ComboBox1_Change()
ComboBox1.AddItem "SIDM"
ComboBox1.AddItem "BIJ"
ComboBox1.AddItem "M1D"
ComboBox1.AddItem "THERESA"
ComboBox1.AddItem "YS"
ComboBox1.AddItem "OPTION"
End Sub

Best Regards, Ahmad Rifai Yusuf

Any body know how to run application of Visual Basic 2005/2008 Express Edition when computer start up....? :-D

Best Regards, Ahmad Rifai Yusuf

Hi Guys...! Any body know..., how to manage installation files package in visual basic 2005 express edition...? Thanks at all ;)

Best Regards, Ahmad Rifai Yusuf

Hello everybody...! Anybody can tell me how should start TIMER from "00:00:00" ...? Thank you ...! :-D :-D :-D

Best Regards, Ahmad Rifai Yusuf

I have problem with this Code I want to display stopwath in the textbox with format "h:m", but it cannot run....! :doh: Any body can make this Code perfect...? Dim timePerParse As Stopwatch Dim jam1 As String stp = Stopwatch.StartNew jam1 = Format(timePerParse, "h:m").ToString Me.TextBox2.Text = jam1 Thanks at all

Best Regards, Ahmad Rifai Yusuf

Anybody know how to hie title bar in Visual basic Form ??? :-D :-D :-D

Best Regards, Ahmad Rifai Yusuf

Hi Spaz, have also problem with this full screen Form. I use VB.Net Express 2005. How to make this form covers all windows screen ? Canyou help me, plz? :)

Best Regards, Ahmad Rifai Yusuf

Dear All...! Is there anybody know, how to make the form that cover all windows feature such as start buttom, tray and windows tab.....? Thank you

Best Regards, Ahmad Rifai Yusuf

modified on Saturday, February 02, 2008 7:09:11 AM

Hallo everybody...!, Can anybody solve my problem...?:doh: When I run my form always shown this message alert : Runtime error '3251': Operation is not supprted for this type of object. And so the yellow arrow linked to my code : DataCar.Recordset.FindFirst "CarId = '" & me.txtCarId & "'" Please help me...!:laugh::laugh:

Best Regards, Ahmad Rifai Yusuf

Nothing to forget it, but I didn,t celebrate it:) Best Regards, Ahmad Rifai Yusuf

Sorry, I didn't know at all. Just forget it.;P He..he..he.:laugh: Best Regards, Ahmad Rifai Yusuf

:)Hallo everybody,,,! Please anybody if can help me...! I have problem with my login user code .., If the user type the wrong password the messagebox couldn't appear "Pasword does not match with username", but the messagebox appeared is "Username does not exist" asa same as we type the wrong username. THe code is written below : Dim ds As New DataSet Dim dt As DataTable Dim dr As DataRow Dim username As String = Me.txtUserName.Text Dim password As String = Me.txtPassword.Text Dim strSql As String = "SELECT * FROM users where username='" + username + "' and password='" + password + "'" Dim oleConn As New OleDb.OleDbConnection("provider=microsoft.jet.oledb.4.0;Data Source=data\persedkont.mdb") Dim oleDa As New OleDb.OleDbDataAdapter(strSql, oleConn) oleDa.Fill(ds) dt = ds.Tables(0) If (dt.Rows.Count = 0) Then MessageBox.Show(username + " does not exists!", "Login Fail", MessageBoxButtons.OK, MessageBoxIcon.Error) Else dr = dt.Rows(0) Dim pass As String = dr(2).ToString Dim userId As String = dr(1).ToString If (dt.Rows.Count = 0) And password <> pass Then MessageBox.Show("Password does not match with username.", "Login Fail", MessageBoxButtons.OK, MessageBoxIcon.Error) Me.clearForm() Else If password = pass Then Me.clearForm() Me.Close() End If End If End If 'MessageBox.Show(strSql) Try Catch ex As Exception MessageBox.Show("Wrong UserId or Password") End Try Thank's verymuch for help. Best Regards, Ahmad Rifai Yusuf

Wouw, dangerous things. Faunky Guys....!;P;P;P :laugh::laugh::laugh:;););) Best Regards, Ahmad Rifai Yusuf

Yeahhh... Happy New Year too, leave the previous year and be a better for next year ...! :):):) :doh::doh::doh: :omg::omg: Best Regards, Ahmad Rifai Yusuf

When my computer startup, it cannotload the windows as main programme, but it always comes as blue screen, I have already check all the hardware such as : memory DIMM, processor, harddisk it comes better but after few times the moniter display the blue screen again, again and again. The blue screen text was showed as below : A problem has been detected and windows has been shutdown to prevent damage to your computer. UNMOUNTABLE_BOOT_VOLUME If this is the first time you've seen this stop error screen, restart your computer. If these screen appears again, follow these steps : Check to make sure any new hardware or software is properly installed. If this is a new installation, ask your hardware or software manufacturer for any windows updated you might need. If problem continue, disable or remove any newly installed hardware or software. Disable BIOS memory options such us caching or shadowing. If you need to use safemode to remove or disable components, restart your computer, press F8 to select Advanced Startup Options and then select safemode. Technical Information : *** STOP : 0x000000ED (0x80E37460, 0xC0000185, 0x00000000, 0x00000000) I was boring when I use my computer always select Safemode in Advanced Startup Options. Please if any body know the right way to solve this problem...:rose: Cheers, Ahmad Rifai Yusuf

When I go on vacation,I should keep some one left in my house.:cool: Best Regards, Ahmad Rifai Yusuf

Just take the better of your way ...!;) Best Regards, Ahmad Rifai Yusuf

Just remember the excuse/intent why you marry her. :-D Best Regards, Ahmad Rifai Yusuf