Search results

Found it... Added... Code: rstCode.FindFirst "MainID = " & Me.MainID rstCode.Edit For I = 1 To 10

Made qtrCode Code: Dim dbCode As DAO.Database Dim rstCode As DAO.Recordset Dim I As Integer Dim CodeX As String Set dbCode = CurrentDb Set rstCode = dbCode.OpenRecordset("qtrCode") rstCode.FindFirst "MainID = " & Me.MainID For I = 1 To 10 CodeX = "Code" & I rstCode(CodeX).Value = "0"...

And how can i point at that row inside the tblCode where MainID is the same??? Without a query... I need to point in that row and then add data to Code1, Code2,... tblCode CodeID MainID Code1 .. Code10

Something else... Using recordset (at the top of the page) how to make it point or focus or move ,in the tblCode where tblCode.MainID is Me.MainID???

i found that : If DLookup("MainID", "tblCode", "MainID = " & Me.MainID) = Me.MainID is working fine... MainID is always a number and never null or 0... it is autonumber... Is it going to work always right???

test it but always jump to else code: If DLookup("MainID", "tblCode", "MainID = " & Me.MainID) = True Then

From my little vba... code: If DLookup("MainID", "tblCode", "MainID" = Me.MainID) = True Then 'do something Else 'do something End If Is this ok... i test it and it always go to Else... If tblcode.mainID is the same with frmMainID = True then do something

Thxs.... Is it possible to check if MainID from frmMain exist in tblCode??? without a query...

3251 error Operation is not supported for this type of object.

Forgot.. tblMain MainID, AutoNumber Main1, Number Main2, Number CodeID, AutoNumber MainID, Number Code1, Number ... Code10, Number frmMain MainID Main1 Main2 and bt1 as Button All are numbers...

Hi, Where i am making a mistake??? Code: Private Sub btn1_Click() Dim dbCode As DAO.Database Dim rstCode As DAO.Recordset Set dbCode = CurrentDb Set rstCode = dbCode.OpenRecordset("tblCode") Dim strCheck As String strCheck = Me.MainID.Value With rstCode .FindFirst "[MainID]=" & strCheck...

Impossible is nothing

Here is a demo...

How can i make it works in with continuous forms??? I tested the code in a form with 10buttons and works great... But when i tried it with continuous forms all rows where the same... How to make it works for each row...??

Thxs for your reply... Found it... Code: Sub AllShow() Dim ctrlx As Control Dim x As Integer Dim Showx As String For i = 1 To 10 Showx = "btn" & i For Each ctrl In Me.Controls If ctrl.ControlName = Showx Then ctrl.Visible = True End If...

Thank you very much for your reply... Yes, if the values are 3 - 7, i want mean btn3 - btn7... But, i code with case is not a solution, becuse the 3 - 7 are values from the controls Code1 and Code2 for CodeID = 4... The problem is that each CodeID will have different Code1 and Code2, according...

Code so far: Dim Number1 as string Dim Number2 as string Number1 = Code1 Number2 = Code2 How to convert Number1 to "btn" & Number1 and become a control???

Hi, I have a form(frmMain) which contain unbound buttons. btn1, btn2, btn3, btn4, btn5, btn6, btn7, btn8, btn9, btn10 The form controls are: CodeID, number Code1, number Code2, number Each Code1 and Code2 contains numbers from 1-10... tblCode CodeId_,_Code1_,_Code2_ __1____,___4___,___8___...

Thank you very much for everything... I was going to put nz() but it was only a demo.. I will try also the month()...

Hahahaha... Found it..... From the two tables create a union select query(qtrAllDays) Then i make a quary and format AllDays to YEARs and GroupBY them...(qtrAllYears) Last query was easy... Took qtrAllYears and the two crosstabs... Make relashionship to YEARs... Please be so kind to have a...