Recent content by Accessna

  1. A

    Progress Bar

    it's type of "Mockery". He & you should respect me. English is not my native language, and I find so difficult to explain my examples. It's small gift contain nice idea with nice code of course for who has a good knowledge about VBA as same as the previous tow examples. I'm sorry for...
  2. A

    Progress Bar

    What type of your reply?!! Is it answer or question?!! Your reply is neither this nor that, it's something without benefit.
  3. A

    Progress Bar

    Progress Bar from Abu Hadi
  4. A

    move cursor to end of text in textbox after setfocus

    Me.TextBox.SelStart = Len(Me.TextBox) + 1
  5. A

    lookup recordset with criteria

    You have 2 ready values, just compare between them, No need to make loop or search. Try This: Private Sub CmbPickOrder_Click() Dim CurrentStock As Long Dim SelectedStock As Long CurrentStock = Me.Inventory_Transactions_Orders_subform.Form.Transaction_Item.Column(2) SelectedStock =...
  6. A

    Microsoft Access 2010 All Capitalize First Letter of Every WOrd

    One more fix for tellorin. Function ProperIII(ByVal Text As Variant) As String Dim A, B A = Array("II", "III", "IV", "VI", "VII", "VIII", "IX", "XI", "XII", "XIII", "XIV", "XV") B = Array("MacKenzie", "McDonalds", "TextBox") Dim String2 As String Dim i As Integer Dim Pos As...
  7. A

    Microsoft Access 2010 All Capitalize First Letter of Every WOrd

    You can remove or add any word you like to array A. Function ProperII(ByVal Text As Variant) As String Dim A A = Array("II", "III", "IV", "VI", "VII", "VIII", "IX", "XI", "XII", "XIII", "XIV", "XV") Dim String2 As String Dim i As Integer Dim Pos As Integer Text = " " &...
  8. A

    dynamic search box possible in VBA?

    Me.Filter = "customer like '*" & Me.txtSearchField & "*'" Me.Filter = Me.Filter & "OR desc like '*" & Me.txtSearchField & "*'" Me.Filter = Me.Filter & "OR [partnum] like '*" & Me.txtSearchField & "*'" Try to keep space before "OR" to be: Me.Filter = "customer like '*" & Me.txtSearchField &...
  9. A

    Microsoft Access 2010 All Capitalize First Letter of Every WOrd

    Posted 8 Nov 2004 from AbuHadi at Officena website. Also I have posted a thread about resizing the TextBox which we can use same idea to get the result from MS Excel. Function Proper(Text As Variant) As Variant Dim K As Integer Dim NewText As String Dim Found As Boolean Proper...
  10. A

    Resizing the TextBox using Excel

    It's another gift from my teacher AbuHadi. Resizing the TextBox control by using AutoFit property of Excel cell. I never use it, but I found it is a nice idea how to use benefits of other applications.
  11. A

    how to correct this code

    Try this: Me.RecordSource = " SELECT * FROM [qry_D+1_Bearbeiten] WHERE Disponent like '" & cmb_Disponent.Value & "%'"
  12. A

    Moving Form's Controls

    This is a small gift from my teacher AbuHadi. How to move (changing location) form's controls while running.
  13. A

    Function to get accurate years between two Gregorian dates

    Hi, my English is weak, I hope you understand me. - Datediff will not give same result of GetYears Function. - This function for Gregorian Calendar only, not for the International Calendar which is compound between Julian & Gregorian. Regards.
  14. A

    Function to get accurate years between two Gregorian dates

    Function GetYears(ByVal DateFm As Long, ByVal DateTo As Long) As Double Dim Leap004 As Long Dim Leap100 As Long Dim Leap400 As Long Dim LeapYears As Long Dim SmblYears As Long Dim Leap As Long Dim Smbl As Long Dim LeapFm As Long Dim SmblFm As Long Dim inDate As Long Dim yy...
  15. A

    String ignoring null

    Dim i as Byte Dim tmp as string tmp = "" For i = 1 to 6 tmp = tmp & Nz(fields("Zone" & i),"") & _ IIf(Nz(fields("Zone" & I),"")<>"" and i<6,", ","") Next i
See more
Top Bottom