Search results

Thanks friend for the answer. I'm happy to work.

Hi ohappyday, Resolved ?

It's a good feeling, I have some examples as well, but the friend Lightwave, asked for help in memo field. Resolved

Hi; I changed the validation for string http://dl.dropbox.com/u/771097/Login_NiveisSeguranca_II.mdb Happy 2010

See; http://support.microsoft.com/kb/815277 If the data is mixed (ie. numeric & text) for a given field, access will pick one data type and assign that to the field. If it decided that the field is numeric, but you have text data, you might get the overflow error the next time to try to...

simple; Private Sub CmdSearch_Click() DoCmd.OpenQuery "query1", acViewNormal, acReadOnly DoCmd.OpenQuery "query2", acViewNormal, acReadOnly DoCmd.OpenQuery "query3", acViewNormal, acReadOnly End Sub

put your mdb file attached to see.

Thanks for the feedback, can help others in the future.

Hi, The open form already has the where statement to filter. Remove the WHERE clause from the SELECT statement.

Hi, I use this it works 100%

Hi, in form, see properties, tab format, auto resize.

Hi, I created a small example for you.

Use the function insert into CurrentDb.Execute "INSERT INTO [Table2] (ReSerialNum) VALUES (& "SerialNum" &);"

To modify the font of datasheet with: Application.SetOption "Default Font Name", "Arial" Application.SetOption "Default Font Size", 8

One example: http://dl.dropbox.com/u/771097/twinLists.mdb other: http://dl.dropbox.com/u/771097/Listboxes.mdb

Hi; Try Function BusinessDays(PosHireDate, RepDate) As Long BusinessDays = Nz(DateDiff("d", PosHireDate, RepDate), Date - (DateDiff _ ("ww", PosHireDate, RepDate) * 2) + 1) + Nz(Weekday(PosHireDate), Date = vbSunday) + (Weekday _ (RepDate) = vbSaturday) End Function

Thanks, for you replay.

try; Public Function ModificaFonteTodosForms(FontName As String, FontSize As String) ' Call ModificaFonteTodosForms("Tahoma","8") On Error GoTo errlbl Dim CorrerTodos As Single Dim frm As AccessObject Dim openFrm As Access.Form Dim Controles As Access.Control Dim CaixasTexto As Access.TextBox...

try; Public Function Name() Dim A As DAO.Database Dim T As DAO.Recordset Set A = CurrentDb Set T = A.OpenRecordset("tblExemplo", dbOpenDynaset) T.FindFirst "[Columnname] = '" & Criteria & "'" End Function

Hi; try this; Dim strExcelFile As String Dim strWorksheet, strWorksheet1, strWorksheet2, strWorksheet3, strWorksheet4, strWorsheet5 As String Dim strDB As String Dim strTable, strTable1, strTable2, strTable3, strTable4, strTable5 As String Dim objDB As Database Dim a As String a =...