Search results

I have the table like this: Place code Name 12 Mania 13 Donia 12 Kamal 12 Manisa 13 Pato I want to make new table like this: Place code Name 12...

hi. Galaxiom. I already try a few way as your suggestion... then I lost in my own track. 1. I try to used CurrentDb.TableDefs("tablename").Fields("fieldname").Properties("Type") but I don't know what should I write...

thanks..Galaxiom sorry for making this more complicated. for your information.. my English not so good and ms access is new for me. may be a few word I don't understand. Thanks again... I will try do it as your suggestion.

Thanks Galaxiom. So... how to write the right code. any suggestion ?. here i attach the db also. please help me.

hi. Need some help with subform filter. there is 1 table containing lab result data : 1. SAMPLE_NO 2. SAMPLING_DATE 3. DO 4. BOD 5. COD 6. PH 7. SS I used combobox to filter the subform. and the code are : Private Sub cmdCari_Click() Dim stDocName As String Dim stLinkCriteria2 As String Dim...

hi ghudson, I already see it. but for me (as a beginner) it's too complex. ... can u give me any hint..... which part i should concentrate ..... module or form...???? i think in this code: Public Function BrowseDirectory(szDialogTitle As String) As String On Error GoTo Err_BrowseDirectory...

How to make this code to show all data including folders not only the file. vDir = Dir(FilewPath & "*.*") i try change it to this : vDir = Dir(FilewPath & "**") still don't work.

Yes, Adam you're right in thinking that that line is referring to a sub-directory. I would imagine that path already exists. It may also be that those three folders mentioned above are all under the sub-direcory "Kml Shape File". it's true.... i want to put the name of tree sub folder...

ok... thanks again.

thanks... for reply. i try to understand this code... but the problem is : 1. my English is not so good as u 2. ms access is not my expertise.... (just as hobby) anyway... i try my best.... there is a few code I understand... how it's function. I think ... to solve my problem is ... I should...

thanks... I'm still in learning process.

hi.. I used this module to save the file directory in new created table. This code i got from searching in the google. so the problem is.... how to save the folder name to in that table. there is a few folder in (CurrentProject.Path & "\Kml Shape File\") : 1. lotname 2. place 3. Hotel...

i got it. I change the code to : Private Sub Command3_Click() Dim rs As Recordset Dim x As Integer, i As Integer Set rs = CurrentDb.OpenRecordset("tFiles Query") Do While Not rs.EOF x = rs.RecordCount If x > 0 Then OpenFile (rs![FilePath] & rs![FileName]) End If rs.MoveNext Loop End Sub

I have a Query name tFiles Query. FileName FilePath FilePathName Logplace.doc c:\Database\ c:\Database\Logplace.doc Tanplace.doc c:\Database\ c:\Database\Tanplace.doc I used this code to open the database. Private Sub Command3_Click() Dim...

Thanks...vbaInet I solved it by using this code. Private Sub Command9_Click() Dim sqlStr As String sqlStr = "SELECT " & "Table1.Test" & ", " & "Table1." & Me!Test 1 & ", " & "Table1." & Me!Test 2 & " INTO " & "Tablelain " & "FROM " & "Table1;" DoCmd.SetWarnings False DoCmd.RunSQL sqlStr...

my plan is to create graph from that selection subform. i want the graph only show the select column. so what i know is....to make a graph we have to link it with a table. that why i want to make new table. so... llkhoutx and vbaInet..... any suggestion?

hi. in my form I used 2 combobox to show and hide column in subform. so can I make new table for this subform (only show column) This is my combo code : Private Sub hideColumn_Change() Select Case Me.hideColumn Case "Test 1" Me.Subform.Form.Test1.ColumnHidden = True Case...

actually... i don't know how to used loop. i want to save all my graph in jpeg. you can can see my problem here http://www.access-programmers.co.uk/forums/showthread.php?t=189421. so then i make hard way. After closed the report the graph will be save. that all i can do. i take a few week to...

Hi. this is my button code : Private Sub Command1_Click() On Error GoTo Err_Command1_Click Dim stDocName As String stDocName = "rptPthAsas" stLinkCriteria = "[StnName]=" & "'" & Me![StnName] & "'" DoCmd.GoToRecord , , acNext DoCmd.OpenReport stDocName, acPreview, ...

hi. can u more specific. as a beginner a can't catch what u mean. or u can give an example or code or anything that can make me more understand. thank for ur help.