Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Mike Lewis on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Search results for query: *
- Users: zcjl
- Order by date
-
VBA/ADO INSERT INTO Statement error...
Could you try using Format$(dteDate,"d-mmm-yyyy") instead of dteDate.- zcjl
- Post #2
- Forum: VBA Visual Basic for Applications (Microsoft)
-
Code to loop down a column and find the next empty cell
Try this: Private Sub CommandButton1_Click() Dim RowLast as long yourvariable = TextBox1.Value RowLast=sheets("Sheet1").range("A1").End(xlDown).row + 1 If RowLast > (2^16) then RowLast = 1 If len(Range("A1"))>0 then RowLast = 2 end If Range("A" &...- zcjl
- Post #12
- Forum: VBA Visual Basic for Applications (Microsoft)
-
I need help with a type of 'Select Case' statement
Could you try this: Public Function GetResult(Play1 As String, Play2 As String) As String Dim P1 As Integer, P2 As Integer, ResultA As Integer GetResult = "Not a game." If Play1 <> "rock" And Play1 <> "paper" And Play1 <> "scissors" Then...- zcjl
- Post #3
- Forum: Visual Basic (Classic)
-
-
open a access database
You can try this way: Private Sub sampleLabel_Click(Index As Integer) Dim TestAs New ADODB.Connection Test.ConnectionString="Provider=Microsoft.Jet.OLEDB.3.51;" & _ "Data Source=C:\AAA\Tables.mdb;" Test.Open End Sub Please do not forget selecting...- zcjl
- Post #2
- Forum: Visual Basic (Classic)
-
Revised Excel VB question
You can do like this: Dim i As Integer for i=2 to 100 ActiveSheet.Cells(8,14).Formula = "=$C$" & i next i- zcjl
- Post #3
- Forum: Microsoft: Office
-
What's the best way to say "If x=1000,2000,3000,4000,5000"
If do it in VB or VBA, you can simply use MOD function as: If X Mod 1000 = 0 then dosth end if- zcjl
- Post #6
- Forum: Microsoft: Office
